２．ボタンコントロールの Button1 text プロパティに「チェック」と記述します。 ※説明用のためです。必須ではありません。
┏━━━━━━━━┓ ┃TextBox1 ┃ ┗━━━━━━━━┛
┏━━━━┓ ┃チェック┃ ┗━━━━┛
３．フォームで右クリックして、「コードの表示」を 選び、コード編集画面にします。
４．フォームの宣言部に、次のコードを記述します。
Imports System Imports System.Text.RegularExpressions
５．さらに、 Public Class Form1 内に、 次のコードを記述します。
'ひらがなかどうかをチェックします。True:はい False:いいえ Function Chk_Hiragana(ByVal PistrStr As String) As Boolean Chk_Hiragana = Regex.IsMatch(PistrStr, "^\p{IsHiragana}*$")
End Function
'カタカナかどうかをチェックします。True:はい False:いいえ Function Chk_Katakana(ByVal PistrStr As String) As Boolean Chk_Katakana = Regex.IsMatch(PistrStr, "^\p{IsKatakana}*$")
End Function
'漢字がどうかをチェックします。True:はい False:いいえ Function Chk_Kanji(ByVal PistrStr As String) As Boolean Chk_Kanji = Regex.IsMatch(PistrStr, _ "^\p{IsCJKUnifiedIdeographs}*$")
End Function
Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim strStr As String Dim strMsgStr As String strStr = TextBox1.Text
If strStr.Length = 0 Then MsgBox("空白です") Exit Sub End If
If (Chk_Hiragana(strStr)) Then strMsgStr += "「ひらがな」" End If If (Chk_Katakana(strStr)) Then strMsgStr += "「カタカナ」" End If If (Chk_Kanji(strStr)) Then strMsgStr += "「漢字」" End If If strMsgStr = "" Then strMsgStr += "混在しているか半角です。" End If
