+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: راهنمایی در کار با فرم ها (/showthread.php?tid=2512)
صفحات
1
2
راهنمایی در کار با فرم ها - Thewolf - 06-27-2012
س !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! دوستان خسته نباشید!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
چه طور می شه فرم ما هنگام اجرا Hide باشه اما وقتی که کلید F12+F5 زده شه فرم Show بشه.
دوستان راهنمایی کنید ممنون می شم.!!!!!!
RE: راهنمایی در کار با فرم ها - Amin_Mansouri - 06-27-2012
کد:
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 SubRE: راهنمایی در کار با فرم ها - Thewolf - 06-28-2012
س !!!!!!!!!!!!!
ببخشید !!!! اما آقا امین ج نداد !!!!!!!!! خودت این کد امتحان کردی ؟
RE: راهنمایی در کار با فرم ها - Ghoghnus - 06-28-2012
(06-27-2012، 06:55 PM)Thewolf نوشته: س !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! دوستان خسته نباشید!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!موقع hide بودن فرم(برنامه) انتخاب هست یا نه؟
چه طور می شه فرم ما هنگام اجرا Hide باشه اما وقتی که کلید F12+F5 زده شه فرم Show بشه.
دوستان راهنمایی کنید ممنون می شم.!!!!!!
RE: راهنمایی در کار با فرم ها - Thewolf - 06-29-2012
نه، فعال نیست.
RE: راهنمایی در کار با فرم ها - Amin_Mansouri - 06-29-2012
این کد واسه وقتیه که رو فرم فوکوس داشته باشید.
غیر فوکوس ماجراش فرق داره
RE: راهنمایی در کار با فرم ها - Kei armin - 06-29-2012
باید مثل کیلاگر ها از GetAnsykey و هوکینگ و امثال اون استفاده کنی یا از Registerhoykey !
RE: راهنمایی در کار با فرم ها - Thewolf - 06-29-2012
خیلی ممنون !!!
ولی چه نوع کدی رو واسه این کار پیشنهاد می کنید ؟
RE: راهنمایی در کار با فرم ها - Thewolf - 06-30-2012
س !!!!!!!!!!!!!
کسی از دوستان نمی تونه این مشکل من رو حل کنه ؟
RE: راهنمایی در کار با فرم ها - Amin_Mansouri - 06-30-2012
(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