Re[2]: TextBoxのBeep音を消す方法


[コメントツリー表示を見る] [発言時刻順表示を見る]

Posted by ao on 2001/03/09 14:25:07

In Reply to: Re: TextBoxのBeep音を消す方法 Posted by Uz on 2001/03/08 19:13:54


    > 再現できる最低限のコードを提示してくれると、確かめようがあるんですが。
    > (特殊なOCX使ってると、こっちではチェックできないけど)

    コードではなく、MaxLengthが絡むと駄目なようです。
    試したのは以下のコードです。
    ROFM上にTextBoxとボタンを配置します。
    TextBoxの方のMaxLenght=5とし、「12345」→ENTERとすると
    音が鳴った後にフォーカス遷移します。
    MaxLengthはEnterも入力値とみなすんでしょうか?

    Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then 'Enterだったら
    SendKeys "{TAB}" 'TABキーに置き換える
    KeyAscii = 0 '当イベント内でのEnterキー処理を終了させる
    End If

    End Sub


記事スレッド一覧