' [344.xls]



' [Module1] のコード
'★★☆　文字列を変換してラベルに書き込む　☆★★

Option Explicit

Sub start()

    UserForm1.Show

End Sub


' [UserForm1] のコード
Option Explicit

Private Sub CommandButton1_Click()

    '定数 vbUpperCase の値は 1 です
    '定数 vbUpperCase 1 で表しても良い
    Label1 = StrConv(TextBox1.Text, vbUpperCase)
    
End Sub

Private Sub CommandButton2_Click()

    '定数 vbLowerCase の値は 2 です
    Label1 = StrConv(TextBox1.Text, vbLowerCase)

End Sub

Private Sub CommandButton3_Click()

    '定数 vbProperCase の値は 3 です
    Label1 = StrConv(TextBox1.Text, vbProperCase)

End Sub

Private Sub CommandButton4_Click()

    '定数 vbWide の値は 4 です
    Label1 = StrConv(TextBox1.Text, vbWide)

End Sub

Private Sub CommandButton5_Click()
    
    '定数 vbNarrow の値は 8 です
    Label1 = StrConv(TextBox1.Text, vbNarrow)
    
End Sub

Private Sub CommandButton6_Click()

    '定数 vbKatakana の値は 16 です
    Label1 = StrConv(TextBox1.Text, vbKatakana)

End Sub

Private Sub CommandButton7_Click()

    '定数 vbHiragana の値は 32 です
    Label1 = StrConv(TextBox1.Text, vbHiragana)

End Sub

Private Sub CommandButton8_Click()
    
    '定数の値は 3 + 32 = 35 で "先頭大文字 & ひらがな" を実現
    Label1 = StrConv(TextBox1.Text, 35)

End Sub

Private Sub UserForm_Initialize()

    TextBox1.Text = "abcd EFGH もじれつ ソウサ"
    Label1.Caption = TextBox1.Text
    
End Sub