コンボボックスの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 CB_LIMITTEXT = &H141

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

End Sub


トップページに戻る

Tips一覧に戻る