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

こんな感じかな？

[hide][code]
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
[/code][/hide]
エラー処理はご自分で考えてください。

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