• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 28 رای - 2.39 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: راهنمایی در کار با فرم ها
حالت موضوعی
#1
Question 
س !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! دوستان خسته نباشید!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

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

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

 
پاسخ
#2
کد:
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
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
#3
س !!!!!!!!!!!!!

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

 
پاسخ
#4
(06-27-2012، 06:55 PM)Thewolf نوشته: س !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! دوستان خسته نباشید!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

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

دوستان راهنمایی کنید ممنون می شم.!!!!!!
موقع hide بودن فرم(برنامه) انتخاب هست یا نه؟
 
پاسخ
#5
نه، فعال نیست.
:::::::::::::::::::::::::   دیگه میرم ...   :::::::::::::::::::::::::

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

غیر فوکوس ماجراش فرق داره
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
#7
باید مثل کیلاگر ها از GetAnsykey و هوکینگ و امثال اون استفاده کنی یا از Registerhoykey !
باید حرف زورو نشنوم کر شم فقط -- تو نه رفیق ریگی نیست به کفشم نترس

 نه ، نه من تروریست نیستم -- من رو کاغذ می بازم ولی تئوری نیستم

باید دردای دلمو و تو دلم چال کنم -- تا چشمای من یه روزی  یهویی خیس  شن
 
پاسخ
#8
خیلی ممنون !!!

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

 
پاسخ
#9
س !!!!!!!!!!!!!

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

 
پاسخ
#10
(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
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
  


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  نیاز به راهنمایی در مورد VB6 reza_288 0 2,186 10-31-2015، 09:09 PM
آخرین ارسال: reza_288

پرش به انجمن:


Browsing: 1 مهمان