vb英文大小寫轉換

我要寫一個程式是一個textbox跟一個command

在textbox輸入例如

abc cba bba

他會自動轉換成

Abc Cba Bba

就是要讓第一個字母轉換成大寫 其他都變成小寫 除英文字母外 其餘的都不變

4 Answers

Rating
  • W.J.S.
    Lv 7
    1 decade ago
    Favorite Answer

    '用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

  • Anonymous
    6 years ago

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

    [電子遊戲]

    拉霸、水果盤、7PK、5PK

    [運彩遊戲]

    棒球、籃球、足球、網球、冰球、各種體育經典賽事

    [真人遊戲]

    百家樂、21點、骰寶、輪盤、牌九、三公、輪盤、翻攤、牛牛、二八杠

    [對戰遊戲]

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

    [彩球遊戲]

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

    [優惠活動]

    1. 新舊會員儲值就送500點

    2. 真人百家樂彩金等你拿

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

    歡迎免費體驗試玩!!

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

  • 世賢
    Lv 7
    1 decade ago

    to:W.J.S.

    兩次回答的結果都是一樣的,並沒有不同!

  • 1 decade ago

    以下程式碼是將文字物件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

    有不懂? tkvjackson@yahoo.com.tw

Still have questions? Get your answers by asking now.