الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

طلب بسيط خاص بال Hotkeys

بدأه zxcqwe في 6 أغسطس 2008 · 1 رد · 387 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

استخدمت كوداً لاستدعاء البرنامج باستخدام hotkeys عندما يكون minimized ولكن وضعت البرنامج بجوار الساعة فبالتالي وضعت الكود me.hide عندما يكون minimized فلا يعمل الكود الخاص بال hot key

وهذا هو الكود الذي استخدمته

Private Declare Function SendMessage Lib "user32" Alias _

"SendMessageA" (ByVal hwnd As Long, _

ByVal wMsg As Long, ByVal wParam As Long, _

lParam As Long) As Long

Private Declare Function DefWindowProc Lib "user32" _

Alias "DefWindowProcA" (ByVal hwnd As Long, _

ByVal wMsg As Long, ByVal wParam As Long, _

ByVal lParam As Long) As Long

Private Const WM_SETHOTKEY = &H32

Private Const WM_SHOWWINDOW = &H18

Private Const HK_CONTROLR = &H252

Private Sub Form_Load()

erg& = SendMessage(Me.hWnd, WM_SETHOTKEY, HK_HK_CONTROLR , 0)

DefWindowProc Me.hWnd, WM_SHOWWINDOW, 0, 0

End Sub

فما الحل؟؟؟

أرجو الإفادة وشكراً

#2

السلام عليكم

أرجو الاهتمام

مواضيع مشابهة