Bilder

Anfängerfragen zum Programmieren mit PureBasic.
Benutzeravatar
Falko
Admin
Beiträge: 3535
Registriert: 29.08.2004 11:27
Computerausstattung: PC: MSI-Z590-GC; 32GB-DDR4, ICore9; 2TB M2 + 2x3TB-SATA2 HDD; Intel ICore9 @ 3600MHZ (Win11 Pro. 64-Bit),
Acer Aspire E15 (Win11 Home X64). Purebasic LTS 6.11b1
HP255G8 Notebook @AMD Ryzen 5 5500U with Radeon Graphics 2.10 GHz 3.4GHz, 32GB_RAM, 3TB_SSD (Win11 Pro 64-Bit)
Kontaktdaten:

Beitrag von Falko »

Das hätte schon gereicht:

Code: Alles auswählen

UsePNGImageDecoder()
OpenWindow(0,100,100,500,400,"Bilder",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)

CreateGadgetList(WindowID(0))

If FileSize("_Encore.png") > 0 
 Bild = LoadImage(0, "Encore.png")
 ImageGadget(1,20,60,300,300,Bild)
Else
 MessageRequester("Sch...","Warum nur?",0) 
EndIf


Repeat
event = WaitWindowEvent()
If event = #PB_Event_CloseWindow
quit = 1
EndIf

Until quit = 1
End 
[edit]
Habs noch etwas abgeändert, da bei nicht vorhandensein des Bildes wie bei der vorrigen Abfrage der Debuger anspringt :lol:
Ein

Code: Alles auswählen

If LoadImage(0, "Incore.png")
sollte bei eine If-Else-Bedingung korrekt arbeiten, was es aber nicht tut.
Es wird beim debugen Image Not found ausgegeben. was beim obigen
Source nicht passiert.

Code: Alles auswählen

UsePNGImageDecoder()
OpenWindow(0,100,100,500,400,"Bilder",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)

CreateGadgetList(WindowID(0))

If LoadImage(0, "Encore.png")
 ImageGadget(1,20,60,300,300,ImageID(0))
Else
 MessageRequester("Sch...","Warum nur?",0) 
EndIf


Repeat
event = WaitWindowEvent()
If event = #PB_Event_CloseWindow
quit = 1
EndIf

Until quit = 1
End 

Funktioniert wohl wenn die Datei vorhanden ist. Bei nicht Vorhandensein
wird der Elsezweig beim Debugging noch nichteinmal angesprungen.

Eigendlich müsste es genauso wie beim vorherigen Source funktionieren, oder?
Bild
Win11 Pro 64-Bit, PB_6.11b1
Antworten