タイトル : Re: TextBoxの桁数制限 投稿日 : 2005/04/22(Fri) 11:25 投稿者 : 花ちゃん
下記に変更して見て下さい。 直接の原因は 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) |