Currentpfad

[ts-soft]

Hallo,

werde ich versuchen und ich vermute mal, dass MessageBeep_() ein Infoton oder ähnliches ist?
Obwohl ich den Haken bei Angemeldet bleiben gesetzt habe, muss ich mich hier alle 10 Minuten neu anmelden, warum?

MFG ToolBoy

Melde Dich mal über http://www.purebasic.fr/german an!
Könnte helfen.

[ToolBoy]

Hallo,

die Anmeldung hat geholfen und ein großes Lob für die Gute Hilfe die ihr hier leistet.


Funst nur als einmal Anzeige vor Repeat.

Wo baue ich die Zeilen ein, dass die Position der Maus laufend angezeigt wird?
Normalerweise ja in der Repeat Until Schleife, aber dann bekomme ich nur eine Sanduhr und PB reagiert nicht mehr.

Code: Alles auswählen

#Window1 = 0

If OpenWindow(0,0,0,702,80,"XXXXX", #PB_Window_BorderLess) ;  | #PB_Window_ScreenCentered)
SetWindowColor(0,RGB(0,0,0))
StickyWindow(0, 1)
; Fenstergrafik

; Diese Zeilen was muss wohin.
Define.i M1, M2 ;, M3, M4
M1 = WindowMouseX(#Window1) 
M2 = WindowMouseY(#Window1
TextGadget(30, 250, 50, 100,18, Str(M1)  + "  \  " +Str(M1))
SetGadgetColor(30, #PB_Gadget_BackColor,  RGB(255,255,255))
SetGadgetColor(30, #PB_Gadget_FrontColor,  RGB(0,0,0))
SetGadgetFont(30, LoadFont(0, "Arial", 10))  
; Programm
; Repeat

Ich werde erst mal einige Tage nicht mehr stören um keinen auf den Geist zu gehen.

MFG ToolBoy

[jojo1541]

Code: Alles auswählen

#Window1 = 0

Define.i M1, M2 ;, M3, M4
Define.i Event


If OpenWindow(0,0,0,702,80,"XXXXX", #PB_Window_BorderLess) ;  | #PB_Window_ScreenCentered)
  SetWindowColor(0,RGB(0,0,0))
  StickyWindow(0, 1)
  ; Fenstergrafik

  ; Diese Zeilen was muss wohin.
  TextGadget(30, 250, 50, 100,18, Str(M1)  + "  \  " +Str(M1))
  SetGadgetColor(30, #PB_Gadget_BackColor,  RGB(255,255,255))
  SetGadgetColor(30, #PB_Gadget_FrontColor,  RGB(0,0,0))
  SetGadgetFont(30, LoadFont(0, "Arial", 10)) 

  Repeat
    
    Event = WaitWindowEvent()
    
    M1 = WindowMouseX(#Window1)
    M2 = WindowMouseY(#Window1)
    
    SetGadgetText(30,Str(M1) + " \ " + Str(M2))
    
    
  
  Until GetAsyncKeyState_(#VK_ESCAPE)

EndIf

Sollte laufen...

[ToolBoy]

ich danke dir.

MFG ToolBoy

[Kiffi]

Sollte laufen...

ToolBoy verwendet die Demo. Meine Bitte, dies in seiner
Signatur zu vermerken, hat er anscheinend überlesen.

Mit Deinem GetAsyncKeyState_() kommt er also nicht weit.

Grüße ... Kiffi

[ToolBoy]

Hi Kiffi,

ich werde deine bitte noch erfüllen, hatte ich vergessen.

Es funst aber jetzt bei mir, GetAsyncKeyState_() brauchte ich nicht.

Code: Alles auswählen

Repeat
  
  
  
  
    EventID=WaitWindowEvent() ;Fensteraktion ermitteln   
    
    M1 = WindowMouseX(#Window1)
    M2 = WindowMouseY(#Window1)
   
    SetGadgetText(30,Str(M1) + " \ " + Str(M2))
    
     If M1> 21 And M1< 78 And  M2> 14 And M2< 29 And M3 = 0 
    
    RunProgram("C:\WINDOWS\Desktop\PLAYER3\00PLAYER.rb") 
    M3 = 1
    
EndIf   
Case 1 
If OpenWindow(14, 0, 0, 240, 16, "Progress", #PB_Window_BorderLess | #PB_Window_ScreenCentered)
StickyWindow(14, 1) 
    ProgressBarGadget(14,  5, 3, 230,  10, 0, 100)
: -----

      

M3 wird auf 1 ist hier nur ein Test wird ersetzt durch CloseWindow(0).

MFG ToolBoy

[Kaeru Gaman]

a) ja, das ist nur ein piep, insofern nicht wirklich nötig.
alle befehle mit unterstrich dahinter sind direkte API calls, insofern in der Demo nicht verfügbar.

b) nimm mal die komplett richtige URL für dein Lesezeichen: http://www.purebasic.fr/german/
(also french, nicht com) dann sollte es mit dem eingeloggt bleiben funktionieren.

PS: oops... Folgeseite übersehen beim antworten.. lolz