VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2004/05/17(Mon) 12:46
投稿者： 黒影
Ｅメール：
ＵＲＬ：
タイトル： Re^3: 補足

> ペーストした場合や半角カタカナを有効にしたい場合は、個別にチェックする必要があるのでは。

あ〜そうですね！
そこまで頭がまわりませんでした．．．f^^;)

では、こんな感じでどうでしょう？（長くなってしまったので改行してます）

If LenB(StrConv(Mid(Text1.Text, 1, Len(Text1.Text)), vbFromUnicode)) <> _
   Len(Text1.Text) 　Then
    MsgBox "全角文字があります。"
End If

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -