【】Top

【】VB.NET
【】VB6.0

【】メールマガジンの購読
【】メールマガジンの解除






【】会社概要

【】お問い合わせ


姉妹サイト「バーチャルコネクション!」はこちらです。

姉妹サイト「七福神のメールでビンゴ!」はこちらです。

アイネットマコト

●24時間365日の安心をあなたにAT-LINK専用サーバ・サービスお勧めのサーバです。






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

VB6.0 でも、
全角文字列をすべて含んでいるかどうかをチェックすることが可能です。

この機能を使えば、簡単に、
全角文字のみを受け付けるテキスト入力の機能
など簡単に作成できます。


フォームに次の様なコードを記述します


-----------VB6.0Tコーディングここから-------------------


1.フォームに、テキストボックスコントロール、
    コマンドボタンコントロール
    を配置します。
    下記は、デフォルトのオブジェクトの名前と配置を示しています。

   ┏━━━━━━━━━━━┓
   ┃Text1                 ┃
   ┗━━━━━━━━━━━┛
   ┏━━━━━━━┓
   ┃Command1      ┃
   ┗━━━━━━━┛



2.コマンドボタンコントロールの
    Command1 Caption プロパティに「全角チェック」と記述します。

  ※説明用のためです。必須ではありません。

   ┏━━━━━━━━━━━┓
   ┃Text1                 ┃
   ┗━━━━━━━━━━━┛
   ┏━━━━━━━┓
   ┃全角チェック  ┃
   ┗━━━━━━━┛


3.フォームルを右クリックして、
    コードの編集を開始して、
  次のコードを記述します。


    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



4.実行メニュー「開始」を選択して実行します。

5.フォームに表示された
    テキストボックスに半角で「 text 」を入れます。

6.フォームに表示された
    コマンドボタン「全角チェック」を押します。

7.メッセージボックスに「全角なし」と表示されます


8.フォームに表示された
    テキストボックスに半角で「 テキスト 」を入れます。

9.フォームに表示された
    コマンドボタン「全角チェック」を押します。

10.メッセージボックスに「全角あり」と表示されます



-----------VB6.0コーディングここまで-------------------

半角文字であるかどうかは、 StrConv と LenB 関数で
バイト数を計測し、1バイトならば半角
2バイトならば全角であると判断しています

 If LenB(StrConv(str1Moji, vbFromUnicode)) = 1 Then
  '半角
  Else
  '全角
 End If





 

http://anetm.com/dev/d.cgi?SC=DTDTL&o=Oee

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

「これがほしかった!厳選サンプルツール集」の注意点
●当サイトはリンクフリーです。
2019/03/26(火)00:05 更新