Private Sub Command1_Click(index As Integer)

来源：百度知道 编辑：UC知道 时间：2024/07/08 11:15:08
Private Sub Command1_Click(index As Integer)
Form1.Print Command1(index).Caption
End Sub

Private Sub Form_Load()
For i = 0 To 2
Command1(i).Caption = "第" & (i + 1) & "个命令按钮"
Next i
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode = vbKeyF5) And (Shift = vbAltMask) Then End
End Sub
为什么按alt+F5关闭不了啊

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode = vbKeyF5) And (Shift = vbAltMask) Then
End'请您看看这里
End If'与您上面的有什么不同呢?
End Sub

'还有,请注意Form1的KeyPreview 属性是否为True ,您看看这样可以吗?

你应该把事件也写在command的keydown中。
Private Sub Command1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If (KeyCode = vbKeyF5) And (Shift = vbAltMask) Then End

End Sub

你这思路挺好玩的，直接按Alt+F4不就关掉了么，还不用写代码。