Das OFFIZIELLE PROFAN SUPPORT FORUM
Einsteigerfragen
PROFAN-Programmierung
Helfer & Tools
Anregungen & Vorschläge
PROFAN-NEWS
Die Regeln!
2 - PROFAN-Programmierung

 Neues Thema  |  Zur Übersicht  |  Suchen  |  Einloggen   Vorherige Nachricht  |  Nächste Nachricht 
 Ich möchte die Sendeproc nur aufrufen wenn ein Slider bewegt wird.
Autor: peter (---.pools.arcor-ip.net)
Datum:   10.05.16 08:11

Hallo, guten Tag.
Ich möchte bitte die Daten vom Slider nur senden "proc senden", wenn einer bewegt wird.
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
 




Nachricht bearbeitet (10.05.16 08:12)

 Beitrag beantworten  |  Foren-Liste  |  Alle Antworten   Neuerer Beitrag  |  Älteres Thema 

 Beiträge Autor  Datum
 Ich möchte die Sendeproc nur aufrufen wenn ein Slider bewegt wird.  Neu
peter 10.05.16 08:11 
 Re: Ich möchte die Sendeproc nur aufrufen wenn ein Slider bewegt wird.  Neu
Matthias Griesbach 10.05.16 12:00 
 Re: Ich möchte die Sendeproc nur aufrufen wenn ein Slider bewegt wird.  Neu
peter 10.05.16 17:39 


 Foren-Liste  |  Zur Registrierung 
 Benutzerlogin
 Benutzername:
 Passwort:
 Login-Daten speichern:
   
 Passwort vergessen?
E-Mail-Adresse oder Username unten eingeben. Dann wird Dir per e-Mail ein neues Passwort zugeschickt.

phorum.org