Noch 2 Fragen

[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 ??

[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.

[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

[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

[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 ??

[Much]

Was meinst du eigentlich mit PureCOLOUR ?? Wo auf dieser seite soll ich schauen

[Much]

Sry hab es einfach übersehen

[kurt'94]

du meinst doch sicherlich das icon??? oder nich...

im editor: Compiler -> Compiler Optionen... -> Benutze Icon -> Pfad eingeben



MFG kurt

[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

[Kiffi]

... und bitte mal den Betreff sinnvoll anpassen!

Danke & Grüße ... Kiffi