掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
テキストの文字入力を半角英数またはカタカナに制限 (ID:100554)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
全角・半角かを判断するところに追加すればできました。 Private Function Bytechk(Value As String) As Boolean Dim LetterCount As Long '文字列の文字数 Dim ByteCount As Long '文字列のバイト数 LetterCount = Len(Value) '入力文字数 ByteCount = LenB(StrConv(Value, vbFromUnicode)) '入力文字のバイト数 If LetterCount <> ByteCount Then '全角ならば txtSendName.IMEMode = imIMEKatakanaSBCS '半角カタカナ入力に指定 txtSendName.Text = "" End If End Function
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.