---

全角文字列をすべて含んでいるかどうかをチェックする

VB6.0 でも、 全角文字列をすべて含んでいるかどうかをチェックすることが可能です。 この機能を使えば、簡単に、 全角文字のみを受け付けるテキスト入力の機能 など簡単に作成できます。 フォームに次の様なコードを記述します -----------VB6.0Tコーディングここから------------------- １．フォームに、テキストボックスコントロール、     コマンドボタンコントロール     を配置します。     下記は、デフォルトのオブジェクトの名前と配置を示しています。    ┏━━━━━━━━━━━┓    ┃Text1                 ┃    ┗━━━━━━━━━━━┛    ┏━━━━━━━┓    ┃Command1      ┃    ┗━━━━━━━┛ ２．コマンドボタンコントロールの     Command1 Caption プロパティに「全角チェック」と記述します。 　　※説明用のためです。必須ではありません。    ┏━━━━━━━━━━━┓    ┃Text1                 ┃    ┗━━━━━━━━━━━┛    ┏━━━━━━━┓    ┃全角チェック  ┃    ┗━━━━━━━┛ ３．フォームルを右クリックして、     コードの編集を開始して、 　　次のコードを記述します。     Private Sub Command1_Click()         If CHK_ZENKAKU(Text1.Text) Then             MsgBox ("全角あり")         Else             MsgBox ("全角なし")         End If     End Sub     '全角文字がすべて含まれているとTrueを返す関数     '引数は、チェック対象の文字列    Function CHK_ZENKAKU(ByVal PIstrCHKSTR As String) As Long     Dim lngStrLen    As Long     '文字列長さ     Dim lngSStrP     As Long     '文字列検知ポジション     Dim str1Moji     As String   '文字列1文字     '初期化     CHK_ZENKAKU = False         '文字列長さを保持         lngStrLen = Len(PIstrCHKSTR)         lngSStrP = 1         Do             If lngSStrP > lngStrLen Then                 '文字列の検知終了                 Exit Do             End If             str1Moji = Mid(PIstrCHKSTR, lngSStrP, 1)             If LenB(StrConv(str1Moji, vbFromUnicode)) = 1 Then             '半角                 Exit Function             Else             '全角             End If             lngSStrP = lngSStrP + 1         Loop     CHK_ZENKAKU_End:         CHK_ZENKAKU = True     End Function ４．実行メニュー「開始」を選択して実行します。 ５．フォームに表示された     テキストボックスに半角で「 text 」を入れます。 ６．フォームに表示された     コマンドボタン「全角チェック」を押します。 ７．メッセージボックスに「全角なし」と表示されます ８．フォームに表示された     テキストボックスに半角で「 テキスト 」を入れます。 ９．フォームに表示された     コマンドボタン「全角チェック」を押します。 １０．メッセージボックスに「全角あり」と表示されます -----------VB6.0コーディングここまで------------------- 半角文字であるかどうかは、 StrConv と LenB 関数で バイト数を計測し、1バイトならば半角 2バイトならば全角であると判断しています  If LenB(StrConv(str1Moji, vbFromUnicode)) = 1 Then   '半角   Else   '全角  End If

---

---

　

Copyright(c)2001-2006 Ai Net Makoto 記事・情報の無断転載を禁止します。