| |
|
|
funkheld | Hallo, guten Tag. Ich möchte bitte die Daten vom Slider nur senden "proc senden", wenn einer bewegt wurde. Wie kann man das bitte machen ?
Danke. Gruss
Declare ende&,wert&,wert1&,text$, hFileMap&,zielfenster&,slider_h&,slider_v&
declare pointer#
Struct Daten = w&, w1&, zk$(32)
dim pointer#,Daten
proc senden
If hFileMap&
pointer# = FileMap("Map", hFileMap&)
pointer#.w& = wert&
pointer#.w1& = wert1&
pointer#.zk$ = text$
PostMessage(ZielFenster&, $1000, 0, 0)
EndIf
endproc
windowtitle "slidersend"
window 20,20-300,300
slider_h&=Control("MSCTLS_TRACKBAR32", "Trackbar02",$50000920, 30,40, 200,20, %hwnd, 2011, %hInstance, $00010004)
SendMessage(slider_h&,$0406,0,MakeLong(0,360))
slider_v&=Control("MSCTLS_TRACKBAR32", "Trackbar02",$54000922, 120,80, 20,100, %hwnd, 2011, %hInstance, $00010004)
SendMessage(slider_v&,$0406,0,MakeLong(0,5))
hFileMap& = Create("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
|
|
|
| |
|
|
|
Georg Teles | Hmm wie wäre es hiermit ?
Problem hier, er senden permanent solange Fokus auf einem der beiden Slider ist, da würde ich noch mit der Message, welche die Maustaste beim Loslassen setzt, unden - gerade kein funktionierendes Beispiel parat da sry
Servus |
|
|
| |
|
|
|
funkheld | Hallo danke per die Info.
Gruss |
|
|
| |
|
|
|
Matthias Arlt |
...Message, welche die Maustaste beim Loslassen setzt...
Bei WM_NOTIFY steht dann NM_RELEASEDCAPTURE (-16) in %notifycode und das Slider-Handle in ¬ifywnd. Damit bist Du auf der sicheren Seite!
Saluto Matthias |
|
|
| WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia | 11.05.2016 ▲ |
|
|
|