Seite 1 von 2
Noch 2 Fragen
Verfasst: 18.04.2006 17:49
von Much
Hier ist mein kleines programm:
Code: Alles auswählen
;- Window Constants
;
Enumeration
#Window_0
EndEnumeration
;- MenuBar Constants
;
Enumeration
#MenuBar_0
EndEnumeration
Enumeration
#MENU_2
#MENU_3
#MENU_4
#MENU_5
#MENU_7
EndEnumeration
;- Gadget Constants
;
Enumeration
#Button_0
#Button_1
#Button_3
#Button_4
EndEnumeration
;- StatusBar Constants
;
Enumeration
#StatusBar_0
EndEnumeration
If OpenWindow(#Window_0, 216, 0, 600, 300, #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "iPod Manager")
InitSprite ()
ClearScreen (94,105,255)
If CreateMenu(#MenuBar_0, WindowID())
MenuTitle("Programm")
MenuItem(#MENU_2, "iTunes")
MenuItem(#MENU_3, "YamiPod")
MenuItem(#MENU_4, "AudioJack")
MenuItem(#MENU_5, "Photo")
MenuTitle("Credits")
MenuItem(#MENU_7, "Über")
EndIf
If CreateStatusBar(#StatusBar_0, WindowID())
EndIf
If CreateGadgetList(WindowID())
ButtonGadget(#Button_0, 60, 120, 110, 120, "Audio Jack", #PB_Button_Default)
ButtonGadget(#Button_1, 420, 120, 110, 120, "YamiPod", #PB_Button_Default)
ButtonGadget(#Button_3, 170, 0, 110, 120, "iTunes", #PB_Button_Default)
ButtonGadget(#Button_4, 310, 0, 110, 120, "Photo(geplant)", #PB_Button_Default)
EndIf
EndIf
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
quit = 1
Case #PB_Event_Gadget
Select EventGadgetID()
Case #Button_0
RunProgram("c:\Programme\AudioJack\AJack.exe")
Case #Button_1
RunProgram ("c:\Dokumente und Einstellungen\Michi\Desktop\iPod\YamiPod.exe")
Case #Button_3
RunProgram ("c:\Programme\iTunes\iTunes.exe")
EndSelect
EndSelect
Until quit = 1
wenn ich das programm kompiliere ist alles "grau in grau"
wie kann ich die sachen (hintergrund,buttons) einfärben ?
wie kann ich ein bild bei der exe(statt dem kasten ) einfügen ??
Verfasst: 18.04.2006 17:57
von hardfalcon
Kleiner Tipp: Kompilier das Teil mal mit Debugger...
//EDIT: Gadgets (und ich glaube auch Fensterhintergründe) wird man ab PureBasic 4.0 einfärben können. Die aktuelle Beta 10 geht schon ganz gut, die fertige Version von PB 4.0 wird wahrscheinlich binnen der nächsten Wochen erscheinen...
Das ClearScreen (94,105,255) in Zeile 40 solltest du ersatzlos löschen, das macht nur ärger und bringt nix.
Zu deiner 2. Frage: Wo willst du dein Bild einfügen? Meinst du oben in der linken Ecke vom Fenster oder willst du ein Bild in die Schaltflächen integrieren?
//EDIT 2: Wie Frogger schon sagte, kannst du das InitSprite() in Zeile 39 natürlich auch ersatzlos streichen.
//EDIT 3: #PB_Button_Default solltest du nur bei einem Button in einem Fenster anwenden. Dieses Flag kennzeichnet AFAIK den Button der gedrückt werden soll, wenn du das Programm einfach startest, und dann ENTER drückst.
Verfasst: 18.04.2006 17:59
von Frogger
Initsprite() und ClearScreen(...) brauchst du nicht.
So sollte es eigendlich funktionieren:
Code: Alles auswählen
;- Window Constants
;
Enumeration
#Window_0
EndEnumeration
;- MenuBar Constants
;
Enumeration
#MenuBar_0
EndEnumeration
Enumeration
#MENU_2
#MENU_3
#MENU_4
#MENU_5
#MENU_7
EndEnumeration
;- Gadget Constants
;
Enumeration
#Button_0
#Button_1
#Button_3
#Button_4
EndEnumeration
;- StatusBar Constants
;
Enumeration
#StatusBar_0
EndEnumeration
If OpenWindow(#Window_0, 216, 0, 600, 300, #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "iPod Manager")
If CreateMenu(#MenuBar_0, WindowID())
MenuTitle("Programm")
MenuItem(#MENU_2, "iTunes")
MenuItem(#MENU_3, "YamiPod")
MenuItem(#MENU_4, "AudioJack")
MenuItem(#MENU_5, "Photo")
MenuTitle("Credits")
MenuItem(#MENU_7, "Über")
EndIf
If CreateStatusBar(#StatusBar_0, WindowID())
EndIf
If CreateGadgetList(WindowID())
ButtonGadget(#Button_0, 60, 120, 110, 120, "Audio Jack", #PB_Button_Default)
ButtonGadget(#Button_1, 420, 120, 110, 120, "YamiPod", #PB_Button_Default)
ButtonGadget(#Button_3, 170, 0, 110, 120, "iTunes", #PB_Button_Default)
ButtonGadget(#Button_4, 310, 0, 110, 120, "Photo(geplant)", #PB_Button_Default)
EndIf
EndIf
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
quit = 1
Case #PB_Event_Gadget
Select EventGadgetID()
Case #Button_0
RunProgram("c:\Programme\AudioJack\AJack.exe")
Case #Button_1
RunProgram ("c:\Dokumente und Einstellungen\Michi\Desktop\iPod\YamiPod.exe")
Case #Button_3
RunProgram ("c:\Programme\iTunes\iTunes.exe")
EndSelect
EndSelect
Until quit = 1
Verfasst: 18.04.2006 18:07
von uweb
wie kann ich die sachen (hintergrund,buttons) einfärben ?
PureCOLOR auf
http://www.purearea.net/pb/german/index.htm unter User-Libs.
wie kann ich ein bild bei der exe(statt dem kasten ) einfügen ??
wenn Du "Photo(geplant)" meinst : ButtonImageGadget()
edit: falsche Lib - korrigiert
Verfasst: 18.04.2006 19:51
von Much
Habe das initsprite und clearscreen nur rausschneiden vergessen.
Habe mir schon gedacht, dass meine 2. frage keiner versteht.
noch einmal.wenn man den code compiliert und eine exe erstellt, dann hat man als symbol ein consolenfenster.so wie bei mp3 dateien das symbol des players.und eben dieses symbol will ich ändern.
Nur, wie geht das ??
Verfasst: 18.04.2006 19:57
von Much
Was meinst du eigentlich mit PureCOLOUR ?? Wo auf dieser seite soll ich schauen
Verfasst: 18.04.2006 19:59
von Much
Sry hab es einfach übersehen
Verfasst: 18.04.2006 20:05
von kurt'94
du meinst doch sicherlich das icon??? oder nich...
im editor: Compiler -> Compiler Optionen... -> Benutze Icon -> Pfad eingeben
MFG kurt
Verfasst: 18.04.2006 20:05
von freedimension
Du kannst deine Beiträge übrigens auch einfach editieren. Doppelpostings, d.h. mehrere Beiträge von ein und derselben Person direkt hintereinander sind in so gut wie allen Foren nicht gerne gesehen
Verfasst: 18.04.2006 20:20
von Kiffi
... und bitte mal den Betreff sinnvoll anpassen!
Danke & Grüße ... Kiffi