07/08/01 23:40:12 6YU1zlws
>>370
TrackMouseEvent WM_MOUSELEAVE 辺りをググればおｋ
#uselib "user32.dll"
#func TrackMouseEvent "TrackMouseEvent" int
dim tme,4
tme(0) = 16
tme(1) = 2
tme(2) = hwnd
tme(3) = 0
oncmd gosub *SUB_WM_MOUSEMOVE,0x200
oncmd gosub *SUB_WM_MOUSELEAVE,0x02A3
stop
*SUB_WM_MOUSEMOVE
TrackMouseEvent varptr(tme)
redraw 0:color 255,255,255:boxf:color:pos 320,240:line mousex,mousey:redraw 1
return
*SUB_WM_MOUSELEAVE
redraw 0:color 255,255,255:boxf:color:pos 320,240:mes "外に出たよ":redraw 1
return