maus berührt Buttongadget

Anfängerfragen zum Programmieren mit PureBasic.
Benutzeravatar
zigapeda
Beiträge: 1753
Registriert: 06.03.2005 17:22
Wohnort: Kaufbeuren
Kontaktdaten:

maus berührt Buttongadget

Beitrag von zigapeda »

wie kann ich ein bild anzeigen wenn die maus einen button berührt?
kluger Mann + kluge Frau = Romanze | dummer Mann + dumme Frau = Schwangerschaft
kluger Mann + dumme Frau = Affäre | dummer Mann + kluge Frau = Shopping <)
Benutzeravatar
FGK
Beiträge: 249
Registriert: 09.01.2005 14:02
Computerausstattung: i5-4430 CPU / 8GB RAM
GeForce GT630
Windows 10 Home / 64-bit
Wohnort: Augsburg

Beitrag von FGK »

Versuchs mal so....

Pfad zu deiner Bitmap anpassen

Gruß

FGK

Code: Alles auswählen



#CMD_Test = 99
#IMG_Test = 98

If OpenWindow(0, 100, 200, 640,480,#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_WindowCentered , "PureBasic Window")
  If CreateGadgetList(WindowID())
    ButtonGadget(#CMD_Test, 50, 50, 100, 30, "Touch me...")
    If LoadImage(0, "Logo.bmp")
      ImageGadget(#IMG_Test,50,100,100,100,UseImage(0))
    EndIf
  EndIf
  
  GetWindowRect_(GadgetID(#CMD_Test),R.RECT)
  
  Repeat
    EventID.l = WaitWindowEvent()
    GetCursorPos_(Cursor.POINT)
    If PtInRect_(R,Cursor\x,Cursor\y)<>0
      HideGadget(#IMG_Test,0) 
    Else
      HideGadget(#IMG_Test,1) 
    EndIf
    If EventID = #PB_Event_CloseWindow  ; If the user has pressed on the close button
      Quit = 1
    EndIf
    
  Until Quit = 1
  
EndIf

End 

Benutzeravatar
zigapeda
Beiträge: 1753
Registriert: 06.03.2005 17:22
Wohnort: Kaufbeuren
Kontaktdaten:

Beitrag von zigapeda »

ja genau so hab ich mir das vorgestellt, thx
kluger Mann + kluge Frau = Romanze | dummer Mann + dumme Frau = Schwangerschaft
kluger Mann + dumme Frau = Affäre | dummer Mann + kluge Frau = Shopping <)
Antworten