ab.com コミュニティ

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

こんな感じかな？


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

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

ありがとうございます。

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

ab.com コミュニティ

英数のみ入力

英数のみ入力