英数のみ入力

メッセージ

Ｚ１３

Ｚ１３です。
エディットボックスに英数以外の文字（漢字など）を入力すると、
"英数以外は入力しないでください"　とメッセージを表示させるにはどうすればいいのですか。

ゲスト

こんな感じかな？

[ここをクリックすると内容が表示されます]

コード: 全て選択


Sub MainWnd_EditBox1_Change()
	Dim code[100] As Byte
	Dim length As Long
	Dim hEdit As HWND
	hEdit=GetDlgItem(hMainWnd,EditBox1)
	length=GetWindowTextLength(hEdit)
	GetWindowText(hEdit, code, length+1)
	If IsCharAlphaNumeric(code[length-1])=FALSE Then
		MessageBox(hMainWnd, "英数以外は入力しないでください", "確認", MB_ICONWARNING)
	EndIf
End Sub

エラー処理はご自分で考えてください。

Z13 · #3 投稿記事 by **Z13** » 2007年8月03日(金) 11:06

ありがとうございます。

私は今回のをＡＢ３で作ってるので
ＤｉｍｈＥｄｉｔ　Ａｓ　Ｌｏｎｇ　として
うまくいきました！