請問滑鼠模擬滾輪... |
尚未結案
|
stockton2
一般會員 發表:3 回覆:2 積分:1 註冊:2003-06-10 發送簡訊給我 |
|
gemi0305
版主 發表:81 回覆:564 積分:629 註冊:2003-05-11 發送簡訊給我 |
|
gemi0305
版主 發表:81 回覆:564 積分:629 註冊:2003-05-11 發送簡訊給我 |
小試了一下,利用RichEdit來試,把ScrollBar叫出來,
再用這個小程式,按滑鼠左、右鍵~
但是還沒辨法完全駕馭它~ 晚點有空再來試 < class="code">
void __fastcall TForm1::RichEdit1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
switch (Button)
{
case mbLeft:
mouse_event(MOUSEEVENTF_WHEEL,0,0,120,0);
break;
case mbRight:
mouse_event(MOUSEEVENTF_WHEEL,0,0,-120,0);
break;
}
} 國泰平安 發表人 - Gemi0305 於 2003/09/19 18:20:45
|
gemi0305
版主 發表:81 回覆:564 積分:629 註冊:2003-05-11 發送簡訊給我 |
經過再一次的測試,我也不好意思再灌了水~~
所以就是最後的測試。 我用 class="code">
void __fastcall TForm1::RichEdit1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
switch (Button)
{
case mbLeft:
if(CheckBox1->Checked)
mouse_event(MOUSEEVENTF_WHEEL,0,0,120,0); //字型變大
else
mouse_event(MOUSEEVENTF_WHEEL,0,0,-120,0); //字型變小
break;
case mbRight:
if(CheckBox1->Checked)
mouse_event(MOUSEEVENTF_WHEEL,0,0,120,0); //ScrollBar往上翻
else
mouse_event(MOUSEEVENTF_WHEEL,0,0,-120,0); //ScrollBar往下翻
break;
}
} 發現,原來搭了不同鍵,其效果就會不同,
像左鍵是變化字型,而右鍵是滾動ScrollBar~ 這個在Online Help沒有說到,真是暗藏玄機~
各位如果有興趣,可以在不同的元件下試試 國泰平安
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |