vb.net 中如何處理輸入小寫變大寫

可以試著用典型的VB字符串函數(shù)UCase解決。

網(wǎng)站建設(shè)、網(wǎng)站設(shè)計(jì),成都做網(wǎng)站公司-創(chuàng)新互聯(lián)已向上千家企業(yè)提供了,網(wǎng)站設(shè)計(jì),網(wǎng)站制作,網(wǎng)絡(luò)營銷等服務(wù)!設(shè)計(jì)與技術(shù)結(jié)合,多年網(wǎng)站推廣經(jīng)驗(yàn),合理的價(jià)格為您打造企業(yè)品質(zhì)網(wǎng)站。

比如先把輸入的內(nèi)容放到字符串A$中，若A$="a",則經(jīng)

A$=UCase(A$)轉(zhuǎn)換后，結(jié)果即是A$="A"。

我在程序中是這麼處理的。行不行，試試就知道了。

vb.net大小寫字母轉(zhuǎn)換

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

修改VB程序：首字母大寫

修改不大容易，干脆給你寫一個(gè)吧。建一個(gè)Text1，Command1。

代碼如下。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Private Sub Command1_Click()

Const ascla = 97 'Asc("a")

Const asclz = 122 'Asc("z")

Const ascuA = 65 'Asc("A")

Const ascuZ = 90 'Asc("Z")

Dim i As Long, t As String, ascii As Integer

t = Text1.Text

If Asc(Left(t, 1)) = ascla And Asc(Left(t, 1)) = asclz Then t = UCase(Left(t, 1)) Mid(t, 2)

For i = 2 To Len(t)

ascii = Asc(Mid(t, i, 1))

If ascii = ascla And ascii = asclz Then

Dim ascl As Integer

ascl = Asc(Mid(t, i - 1, 1))

If ascl ascuA Or (ascl ascuZ And ascl ascla) Or ascl asclz Then

t = Left(t, i - 1) UCase(Mid(t, i, 1)) Mid(t, i + 1)

End If

End If

Next

Text1.Text = t

End Sub

vb.net text.box 如何實(shí)現(xiàn)輸入的小寫轉(zhuǎn)變?yōu)榇髮?/h2>

1：將文件拷貝到WORD中

2：點(diǎn)擊菜單“格式”——更改大小寫，出現(xiàn)對話框

3：可以選擇“大寫”或者“切換大小寫”，就都可以換過來了

最后，再復(fù)制回到你所需要的文檔中即可！

首字母變成大寫，用VB怎么寫

Private Sub Command1_Click()

Dim a As String, b As String

a = Text1.Text

b = Right(a, Len(a) - 1)

a = UCase(Left(a, 1))

Text1.Text = a b

End Sub一個(gè)text控件。一個(gè)command控件。len函數(shù)（string）求字符串的字符長度。left（string，n）從string字符串左邊開始取n個(gè)字符。right（string，n）從string字符串右邊開始取n個(gè)字符。ucase（string） 將字符串string中所有小寫字母改成大寫。Private Sub Text1_LostFocus()

Dim a As String, b As String

a = Text1.Text

b = Right(a, Len(a) - 1)

a = UCase(Left(a, 1))

Text1.Text = a b

End Sub lostfocus 焦點(diǎn)離開事件。 在text中輸入字母后。當(dāng)鼠標(biāo)點(diǎn)擊別的按鈕時(shí)，text控件失去焦點(diǎn)。觸發(fā)事件。也可以按tab鍵使text失去焦點(diǎn)。

文章標(biāo)題：vb.net首字大寫,vb大寫函數(shù)
標(biāo)題URL：http://chinadenli.net/article23/dsepocs.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站制作、標(biāo)簽優(yōu)化、小程序開發(fā)、全網(wǎng)營銷推廣、網(wǎng)站設(shè)計(jì)、軟件開發(fā)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)