Använder nu mousewheel för att öka/minska storleken på typsnittet i några textrutor.
Det fungerar bra.

Egentligen används ju mousewheel för att scrolla upp och ned i rutan om det är så mycket
text i den så att det inte ryms.

Det skulle jag vilja fortsätta med och istället använda exempelvis CTRL+Mousewheel för
att öka/minska storleken på typsnittet.
Kan tänka mig att lösa det på annat sätt såsom att trycka ned en musknapp eller annat.

Hur jag ändrar storleken av typsnittet vet jag, men vad jag inte kan är att känna av då både
CTRL-knappen är nedtryckt och att mushjulet flyttas.

/Pontus

    Private controlDown As Boolean = False
    Private maxSize As Single = 32
    Private minSize As Single = 6

    Private Sub ListBox1_MouseWheel(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseWheel
        If controlDown Then
            If e.Delta < 0 Then 'scrollas nedåt, öka teckensnittet
                If Not ListBox1.Font.Size >= maxSize Then
                    ListBox1.Font = New Font(ListBox1.Font.FontFamily, ListBox1.Font.Size + 1)
                End If
            Else 'om uppåt minska teckensnittet
                If Not ListBox1.Font.Size <= minSize Then
                    ListBox1.Font = New Font(ListBox1.Font.FontFamily, ListBox1.Font.Size - 1)
                End If
            End If
        End If
    End Sub

    Private Sub ListBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ListBox1.KeyDown
        If e.Control Then 'Om Ctrl har tryckts ner
            controlDown = True
        End If
    End Sub

    Private Sub ListBox1_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ListBox1.KeyUp
        If e.Control Then 'Om Ctrl fortfarande är nertryckt
            controlDown = False
        End If
    End Sub

Borde inte ena händelsehanteraren vara Listbox1_KeyUp, och sätta controlDown till false?

Tack Cecilia, det fungerar utmärkt!
Fick använda även KeyUp, som Tom föreslog, för att sätta controldown till False.

/Pontus

Blev ett litet copy-paste fel där, har justerat koden nu.

Hej igen!

Jag fick faktiskt inte ditt förslag i KeyUp att fungera.
Gjorde så här istället.

If e.KeyCode = Keys.ControlKey Then
controlDown = False
End If