[OSのVer]：Windows2000　　　　[VBのVer]：VB.NET　　

コンボボックスのDropDownStyleプロパティを DropDown にして、
このコンボボックスのKeyPressイベントに、以下のコードを
記述しました。
  
    if e.KeyChar = chr(Keys.Enter) then
        e.Handled = True
        textBox1.Select   '次のコントロールへ
    end if

実行すると、コンボボックスの改行キー押下時にビープ音が
なってしまいます。
DropDownStyleプロパティがDropDown以外では、
ビープ音がならないのですが・・・

どなたか対策方法をご教授いただけないでしょうか？

投稿された状態では、Beep 音は鳴りません（3スタイル共鳴りません）が、
他の処理等の関係等（エラー音等）であれば解りません。

    Private Sub ComboBox1_KeyPress(ByVal sender As Object, _
           ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboBox1.KeyPress
        If e.KeyChar = Chr(Keys.Enter) Then
            e.Handled = True
            TextBox1.Select() '次のコントロールへ
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.DropDownStyle = ComboBoxStyle.DropDown
        ComboBox1.Items.Add("あいうえお")
        ComboBox1.Items.Add("かきくけこ")
    End Sub

再現できるコードを投稿して見て下さい。

花ちゃんさん、早速のレスありがとうございました。

> 投稿された状態では、Beep 音は鳴りません（3スタイル共鳴りません）が、
> 他の処理等の関係等（エラー音等）であれば解りません。

> 再現できるコードを投稿して見て下さい。

新規フォームでコンボボックスとテキストボックスを貼り付け、
記載したコードを書いているだけなんです。
なのでコンボボックスには、Item が無い状態です。
言葉足らずで申し訳ありませんでした。

> 新規フォームでコンボボックスとテキストボックスを貼り付け、
> 記載したコードを書いているだけなんです。
それなら音がでないはずですが（私が投稿したコードがそれですが）

私の投稿したコードではBeep音がしません。
私のコードと同じコードなのか？私のコードを試してどうなのか？

それでもBeep音がでるならそのコードを投稿して貰わないと原因が解らないのでは
投稿された一部のコードも実際に使用されているコードをコピー＆ペーストされた
ものではないですよね！

[OSのVer]：Windows2000　　　　[VBのVer]：VB.NET 2002 　.NET Framework SDK 1.0

検証ありがとうございました。
花ちゃんさんのコードをペーストした結果もビープ音がなりました。
環境の違いなのでしょうか？？
こちらでもう少し調べてみます。
ありがとうございました。



　

[OSのVer]：Windows2000　　　　[VBのVer]：VB.NET2003　　
    Private Sub ComboBox1_KeyPress(ByVal sender As Object, _
           ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboBox1.KeyPress
        'If e.KeyChar = Chr(Keys.Enter) Then
        '    e.Handled = True
        '    TextBox1.Select() '次のコントロールへ
        'End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.DropDownStyle = ComboBoxStyle.DropDown
        ComboBox1.Items.Add("あいうえお")
        ComboBox1.Items.Add("かきくけこ")
    End Sub

一応、これで再現できました(？)。
音からするとシステムの『一般の警告音』です。テキストボックスでリターンキー
押下でも鳴ります。ComboBoxStyle.DropDown にするとテキストボックスと同じような
動作をしますのでその辺が影響してるのかと。
対処方法は…
   e.Handled = True
なハズなんですが…うむー。

ちょっと検索して調べて見たのですが、同様の事例が何件かありました。
バージョンが書いてないのと、MSDNの方ではその件の資料がみつかりませんでしたので
原因は解りませんが、対処法は、SystemParametersInfo APIを使用すればBeep音については
解決できます。（確認済み）

hhttp://homepage1.nifty.com/MADIA/vb/vb_bbs2/200308_03080054.html

[OSのVer]：Windows2000　　　　[VBのVer]：VB.NET2002

ご回答ありがとうございました。
APIを宣言し、以下のコードを記述したのですが、
やっぱりビープ音が鳴ってしまうのです。

    Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load

        ComboBox1.DropDownStyle = ComboBoxStyle.DropDown

        Call SystemParametersInfo(SPI_SETBEEP, _
Convert.ToUInt32(0), Nothing, Convert.ToUInt32(0))

    End Sub

    Private Sub cbo_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) _
                                Handles ComboBox1.KeyPress
        If e.KeyChar = Chr(Keys.Enter) Then
            e.Handled = True
            TextBox1.Select()
        End If
    End Sub

失礼ですが、APIの宣言の部分は問題ないのでしょうか？

Beep 音事態の設定を無効にしてしまうので、Microsoft.VisualBasic.Beep() を実行
しても鳴らなくなるはずですが、e.Handled = True も必要ないし、TextBox 上でも鳴らなく
なってしまうはずですが。

APIを実行後下記を実行してBeepが鳴りますか。
（又は TextBox 上で Enter でも同じですが。）
鳴れば、私には解りません。
鳴らなければ、Beep音ではなく、エラー音等かも知れませんが？

    Private Sub Button1_Click(ByVal sender As System.Object, _
                              ByVal e As System.EventArgs) Handles Button1.Click
       Microsoft.VisualBasic.Beep()
    End Sub

[OSのVer]：Windows　　　　[VBのVer]：VB.NET　　

教えていただいたリンク先のPreProcessMessageをオーバーライドする
方法でうまくいきました。（ただし、コンボボックスは派生クラスで）
ありがとうございました。大変お手数をおかけしました。