PDA

View Full Version : زیاد کردن سرعت موس Mouse speed



Plus.Plus
یک شنبه 14 اسفند 1384, 16:56 عصر
Salam be tamame baxaye bahale barnamenevis.org ye soal hayatii dashtam khedmatetoon chi? Beporsam? bashe alan

khob dostane aziz mikhastam begam ke age kasi to in zamine komakam kone kheyli kheyli mamnon misham

dige "زیاد کردن سرعت موس" chi? miporsi zamine chiye? khob zamine ine

meh_secure
یک شنبه 14 اسفند 1384, 18:08 عصر
دوست عزیز سوالت رو درست بپرس.
من که شخصا چیزی متوجه نشدم. اگه می خوای سرعت ماوس رو زیاد کنی برو تو کنترل پنل خوبه ؟؟؟!

Zero.Zero
یک شنبه 14 اسفند 1384, 18:13 عصر
:)))))))))))) meh_secure joun Plus.Plus manzouresh ine ke az to vb ba estefade az Code chejouriye?

meh_secure
یک شنبه 14 اسفند 1384, 18:16 عصر
شما از کجا فهمیدید که منظورش اینه؟

Zero.Zero
یک شنبه 14 اسفند 1384, 18:24 عصر
khob age man zouresh in nabood to ghesmate VB nemizasht ke(IQ)eeeeee

meh_secure
یک شنبه 14 اسفند 1384, 18:32 عصر
اینجوریا هم که میگی نیست. بارها مشاهده شده که سوالات در بخش هایی که اصلا ربطی به اونها نداشته اند پرسیده شده.

The One
دوشنبه 15 اسفند 1384, 16:48 عصر
خوب منم این مشکل بو VB دارم اگه کسی بگه ممنون میشم

The One
دوشنبه 15 اسفند 1384, 16:49 عصر
خوب منم این مشکل بو VB دارم اگه کسی بگه ممنون میشم

vbhamed
چهارشنبه 01 شهریور 1391, 10:07 صبح
سلام

Private Declare Function SystemParametersInfo Lib "user32" Alias _
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _
ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Const SPI_SETMOUSESPEED = 113
Const SPI_GETMOUSESPEED = 112

Private Sub Form_Load()

' modify the mouse speed to make it as fast as possible
Dim Speed As Long
Speed = 20
SystemParametersInfo SPI_SETMOUSESPEED, 0, ByVal Speed, 0

End Sub