CTRL+Mousewheel i textruta
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
Svara
Sv: CTRL+Mousewheel i textruta
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | Private controlDown As Boolean = FalsePrivate maxSize As Single = 32Private minSize As Single = 6Private 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 IfEnd SubPrivate 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 IfEnd SubPrivate 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 IfEnd Sub |
Svara
Sv:CTRL+Mousewheel i textruta
Borde inte ena händelsehanteraren vara Listbox1_KeyUp, och sätta controlDown till false?
Svara
Sv:CTRL+Mousewheel i textruta
Tack Cecilia, det fungerar utmärkt!
Fick använda även KeyUp, som Tom föreslog, för att sätta controldown till False.
/Pontus
Svara
Sv:CTRL+Mousewheel i textruta
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
Svara