第2引数：変換文字種類は複数指定可能

Описание l2tp клиент для андроид на нашем сайте.

第2引数は、組み合わせて使用することもできます。ただし、互いに矛盾のないように指定します。

たとえば、小文字を大文字に変換後、半角文字を全角文字に変換する場合には、VbStrConv.UpperCase Or VbStrConv.Wideのように、Or演算子を使って記述します。

Option Strictが、Offの場合は、VbStrConv.UpperCase + VbStrConv.Wideのように+を使って記述できますが、できるだけOr演算子を使いましょう。

Dim str1 As String = "abcXYZあいうカキク"
Console.WriteLine("元の文字列：" & str1 & vbCrLf)

' 小文字を大文字に変換
Dim str2 As String
str2 = StrConv(str1, VbStrConv.UpperCase)
Console.WriteLine("大文字変換：" & str2 & vbCrLf)

' 大文字を小文字に変換
Dim str3 As String
str3 = StrConv(str1, VbStrConv.LowerCase)
Console.WriteLine("小文字変換：" & str3 & vbCrLf)

' 半角文字を全角文字に変換
Dim str4 As String
str4 = StrConv(str1, VbStrConv.Wide)
Console.WriteLine("全角文字変換：" & str4 & vbCrLf)

' 全角文字を半角文字に変換
Dim str5 As String
str5 = StrConv(str1, VbStrConv.Narrow)
Console.WriteLine("半角文字変換：" & str5 & vbCrLf)

' ひらがなをカタカナに変換
Dim str6 As String
str6 = StrConv(str1, VbStrConv.Katakana)
Console.WriteLine("カタカナ変換：" & str6 & vbCrLf)

' カタカナをひらがなに変換
Dim str7 As String
str7 = StrConv(str1, VbStrConv.Hiragana)
Console.WriteLine("ひらがな変換：" & str7 & vbCrLf)

' 小文字を大文字に変換後、全角文字に変換
Dim str8 As String
str8 = StrConv(str1, VbStrConv.UpperCase Or VbStrConv.Wide)
Console.WriteLine("大文字変換後に全角文字変換：" & str8 & vbCrLf)

サンプルプログラム

テキストボックスに入力した文字列を、ラジオボタンで選んだ文字種類に変換するプログラムです。

Public Class frmStrConv
  Inherits System.Windows.Forms.Form

#Region " Windows フォーム デザイナで生成されたコード "
    '自動生成部分省略
#End Region

  Private Sub Button1_Click _
  (ByVal sender As System.Object, ByVal e As System.EventArgs) _
  Handles Button1.Click

    If RadioButton1.Checked Then
        '小文字を大文字に変換
        TextBox1.Text = StrConv(TextBox1.Text, VbStrConv.UpperCase)
    ElseIf RadioButton2.Checked Then
        '大文字を小文字に変換
        TextBox1.Text = StrConv(TextBox1.Text, VbStrConv.LowerCase)
    ElseIf RadioButton3.Checked Then
        '半角文字を全角文字に変換
        TextBox1.Text = StrConv(TextBox1.Text, VbStrConv.Wide)
    ElseIf RadioButton4.Checked Then
        '全角文字を半角文字に変換
        TextBox1.Text = StrConv(TextBox1.Text, VbStrConv.Narrow)
    ElseIf RadioButton5.Checked Then
        'ひらがなをカタカナに変換
        TextBox1.Text = StrConv(TextBox1.Text, VbStrConv.Katakana)
    ElseIf RadioButton6.Checked Then
        'カタカナをひらがなに変換
        TextBox1.Text = StrConv(Me.TextBox1.Text, VbStrConv.Hiragana)
    ElseIf RadioButton7.Checked Then
        '小文字を大文字に変換後、全角文字に変換
        TextBox1.Text = _
        StrConv(TextBox1.Text, VbStrConv.UpperCase Or VbStrConv.Wide)
    Else
        MessageBox.Show("変換タイプを選択してください", "エラー")
    End If

  End Sub

End Class