[Thewolf]

س !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! دوستان خسته نباشید!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

چه طور می شه فرم ما هنگام اجرا Hide باشه اما وقتی که کلید F12+F5 زده شه فرم Show بشه.

دوستان راهنمایی کنید ممنون می شم.!!!!!!

[Amin_Mansouri]

کد:

Private Sub Form_Load()
Me.Hide ' makhfi kardan form
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF22 + vbKeyF5
Me.Show
Case Else
End Select
End Sub

[Thewolf]

س !!!!!!!!!!!!!

ببخشید !!!! اما آقا امین ج نداد !!!!!!!!! خودت این کد امتحان کردی ؟

[Ghoghnus]

س !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! دوستان خسته نباشید!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

چه طور می شه فرم ما هنگام اجرا Hide باشه اما وقتی که کلید F12+F5 زده شه فرم Show بشه.

دوستان راهنمایی کنید ممنون می شم.!!!!!!

موقع hide بودن فرم(برنامه) انتخاب هست یا نه؟

[Thewolf]

نه، فعال نیست.

[Amin_Mansouri]

این کد واسه وقتیه که رو فرم فوکوس داشته باشید.

غیر فوکوس ماجراش فرق داره

[Kei armin]

باید مثل کیلاگر ها از GetAnsykey و هوکینگ و امثال اون استفاده کنی یا از Registerhoykey !

[Thewolf]

خیلی ممنون !!!

ولی چه نوع کدی رو واسه این کار پیشنهاد می کنید ؟

[Thewolf]

س !!!!!!!!!!!!!

کسی از دوستان نمی تونه این مشکل من رو حل کنه ؟

[Amin_Mansouri]

س !!!!!!!!!!!!!

کسی از دوستان نمی تونه این مشکل من رو حل کنه ؟

بیا

دکمهf12 بزن فرمتو نمایش میده

کد:

Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Form_Load()
Me.Hide
End Sub
Private Sub Timer1_Timer()
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
If i = "123" Then Me.Show
End If
Next i
End Sub

یه تایمر روی فرمت بزار تایم هم بده روی 1