Combobox uden scroll. Windows. VB.NET

Kunne dette måske være en ide?

    ComboBox1.MaxDropDownItems = ComboBox1.Items.Count

Med venlig hilsen

Janus Kamp Hansen

Tak for buddet, men det løser ikke mit problem, som mere præcist er, at hvis man stiller sig i boxen, uden at droppe den down, kan man scrolle i den.
Dvs. at hvis man åbner formen og boxen har focus, og man kommer til at scrolle på museknappen, skifter værdien i boxen, - måske uden at man opdager det -. "Uhensigtsmæssigt":-)

Nå, men så er det jo en anden sag.

Du laver dit egen nedarvede komponent; Således:

Public Class CustomComboBox
  Inherits ComboBox

  Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
    Const WM_MOUSEWHEEL As Int32 = &H20A
    If m.Msg <> WM_MOUSEWHEEL Then
      MyBase.WndProc(m)
    End If
  End Sub

End Class

Så ændrer du:
Friend WithEvents ComboBox1 As System.Windows.Forms.Combobox
til:
Friend WithEvents ComboBox1 As CustomComboBox

og lidt længere nede i koden, ændres fra:
Me.ComboBox1 = New System.Windows.Forms.Combobox
til:
Me.ComboBox1 = New test.CustomComboBox

Med venlig hilsen

Janus Kamp Hansen

Sorry, nederste linie skal se således ud:
Me.ComboBox1 = New CustomComboBox

(Mit lille projekt hedder "Test", derfor var den prefixed)

Janus Kamp Hansen

Bedste Janus!

Min dag er reddet!
Det virker helt efter bogen:-)
Tusind tak for det.

Er det noget du selv har fremtryllet, eller hvor er du stødt på koden henne?

De bedste hilsner
Anders

Jeg studsede lige over det på denne her side:

http://www.dotnet247.com/247reference/msgs/46/230478.aspx

Her er det dog et listview, hvor man disabler mousewheel.

Janus Kamp Hansen

Tak for det!