🚀 go-pugleaf

In article <6d0k75$r2i$1@nn-os001.ocn.ad.jp>, Kuniyoshi Mohri wrote:
>ＶＢ５の標準のコントロールのコンボボックスで、
>．Ｓｔｙｌｅが０（ドロップダウンコンボ）のとき、入力する文字数を制限するには
>どうしたらよろしいのでしょうか？

面白そうなので、ちょっと考えてみました。

Private Sub Combo1_KeyPress(KeyAscii As Integer)

    Const MAXLEN As Integer = 10
    Dim InputLen As Integer
    
    Select Case KeyAscii
        Case 22: InputLen = Len(Clipboard.GetText())
        Case 0 To 31: InputLen = 0
        Case Else: InputLen = 1
    End Select
    
    If Len(Combo1.Text) - Combo1.SelLength + InputLen > MAXLEN Then
        KeyAscii = 0
    End If

End Sub

ぱっと思い付いたコードなので、やらなければいけない処理が
他にもあるかもしれません。

-- 
Computer Institute of Japan, Ltd.
佐藤正宏 masahiro@cij.co.jp