タイトル : Re^2: TextBoxの桁数制限 投稿日 : 2005/04/22(Fri) 13:19 投稿者 : つかさ
[OSのVer]:Windows [VBのVer]:VB.NET > 下記に変更して見て下さい。 > > 直接の原因は ByVal wMsg As Long の部分ですが、他も修正した方がいいかと。 > Long 型 → Integer 型 へ > > Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" ; _ > (ByVal hWnd As IntPtr, ByVal wMsg As Integer, _ > ByVal wParam As Integer, ByVal lParam As Integer) As Integer > > Public Const EM_LIMITTEXT As Int32 = &HC5 > Public Const EM_SETLIMITTEXT As Int32 = EM_LIMITTEXT > > 0& の& は外す > Call SendMessage(TextBox5.Handle, EM_SETLIMITTEXT, DI_MaxLen, 0) 早速の回答ありがとうございます。 上記提案通り行なってみましたが、やはり文字としてしかチェックされませんでした。 半角での桁数チェックは正常に行なわれているようですが、全角が含まれるとやはり 文字として扱われる様です("あいう1234"は7桁)。 こまりました・・・。 |