Блог

У меня какая-то проблема, я планирую сделать так, чтобы форма могла скрываться, а форма могла отображаться снова (активировать ее только с помощью горячей клавиши). каков исходный код моей проблемы?

Объявить с помощью этого

 Dim i As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As     Integer
  

затем создайте таймер

 Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyControl) And GetAsyncKeyState(vbKeyR) Then
Frmsav.Show
End If
End Sub
  

этот код использует Ctrl R для отображения вашей формы