XProfan

Déclarer ende&,wert&,wert1&,text$, hFileMap&,zielfenster&,slider_h&,slider_v&
declare pointer#
Struct données = w&, w1&, zk$(32)
dim pointer#,données

proc senden

    Si hFileMap&

        pointer# = FileMap("Map", hFileMap&)
        pointer#.w& = wert&
        pointer#.w1& = wert1&
        pointer#.zk$ = text$
        Poster un message(ZielFenster&, $1000, 0, 0)

    EndIf

endproc

windowtitle "slidersend"
window 20,20-300,300
slider_h&=Contrôle("MSCTLS_TRACKBAR32", "Trackbar02",$50000920, 30,40, 200,20, %hwnd, 2011, %hInstance, $00010004)
SendMessage(slider_h&,$0406,0,MakeLong(0,360))
slider_v&=Contrôle("MSCTLS_TRACKBAR32", "Trackbar02",$54000922, 120,80, 20,100, %hwnd, 2011, %hInstance, $00010004)
SendMessage(slider_v&,$0406,0,MakeLong(0,5))
hFileMap& = Créer("FileMap", "Test", 32)
hFileMap& = FileMap("Open", "Test")
pointer# = FileMap("Map", hFileMap&)
shell "slider_sprite_colli_filemap.exe"
sleep 500
ZielFenster& = FindWindow("sliderspritecollifilemap")
ende& = 0

whilenot ende&

    waitinput
    wert&=SendMessage(slider_h&,$0400,0,0)
    wert1&=SendMessage(slider_v&,$0400,0,0)
    senden

endwhile

FileMap("Close", hFileMap&)
Dispose pointer#
end

Cas (GetFocus(slider_h&) | GetFocus(slider_v&)):senden