س !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! دوستان خسته نباشید!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
چه طور می شه فرم ما هنگام اجرا Hide باشه اما وقتی که کلید F12+F5 زده شه فرم Show بشه.
دوستان راهنمایی کنید ممنون می شم.!!!!!!
کد:
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
س !!!!!!!!!!!!!
ببخشید !!!! اما آقا امین ج نداد !!!!!!!!! خودت این کد امتحان کردی ؟
(06-27-2012، 06:55 PM)Thewolf نوشته: [ -> ]س !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! دوستان خسته نباشید!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
چه طور می شه فرم ما هنگام اجرا Hide باشه اما وقتی که کلید F12+F5 زده شه فرم Show بشه.
دوستان راهنمایی کنید ممنون می شم.!!!!!!
موقع hide بودن فرم(برنامه) انتخاب هست یا نه؟
این کد واسه وقتیه که رو فرم فوکوس داشته باشید.
غیر فوکوس ماجراش فرق داره
باید مثل کیلاگر ها از GetAnsykey و هوکینگ و امثال اون استفاده کنی یا از Registerhoykey !
خیلی ممنون !!!
ولی چه نوع کدی رو واسه این کار پیشنهاد می کنید ؟
س !!!!!!!!!!!!!
کسی از دوستان نمی تونه این مشکل من رو حل کنه ؟
(06-30-2012، 01:59 PM)Thewolf نوشته: [ -> ]س !!!!!!!!!!!!!
کسی از دوستان نمی تونه این مشکل من رو حل کنه ؟
بیا
دکمه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