１．文字列を半角→←全角等異種文字列に変換する(39_Str_01)　(旧、SampleNo.012)

１．英字の大文字を小文字に変換する(３方法) ２．英字の小文字を大文字に変換する(３方法) ３．半角文字を全角文字に変換する ４．全角文字を半角文字に変換する ５．ひらがなをカタカナに変換する ６．カタカナをひらがなに変換する ７．単語の先頭文字を大文字に変換する

下記プログラムコードに関する補足・注意事項　 動作確認：Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU：x86 Option　：[Compare Text] [Explicit On] [Infer On] [Strict On] Imports ：追加なし 参照設定：追加なし その他　： 　　　　： このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)

１．英字の大文字を小文字に変換する(３方法)

Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click '英字の大文字を小文字に変換する(３方法)     Dim str1 As String = "ABCDefgh"     Label1.Text = "Dim str1 As String = ""ABCDefgh""" & vbCrLf & vbCrLf     Label1.Text &= String.Format("str1.ToLower                       = {0}", str1.ToLower) & vbCrLf     Label1.Text &= String.Format("Microsoft.VisualBasic.LCase(str1)  = {0}", Microsoft.VisualBasic.LCase(str1)) & vbCrLf     Label1.Text &= String.Format("StrConv(str1, VbStrConv.Lowercase) = {0}", StrConv(str1, VbStrConv.Lowercase)) & vbCrLf     Label2.Text = "英字の大文字を小文字に変換する(３方法)" End Sub

２．英字の小文字を大文字に変換する(３方法)

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click '英字の小文字を大文字に変換する(３方法)     Dim str1 As String = "ABCDefgh"     Label1.Text = "Dim str1 As String = ""ABCDefgh""" & vbCrLf & vbCrLf     Label1.Text &= String.Format("str1.ToUpper                       = {0}", str1.ToUpper) & vbCrLf     Label1.Text &= String.Format("Microsoft.VisualBasic.UCase(str1)  = {0}", Microsoft.VisualBasic.UCase(str1)) & vbCrLf     Label1.Text &= String.Format("StrConv(str1, VbStrConv.Uppercase) = {0}", StrConv(str1, VbStrConv.Uppercase)) & vbCrLf     Label2.Text = "英字の小文字を大文字に変換する(３方法)" End Sub

３．半角文字を全角文字に変換する

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click '半角文字を全角文字に変換する     Dim str1 As String = "ABCｱｲﾊﾞﾋﾞﾊﾟﾋﾟ12"     Label1.Text = "Dim str1 As String = ""ABCｱｲﾊﾞﾋﾞﾊﾟﾋﾟ12""" & vbCrLf & vbCrLf     Label1.Text &= String.Format("StrConv(str1, VbStrConv.Wide) = {0}", StrConv(str1, VbStrConv.Wide)) & vbCrLf     Label2.Text = "半角文字を全角文字に変換する" End Sub

４．全角文字を半角文字に変換する

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click '全角文字を半角文字に変換する     Dim str1 As String = "ＡＢＣアイバビパピ１２"     Label1.Text = "Dim str1 As String = ""ＡＢＣアイバビパピ１２""" & vbCrLf & vbCrLf     Label1.Text &= String.Format("StrConv(str1, VbStrConv.Narrow) = {0}", StrConv(str1, VbStrConv.Narrow)) & vbCrLf     Label2.Text = "全角文字を半角文字に変換する" End Sub

５．ひらがなをカタカナに変換する

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click 'ひらがなをカタカナに変換する     Dim str1 As String = "あいうえおばびぱぴ"     Label1.Text = "Dim str1 As String = ""あいうえおばびぱぴ""" & vbCrLf & vbCrLf     Label1.Text &= String.Format("StrConv(str1, VbStrConv.Katakana) = {0}", StrConv(str1, VbStrConv.Katakana)) & vbCrLf     Label2.Text = "ひらがなをカタカナに変換する" End Sub

６．カタカナをひらがなに変換する

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click 'カタカナをひらがなに変換する     Dim str1 As String = "アイウエオバビパピ"     Label1.Text = "Dim str1 As String = ""アイウエオバビパピ""" & vbCrLf & vbCrLf     Label1.Text &= String.Format("StrConv(str1, VbStrConv.Hiragana) = {0}", StrConv(str1, VbStrConv.Hiragana)) & vbCrLf     Label2.Text = "カタカナをひらがなに変換する" End Sub

７．単語の先頭文字を大文字に変換する

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click '単語の先頭文字を大文字に変換する     Dim str1 As String = "abcde fghij klmn"     Label1.Text = "Dim str1 As String = ""abcde fghij klmn""" & vbCrLf & vbCrLf     Label1.Text &= String.Format("StrConv(str1, VbStrConv.ProperCase) = {0}", StrConv(str1, VbStrConv.ProperCase)) & vbCrLf     Label2.Text = "単語の先頭文字を大文字に変換する" '大文字と小文字の区別を適切に行うための文字列の有効な単語の区切り記号としては、 'Null (Chr(0))、水平タブ (Chr(9))、ラインフィード (Chr(10))、垂直タブ (Chr(11))、 'フォームフィード (Chr(12))、キャリッジリターン (Chr(13))、スペース (1 バイト文字セット) ' (Chr(32)) があります。空白の実際の値は、全角文字と半角文字のどちらでもかまいませんが、 '東アジア文化圏では国/地域によって異なります。 End Sub

検索キーワード及びサンプルコードの別名(機能名)