Question

VB Keyup Keydown事件

这样的  有image1和image2如果摁下F则image1显示 image2不显示如果抬起F则image1不显示  image2显示程序怎么写？谢谢

Answer 1

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    If KeyCode = 70 Or KeyCode = 102 Then   '大写的F和小写的f

        Image1.Visible = True

        Image2.Visible = False

    End If

End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

    If KeyCode = 70 Or KeyCode = 102 Then

        Image2.Visible = True

        Image1.Visible = False

    End If

End Sub

Answer 2

keydown,keyup,keypress是键盘操作事件，和鼠标无关，举的例子在key系列事件中无效。 键盘事件的顺序是keydown——〉keypress——〉keyup。 keydown事件

Answer 3

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 70 Then
Image1.Visible = True
Image2.Visible = False
End If
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Image1.Visible = False
Image2.Visible = True
End Sub