Veep 音

解決

愛新覚羅ふ儀 2006-08-08 18:39:50 No: 96213

お初です。宜しくです。ビジュアルスタジオアカデミックエディション2005でVBをしているのですが、vbKeyReturnが宣言されていないというエラーがでます。どうしたら良いですか？

Private Sub Text1_KeyPress(KeyAscii As Integer)

    'ReturnキーのBEEP音を消す
    If KeyAscii = vbKeyReturn Then KeyAscii = 0

End Sub

うなまな 2006-08-08 18:47:21 No: 96214

上記のコードはどのようにして作成しましたか？
VS2005なら、KeyPressイベントは
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
End Sub
のようになるはずですが・・・

愛新覚羅ふ儀 2006-08-08 19:00:18 No: 96215

他サイトで、頂きました。

う〜ん…。

愛新覚羅ふ儀 2006-08-08 19:23:03 No: 96216

どうしたら良いか教えて下さい。

VBレスキュー(花ちゃん) URL 2006-08-08 19:29:30 No: 96217

参考にするなら VB6.0 用のこーどではなく VB.NET2003 やVB2005用のTipsを
参考にして下さい。

http://hanatyan.sakura.ne.jp/dotnet/txtbox10.htm

愛新覚羅ふ儀 2006-08-08 19:56:24 No: 96218

有難うございました。

Private Sub TextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox.KeyPress

        'Enterキーが押された事を取得
        If e.KeyChar = Chr(Keys.Enter) Then
            e.Handled = True    'KeyPress イベントをキャンセルしBeep音を消音に
        End If

End Sub

愛新覚羅ふ儀 2006-08-08 19:58:38 No: 96219

訂正

有難うございました。下記で上手くいきました。

Private Sub TextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox.KeyPress

        'Enterキーが押された事を取得
        If e.KeyChar = Chr(Keys.Enter) Then
            e.Handled = True    'KeyPress イベントをキャンセルしBeep音を消音に
        End If

End Sub