String的成員函數(shù)中就有 ToUpper() 和 ToLower()啊
創(chuàng)新互聯(lián)建站于2013年創(chuàng)立,是專業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司,擁有項(xiàng)目成都做網(wǎng)站、網(wǎng)站設(shè)計(jì)網(wǎng)站策劃,項(xiàng)目實(shí)施與項(xiàng)目整合能力。我們以讓每一個(gè)夢想脫穎而出為使命,1280元隨縣做網(wǎng)站,已為上家服務(wù),為隨縣各地企業(yè)和個(gè)人服務(wù),聯(lián)系電話:18980820575
Dim a As String = "abcEd"
Dim b As String = a.ToUpper() //大寫
Dim c As String = a.ToLower() //小寫
1:將文件拷貝到WORD中
2:點(diǎn)擊菜單“格式”——更改大小寫,出現(xiàn)對(duì)話框
3:可以選擇“大寫”或者“切換大小寫”,就都可以換過來了
最后,再復(fù)制回到你所需要的文檔中即可!
可以試著用典型的VB字符串函數(shù)UCase解決。
比如先把輸入的內(nèi)容放到字符串A$中,若A$="a",則經(jīng)
A$=UCase(A$)轉(zhuǎn)換后,結(jié)果即是A$="A"。
我在程序中是這麼處理的。行不行,試試就知道了。
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress e.KeyChar 使用參數(shù)e來控制輸入字符 End Sub 追問: 能給出大小寫切換程序的整段 源代碼 嗎 回答: 我不明白你的大小寫切換程序是要實(shí)現(xiàn)什么功能 是輸入 大寫 變小寫嗎? 追問: 是的 回答: If e.KeyChar.IsLower(e.KeyChar) = True Then e.KeyChar.ToUpper(e.KeyChar) 或 If e.KeyChar.IsUpper(e.KeyChar) = True Then e.KeyChar.ToLower(e.KeyChar)
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim s As String = "0Ff0ajkh04624F"
Dim i As Integer = 0
Dim sTemp As String = ""
Dim ss As String = ""
For i = 1 To Strings.Len(s)
sTemp = Mid(s, i, 1)
If Asc(sTemp) = 65 And Asc(sTemp) = 90 Then
sTemp = LCase(sTemp)
ElseIf Asc(sTemp) = 95 And Asc(sTemp) = 122 Then
sTemp = UCase(sTemp)
Else
sTemp = sTemp
End If
ss = ss sTemp
Next
MsgBox(ss)
End Sub
網(wǎng)站題目:vb.net轉(zhuǎn)換小寫 vb中大寫轉(zhuǎn)小寫怎么編程序
文章轉(zhuǎn)載:http://vcdvsql.cn/article4/hpgcie.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供動(dòng)態(tài)網(wǎng)站、ChatGPT、網(wǎng)站排名、品牌網(wǎng)站設(shè)計(jì)、App設(shè)計(jì)、小程序開發(fā)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)