入力文字の制限 (ID:79728)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 SendMessage()APIを使用し、テキストボックスにバイト数制限をかけたらたらどうでしょう？ 【定義】 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 【使用例】 'text1テキストボックスを ４バイトに制限 SendMessage text1.hwnd, EM_LIMITTEXT, 4, 0