７．半角・全角文字の判定をする

１．半角・全角文字の判定をする ２． ３． ４．　 ５．　 ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows Vista・Windows 7 (32bit) / VB6.0(SP6) Option　：[Option Explicit] 参照設定： 使用 API：なし その他　： 　　　　：

１．半角・全角文字の判定をする

Option Explicit　　 'SampleNo=086　 2002.05.17 Private Sub Command1_Click() 　　Dim Ret As Integer 　　Ret = fHanOrZen(Text2.Text) 　　Select Case Ret 　　　　Case 1 　　　　　　MsgBox "半角文字です" 　　　　Case 2 　　　　　　MsgBox "全角文字です" 　　　　Case 0 　　　　　　MsgBox "指定方法が間違ってます" 　　End Select End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) 　　Debug.Print KeyAscii 　　If KeyAscii = vbKeyReturn Then 　　　　KeyAscii = 0 　　Else 　　　　If KeyAscii >= 0 And KeyAscii < 31 Then 　　　　　　MsgBox "制御文字です" 　　　　　　Exit Sub 　　　　End If 　　　　If KeyAscii > 0 And KeyAscii < 255 Then 　　　　　　MsgBox "Ascii コード 255 以内です" 　　　　　　'128 ~ 160 と 224 ~ 255 はキーボードから直接入力不可 　　　　End If 　　　　If KeyAscii > 160 And KeyAscii < 224 Then 　　　　　　MsgBox "半角カナ文字です" 　　　　End If 　　　　If LenB(StrConv(Chr$(KeyAscii), vbFromUnicode)) = 1 Then 　　　　　　MsgBox "シフトJISコード 1バイト文字です" 　　　　End If 　　End If 'イミディエイトウィンドウで　?chr(64)　 と入力すると @　が表示します 'イミディエイトウィンドウで　?asc("@")　と入力すると 64 が表示します 'ヘルプで　ASCII 文字セット (0 - 127) '　　　　　ASC 関数 32 ビット版での文字列操作の注意事項 '等も調べて下さい End Sub Private Function fHanOrZen(myString As String) As Integer 　　If Len(myString) = 1 Then 'エラー処理 0 を返す 　　　　If Asc(myString) >= 0 And Asc(myString) <= 255 Then 　　　　　　fHanOrZen = 1　　'半角=1 　　　　Else 　　　　　　fHanOrZen = 2　　'全角=2 　　　　End If 　　Else 　　　　fHanOrZen = 0　　　　'指定不良=0 　　End If End Function

２．

３．

４．

５．

６．

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