vb英文大小寫轉換

Question

我要寫一個程式是一個textbox跟一個command
在textbox輸入例如
abc cba bba
他會自動轉換成
Abc Cba Bba
就是要讓第一個字母轉換成大寫 其他都變成小寫 除英文字母外 其餘的都不變

Answer 1

'用StrConv函數就可
Private Sub Command1_Click()
Dim S As String
S = "abc cba bba"
Print StrConv(S, vbProperCase)
End Sub

2006-02-27 17:39:16 補充：
如果是要第一個字母轉換成大寫 ,其他都變成小寫可改成Print StrConv(LCase(S), vbProperCase)

2006-02-27 23:03:44 補充：
哈哈!!LIU-LIU真的是一樣的ㄋㄟ,沒跑跑看實在不知道XD

Answer 2

＊ ***** http://***** ＊

[電子遊戲]
拉霸、水果盤、7PK、5PK

[運彩遊戲]
棒球、籃球、足球、網球、冰球、各種體育經典賽事

[真人遊戲]
百家樂、21點、骰寶、輪盤、牌九、三公、輪盤、翻攤、牛牛、二八杠

[對戰遊戲]
台灣麻將、德州撲克、骰盅吹牛、四支刀、鬥地主、十三支、二八槓、暗棋、接龍

[彩球遊戲]
香港六合、台灣樂透、今彩539、樂合彩、大陸時時彩、基諾彩、北京賽車、賽狗、賽馬、指數

[優惠活動]
1. 新舊會員儲值就送500點
2. 真人百家樂彩金等你拿
***** http://*****
歡迎免費體驗試玩!!

線上影片直播、正妹圖、討論區免費註冊 ~

Answer 3

to:W.J.S.
兩次回答的結果都是一樣的，並沒有不同！

Answer 4

以下程式碼是將文字物件Text1中的文字改成字首大寫。

Dim i As Integer
Dim s As String
Dim b As Boolean

Replace Text1.Text, "　", " "

For i = 1 To Len(Text1.Text)
If b = True And Mid(Text1.Text, i, 1) <> 32 Or i = 1 Then
s = s & UCase(Mid(Text1.Text, i, 1))
b = False
Else
s = s & LCase(Mid(Text1.Text, i, 1))
End If

If Asc(Mid(Text1.Text, i, 1)) = 32 Then
b = True
End If
Next i

Text1.Text = s

有不懂? [e-mail]