vorrei fare in modo che alla pressione di su o giu si muovano le scrollbars... ho provato cosi
codice:
Private Sub Form_KeyPress(KeyAscii As Integer)
ScrollBars
If KeyAscii = vbKeyDown Then
VScroll.Value = VScroll.Value + 10
End If
If KeyAscii = vbKeyUp Then
VScroll.Value = VSrcoll.Value - 10
End If
ScrollBars
End Sub
ma non succede nulla...
forse è importante farvi sapere che il form con le scrollbars che voglio muovere si trova in un MDIForm?
ho provato anche keydown...
codice:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
ScrollBars
Select Case KeyCode
Case vbKeyDown
VScroll.Value = VScroll.Value + 10
Case vbKeyUp
VScroll.Value = vsrcoll.Value - 10
End Select
ScrollBars
End Sub