|
|
|
2014年05月13日
カテゴリ：プログラミング
範囲選択時に線がだせたらなーって思ってお試し。
※いろいろ間違えてるかも。 def_dll CreateDCA(string,string,string,string):long:gdi32.dll def_dll DeleteDC(hwnd):long:gdi32.dll def_dll DrawFocusRect(hwnd,{long,long,long,long}):long:User32.dll def_dll InvalidateRect(hwnd,{long,long,long,long}):long:user32.dll dc = CreateDCA("DISPLAY","DISPLAY",null,null) while getkeystate(vk_ctrl)=false;sleep(0.01)//CTRL押しで抜けて終了 x = g_mouse_x;y=g_mouse_y ifb getkeystate(vk_lbutton) then//左クリック時に mouX = g_mouse_x;mouY=g_mouse_y while getkeystate(vk_lbutton);sleep(0.05) x = g_mouse_x;y = g_mouse_y x1=MouX ;y1=MouY x2=x ;y2=y ifb x1 > x2 then x2 = mouX;x1 =x//始点終点の入れ替え endif ifb y1 > y2 then y2 = MouY;y1 =y endif hwnd = idtohnd(getid(get_frompoint_win)) InvalidateRect(null,x1-2,Y1-2,x2+4,y2+4,1)//無効領域。+4とかはいらないかも sleep(0.05)//ちょっと間を置かないと線が消える drawfocusrect(dc,x1,y1,x2,y2)//四角い線を書く //クリックされている間待機させチラつき防止 while x = g_mouse_x and y = g_mouse_y;sleep(0.01) if getkeystate(vk_lbutton) = false then break wend wend endif wend deleteDC(dc) お気に入りの記事を「いいね！」で応援しよう
最終更新日
2014年05月14日 01時47分47秒
コメント(0) | コメントを書く
[プログラミング] カテゴリの最新記事
|
|
