カタカナ判定 (ID:118466)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 VB6.0 なら下記ではどうでしょうか？ 'Microsoft VBScript Regular Expressions 5.5 を参照設定して下さい Private Sub Text1_Change() Dim Reg As New RegExp Reg.Pattern = "[\uFF61-\uFF9F]" If Reg.Test(StrConv(Text1.Text, vbNarrow)) Then MsgBox "カタカナが混じっています" End If End Sub