タイトル : TextBoxの桁数制限 投稿日 : 2005/04/22(Fri) 10:11 投稿者 : つかさ
[OSのVer]:WindowsXP [VBのVer]:VB.NET VB6.0の時は、SendMessage関数にて入力桁数の制限を行なっていました。 VB.NETに移行しましたが自由に指定桁数以上に入力可能になります。 プログラムでチェックする事も可能だとは思いますが、あまりスマートでは ないので、何か良い手段はないでしょうか? それともSendMessage関数の引数や使い方が間違っているのでしょうか? 宜しくお願いします。 -------------------------------------------------- Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( ByVal hWnd As IntPtr, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Integer) As Integer Public Const EM_LIMITTEXT As Long = &HC5 Public Const EM_SETLIMITTEXT As Long = EM_LIMITTEXT -------------------------------------------------- DIM DI_MaxLen AS Integer DI_MaxLen = 10 TextBox1.MaxLength = 0 Call SendMessage(TextBox1.Handle, EM_SETLIMITTEXT, DI_MaxLen, 0&) |