让窗体的KeyPreView=True
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 83 And Shift = 2 Then'Ctrl+S
DataReport1.Show
End If
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 83 And Shift = 2 Then'Ctrl+S
DataReport1.Show
End If
End Sub
然后调用相应的方法。