テキストボックスのMaxLength制御

 


'フォームにテキストボックスを貼り付けて実行する

Option Explicit

Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Long) As Long

Private Const EM_LIMITTEXT = &HC5

Private Sub Form_Load()
'5バイトに制限
SendMessage Text1.hwnd, EM_LIMITTEXT, 5, 0

End Sub


トップページに戻る

Tips一覧に戻る