ورود

View Full Version : کلید میانبر در برنامه VB مانند بابیلون


sabair
سه شنبه 28 فروردین 1386, 23:37 عصر
سلام
برنامه نوشته ام به یک مشکل کوچکی برخوردم
می خواهم هنگامی که کلید F10 را فشار می دهیم فرم X اجرا شودیا با کلید کنترل راست کلیک اجرا شود
دقیقا مثل دیکشینری بابیلون
فوری فوری
با تشکر
romina2006
سه شنبه 28 فروردین 1386, 23:56 عصر
Const VK_RBUTTON = &H2
Const VK_F10 = &H79
Private Declare Function GetKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer
Private Sub Timer1_Timer()
Dim keystate As Integer
Dim keystate1 As Integer
keystate = GetKeyState(VK_F10)
keystate1 = GetKeyState(VK_RBUTTON)
If keystate And &H8000 Then Form2.Show
If keystate1 And &H8000 Then Form2.Show
End Sub
sgb110
چهارشنبه 29 فروردین 1386, 01:37 صبح
سلام
البته حتما کد romina2006 کاملتر اما فکر کنم از کد زیر هم بشه استفاده کرد

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 121 Then Form2.Show
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then Form2.Show
End Sub
sabair
چهارشنبه 07 شهریور 1386, 18:13 عصر
Const VK_RBUTTON = &H2
Const VK_F10 = &H79
Private Declare Function GetKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer
Private Sub Timer1_Timer()
Dim keystate As Integer
Dim keystate1 As Integer
keystate = GetKeyState(VK_F10)
keystate1 = GetKeyState(VK_RBUTTON)
If keystate And &H8000 Then Form2.Show
If keystate1 And &H8000 Then Form2.Show
End Sub


متشکرم از شما دوست عزیز
لطفا اگر بخواهیم با کلید های ترکیبی این کار انجام دهیم چگونه است.
مثلا کلید Ctrl +f1
یا
ctrl+shift +f1
با تشکر