２．ボタンコントロールの Button1 text プロパティに「半角」と記述します。 Button2 text プロパティに「全角」と記述します。 ※説明用のためです。必須ではありません。
┏━━━━━━━━┓ ┃TextBox1 ┃ ┗━━━━━━━━┛
┏━━━━┓┏━━━━┓ ┃半角 ┃┃全角 ┃ ┗━━━━┛┗━━━━┛
３．フォームで右クリックして、「コードの表示」を 選び、コード編集画面にします。
４．フォームの宣言部に、次のコードを記述します。
Imports System Imports System.Text
５．さらに、 Public Class Form1 内に、 次のコードを記述します。
'半角、全角のチェックをする 'PIstrChkstr チェックする文字列 'PIintChktype チェックするタイプ 0:半角 1:全角 Private Function Chk_HanZenString(ByVal PIstrChkstr As String, _ ByVal PIintChktype As Integer) As Long
Dim lngStrLen As Long '文字列長さ Dim lngSStrP As Long '文字列検知ポジション Dim str1Moji As String '文字列1文字 Dim sjisEnc As Encoding = Encoding.GetEncoding("Shift_JIS")
Chk_HanZenString = 0 '文字列長さを保持 lngStrLen = PIstrChkstr.Length lngSStrP = 1 Do If lngSStrP > lngStrLen Then '文字列の検知終了 Exit Do End If str1Moji = Mid(PIstrChkstr, lngSStrP, 1) If sjisEnc.GetByteCount(str1Moji) = 1 Then '半角 If PIintChktype = 0 Then Chk_HanZenString = lngSStrP Exit Function End If Else '全角 If PIintChktype = 1 Then Chk_HanZenString = lngSStrP Exit Function End If End If lngSStrP = lngSStrP + 1 Loop
End Function
Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click
Dim intRet As Integer
intRet = Chk_HanZenString(TextBox1.Text, 0) If intRet > 0 Then MsgBox(intRet & "文字目に半角文字が含まれています。") Else MsgBox("半角文字は含まれておりません。") End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click
Dim intRet As Integer
intRet = Chk_HanZenString(TextBox1.Text, 1) If intRet > 0 Then MsgBox(intRet & "文字目に全角文字が含まれています。") Else MsgBox("全角文字は含まれておりません。") End If
