PDA

View Full Version : از کار انداختن دکمه های windows و ALT ( بحث مفید !!!!!!!!!!)



تبار
پنج شنبه 20 آذر 1382, 00:37 صبح
سلام
جواب این سوال در برنامه‌ها ظاهر حرفه‌ای‌تری به آنها می‌دهد . 8)
چطور میشود دکمه هایی مثل دکمه Windows یا ALT یا مثل اینها را از کار انداخت ؟ :o
توجه شما را به این نکات جلب می کنم :
1- در رویداد KeyPress .این نوع کلیدها قابل ردگیری نیستند.
2- در KeyDown یا KeyUpمتغیر KeyCode مقدار آنها را می آورد ولی فقط می شود این مقدار را خواند و تغییر مقدار آن کاری نمی‌کند.
حالا بگویید .
:skull:

Developer Programmer
جمعه 21 آذر 1382, 22:01 عصر
خود MSDN گفته که نمی شه
من سعی کردم به عنوان HotKey ازشون استفاده کنم اما به PeekMessage و SendMessage جواب نداد

تبار
یک شنبه 23 آذر 1382, 01:22 صبح
راستش این سوال را در vbcity ویک جواب هم این بود . منتها دوست دارم نظر دوستان را بدانم.

Private Declare Function SystemParametersInfo Lib "user32" _
Alias "SystemParametersInfoA" (ByVal uAction As Long, _
ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long

Private Const SPI_SCREENSAVERRUNNING = 97

Dim ret As Integer
Dim pOld As Boolean

Private Sub Form_Load()
'The line below calls the function and passes
'the constant and TRUE to fool Windows into thinking
'the screensaver is running and FALSE to do the opposite...


ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)

End Sub

Private Sub Form_Unload(Cancel As Integer)
'NOTE: THIS MUST BE SET TO FALSE WHEN
'THE FORM OR APP CLOSES
'If you do not set it to false, these keys will not work
'with any app, or with anything in the Windows Environment...

ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)

End Sub

کم حوصله
جمعه 05 دی 1382, 14:50 عصر
آقا تیار عزیز آدرس کامل vbcity را میدی ما یک جستجو کردیم 10000000000000000000000 لینک آورد :wink: :mrgreen:

Omid.Mafakher
جمعه 05 دی 1382, 17:08 عصر
-------------------------------------