PureBoard

Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/

Explorer

https://www.purebasic.fr/german/viewtopic.php?t=3827

Seite 1 von 3

Explorer

Verfasst: 28.06.2005 20:52
von R4z0r1989
Wie bringe ich in das Fenster, in die Ecke oben rechts die Uhr rein.


Das Fenster

Code: Alles auswählen

;  window
If OpenWindow(0,1,1,820,720,#PB_Window_SystemMenu|#PB_Window_ScreenCentered | #PB_Window_MaximizeGadget | #PB_Window_MinimizeGadget | #PB_Window_SizeGadget,"Power-Explorer") 

DisableDebugger


   If CreateGadgetList(WindowID())
   
     If LoadImage(3, "bilder\go.bmp") 
      ButtonImageGadget(3,780,60,30,20,UseImage(3)) 
    EndIf  
      
     If LoadImage(1, "bilder\Back4.bmp") 
      ButtonImageGadget(1,10,10,75,40,UseImage(1)) 
    EndIf  
     
     If LoadImage(4, "bilder\Forward4.bmp") 
      ButtonImageGadget(4,90,10,75,40,UseImage(4)) 
    EndIf 
        
     If LoadImage(5, "bilder\Stop.bmp") 
      ButtonImageGadget(5,170,10,75,40,UseImage(5)) 
    EndIf
        
     If LoadImage(66, "bilder\Refresh2.bmp") 
      ButtonImageGadget(66,250,10,75,40,UseImage(66)) 
    EndIf
    
    TextGadget(202,820,100,110,15,"Schliersberg")
    
     If LoadImage(6, "bilder\SBC.bmp") 
      ButtonImageGadget(6,820,120,100,50,UseImage(6)) 
    EndIf 
    
     If LoadImage(7, "bilder\SBWC.bmp") 
      ButtonImageGadget(7,930,120,100,50,UseImage(7)) 
    EndIf

    TextGadget(14,820,175,110,15,"Downloads")

     If LoadImage(8, "bilder\DC.bmp") 
      ButtonImageGadget(8,820,190,100,50,UseImage(8)) 
    EndIf
    
     If LoadImage(9, "bilder\MP3-MW.bmp") 
      ButtonImageGadget(9,930,190,100,50,UseImage(9)) 
    EndIf
    
    TextGadget(15,820,250,110,15,"Suchmaschinen")
    
     If LoadImage(10, "bilder\google.bmp") 
      ButtonImageGadget(10,820,265,100,50,UseImage(10)) 
    EndIf
    
     If LoadImage(11, "bilder\yahoo.bmp") 
      ButtonImageGadget(11,930,265,100,50,UseImage(11)) 
    EndIf
    
    TextGadget(16,820,325,110,15,"Purebasic")
    
     If LoadImage(12, "bilder\PA.bmp") 
      ButtonImageGadget(12,820,340,100,50,UseImage(12)) 
    EndIf
    
     If LoadImage(13, "bilder\PB.bmp") 
      ButtonImageGadget(13,930,340,100,50,UseImage(13)) 
    EndIf
    
    TextGadget(201,820,400,110,15,"Wetter")
    
     If LoadImage(205, "bilder\SatBild.bmp") 
      ButtonImageGadget(205,820,415,100,50,UseImage(205)) 
    EndIf
    
     If LoadImage(204, "bilder\Wetter.bmp") 
      ButtonImageGadget(204,930,415,100,50,UseImage(204)) 
    EndIf
    
    TextGadget(E-mail,820,475,110,15,"E-mail")
     
     If LoadImage(999, "bilder\Freenet.bmp") 
      ButtonImageGadget(1000,820,490,100,50,UseImage(999)) 
    EndIf
    
;     If LoadImage(mmm, "bilder\mmm.bmp") 
;      ButtonImageGadget(mmm,930,480,100,50,UseImage(mmm)) 
;    EndIf
     
     StringGadget(2,10,60,760,20,"")
   


   EndIf 

   If CreateMenu(0, WindowID()) 
     MenuTitle("Menu") 
;     MenuItem(1, "") 
;     MenuItem(2, "")      
;     MenuItem(3, "")
;     MenuItem(4, "")
;     MenuItem(5, "") 
;     MenuItem(6, "")
;     MenuItem(7, "") 
;     MenuItem(8, "")    
    MenuItem(9, "Leere Seite") 
    MenuItem(10, "Seite Löschen")
    MenuBar()
    MenuItem(11, "Beenden") 

   EndIf 

   Repeat 
     EventID = WaitWindowEvent()      
     Select EventID      
       Case #PB_Event_Gadget 
         Select EventGadgetID() 
          
          Case 1 : 
          SetGadgetState(0,#PB_Web_Back)

          Case 3 : 
          Text$ = GetGadgetText(2) 
          WebGadget(0,10,100,800,600,text$)
          
          Case 4 : 
          SetGadgetState(0,#PB_Web_Forward)
          
          Case 5 : 
          SetGadgetState(0,#PB_Web_Stop)
          
          Case 66 : 
          SetGadgetState(0,#PB_Web_Refresh)
          
          Case 6 :
          WebGadget(0,10,100,800,600,"www.schliersbergalm.de/sbalm2003/home.html")
          
          Case 7 :
          WebGadget(0,10,100,800,600,"www.schliersbergalm.de/webcam/fullsize.jpg")
          
          Case 8 :
          WebGadget(0,10,100,800,600,"www.download.com")
          
          Case 10 :
          WebGadget(0,10,100,800,600,"www.google.de")
          
          Case 12 :
          WebGadget(0,10,100,800,600,"www.purearea.net")
          
          Case 13 :
          WebGadget(0,10,100,800,600,"www.pure-board.de")
          
          Case 11 :
          WebGadget(0,10,100,800,600,"www.yahoo.de")
          
          Case 9 :
          WebGadget(0,10,100,800,600,"www.mp3-meiaworld.com")

          Case 205:
          WebGadget(0,10,100,800,600,"http://de.weather.yahoo.com/w/wcom/eur_satintl_440_dmy_y.html")
          
          Case 204:
          WebGadget(0,10,100,800,600,"http://de.weather.yahoo.com/GMXX/GMXX0087/index_c.html")
          
          Case 1000:
          WebGadget(0,10,100,800,600,"www.freenet.de")


          EndSelect
          
          
          
          
         
       Case #PB_Event_Menu 
         Select EventMenuID() 
           
;           Case 1 : WebGadget(0,10,100,800,600,"")           
;           Case 2 : WebGadget(0,10,100,800,600,"")
;           Case 3 : WebGadget(0,10,100,800,600,"")
;           Case 4 : WebGadget(0,10,100,800,600,"") 
;           Case 5 : WebGadget(0,10,100,800,600,"")
;           Case 6 : WebGadget(0,10,100,800,600,"") 
;           Case 7 : WebGadget(0,10,100,800,600,"")
;           Case 8 : WebGadget(0,10,100,800,600,"") 
           Case 9 : WebGadget(0,10,100,800,600,"about:blank")
          Case 10 : WebGadget(0,00,000,000,000,"") 
          Case 11 : End

         EndSelect 
     
     EndSelect 
   Until EventID = #PB_Event_CloseWindow 
 EndIf


[img]
C:\Dokumente und Einstellungen\Fritzi\Desktop\L\PB\Explorer\Neu Bitmap2.bmp
[/img]


Die Uhr

Code: Alles auswählen

Enumeration 
  #Win 
  #F3D1 
  #F3D2 
  #Tg1 
  #Tg2 
EndEnumeration 

Procedure update() 
  Repeat 
    b$=FormatDate("%dd-%mm-%yyyy", Date()) 
    
    SetGadgetText(#Tg2,b$) 
    ; Zeit 
    
    a$=FormatDate("%hh:%ii:%ss", Date()) 
    
    SetGadgetText(#Tg1,a$) 
    
    Delay(1000) 
  ForEver 
EndProcedure 

If OpenWindow(#Win,0,0,250,105,#PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget,"Zeit und Datum") And CreateGadgetList(WindowID(0)) 
  CreateGadgetList(WindowID(#win)) 
  TextGadget(#Tg1, 40, 45,50,20,"zeit") 
  TextGadget(#Tg2, 140, 45,60,20,"datum") 
  
  Frame3DGadget(#F3D1,33,23,60,50,"Zeit") 
  Frame3DGadget(#F3D2,133,23,70,50,"Datum") 
  
  
EndIf 
While WindowEvent():Wend 
CreateThread(@update(),0) 

Repeat 

  
  ; Datum 
  
Until WaitWindowEvent()=#PB_Event_CloseWindow

Re: Explorer

Verfasst: 28.06.2005 20:55
von Kiffi
Badboy99 hat geschrieben: [img]
C:\Dokumente und Einstellungen\Fritzi\Desktop\L\PB\Explorer\Neu Bitmap2.bmp
[/img]
das wird so nicht funktionieren. ;)

Grüße ... Kiffi

Verfasst: 28.06.2005 20:58
von R4z0r1989
dann sag mir wie es funktioniert und sag mir nicht dass es falsch ist

Lieben hERZlichEN Dank

Verfasst: 28.06.2005 20:59
von R4z0r1989
und auserdem geht es hier um was anderes

Verfasst: 28.06.2005 21:02
von AndyX
Du musst doch das Bild zuerst mit nem FTP Programm auf deinen Webspace uppen :freak:

Verfasst: 28.06.2005 21:02
von Rubiko
naja du solltest schon ein paar grundlagen kennen...
du kannst nicht auf deine festplatte verlinken...
geh auf www.imageshack.us
lad das bild hoch und nimm den link vom hochgeladenen

Verfasst: 28.06.2005 21:08
von zigapeda
also wenn du es so gemeint hast:

Code: Alles auswählen

;  window
If OpenWindow(0,1,1,820,720,#PB_Window_SystemMenu|#PB_Window_ScreenCentered | #PB_Window_MaximizeGadget | #PB_Window_MinimizeGadget | #PB_Window_SizeGadget,"Power-Explorer")

DisableDebugger


   If CreateGadgetList(WindowID())
   
     If LoadImage(3, "bilder\go.bmp")
      ButtonImageGadget(3,780,60,30,20,UseImage(3))
    EndIf 
     
     If LoadImage(1, "bilder\Back4.bmp")
      ButtonImageGadget(1,10,10,75,40,UseImage(1))
    EndIf 
     
     If LoadImage(4, "bilder\Forward4.bmp")
      ButtonImageGadget(4,90,10,75,40,UseImage(4))
    EndIf
       
     If LoadImage(5, "bilder\Stop.bmp")
      ButtonImageGadget(5,170,10,75,40,UseImage(5))
    EndIf
       
     If LoadImage(66, "bilder\Refresh2.bmp")
      ButtonImageGadget(66,250,10,75,40,UseImage(66))
    EndIf
   
    TextGadget(202,820,100,110,15,"Schliersberg")
   
     If LoadImage(6, "bilder\SBC.bmp")
      ButtonImageGadget(6,820,120,100,50,UseImage(6))
    EndIf
   
     If LoadImage(7, "bilder\SBWC.bmp")
      ButtonImageGadget(7,930,120,100,50,UseImage(7))
    EndIf

    TextGadget(14,820,175,110,15,"Downloads")

     If LoadImage(8, "bilder\DC.bmp")
      ButtonImageGadget(8,820,190,100,50,UseImage(8))
    EndIf
   
     If LoadImage(9, "bilder\MP3-MW.bmp")
      ButtonImageGadget(9,930,190,100,50,UseImage(9))
    EndIf
   
    TextGadget(15,820,250,110,15,"Suchmaschinen")
   
     If LoadImage(10, "bilder\google.bmp")
      ButtonImageGadget(10,820,265,100,50,UseImage(10))
    EndIf
   
     If LoadImage(11, "bilder\yahoo.bmp")
      ButtonImageGadget(11,930,265,100,50,UseImage(11))
    EndIf
   
    TextGadget(16,820,325,110,15,"Purebasic")
   
     If LoadImage(12, "bilder\PA.bmp")
      ButtonImageGadget(12,820,340,100,50,UseImage(12))
    EndIf
   
     If LoadImage(13, "bilder\PB.bmp")
      ButtonImageGadget(13,930,340,100,50,UseImage(13))
    EndIf
   
    TextGadget(201,820,400,110,15,"Wetter")
   
     If LoadImage(205, "bilder\SatBild.bmp")
      ButtonImageGadget(205,820,415,100,50,UseImage(205))
    EndIf
   
     If LoadImage(204, "bilder\Wetter.bmp")
      ButtonImageGadget(204,930,415,100,50,UseImage(204))
    EndIf
   
    TextGadget(E-mail,820,475,110,15,"E-mail")
     
     If LoadImage(999, "bilder\Freenet.bmp")
      ButtonImageGadget(1000,820,490,100,50,UseImage(999))
    EndIf
   
;     If LoadImage(mmm, "bilder\mmm.bmp")
;      ButtonImageGadget(mmm,930,480,100,50,UseImage(mmm))
;    EndIf
     
     StringGadget(2,10,60,760,20,"")
     
     ;-textgadget
     TextGadget(999,720,5,100,25,"")
   


   EndIf

   If CreateMenu(0, WindowID())
     MenuTitle("Menu")
;     MenuItem(1, "")
;     MenuItem(2, "")     
;     MenuItem(3, "")
;     MenuItem(4, "")
;     MenuItem(5, "")
;     MenuItem(6, "")
;     MenuItem(7, "")
;     MenuItem(8, "")   
    MenuItem(9, "Leere Seite")
    MenuItem(10, "Seite Löschen")
    MenuBar()
    MenuItem(11, "Beenden")

   EndIf

   Repeat
     
     ;-aktualisieren
     SetGadgetText(999,Str(Day(Date())) + "." + Str(Month(Date())) + "." + Str(Year(Date())) + " " + Str(Hour(Date())) + ":" + Str(Minute(Date())) + ":" + Str(Second(Date())))   
   
   
     EventID = WaitWindowEvent()     
     Select EventID     
       Case #PB_Event_Gadget
         Select EventGadgetID()
         
          Case 1 :
          SetGadgetState(0,#PB_Web_Back)

          Case 3 :
          Text$ = GetGadgetText(2)
          WebGadget(0,10,100,800,600,text$)
         
          Case 4 :
          SetGadgetState(0,#PB_Web_Forward)
         
          Case 5 :
          SetGadgetState(0,#PB_Web_Stop)
         
          Case 66 :
          SetGadgetState(0,#PB_Web_Refresh)
         
          Case 6 :
          WebGadget(0,10,100,800,600,"www.schliersbergalm.de/sbalm2003/home.html")
         
          Case 7 :
          WebGadget(0,10,100,800,600,"www.schliersbergalm.de/webcam/fullsize.jpg")
         
          Case 8 :
          WebGadget(0,10,100,800,600,"www.download.com")
         
          Case 10 :
          WebGadget(0,10,100,800,600,"www.google.de")
         
          Case 12 :
          WebGadget(0,10,100,800,600,"www.purearea.net")
         
          Case 13 :
          WebGadget(0,10,100,800,600,"www.pure-board.de")
         
          Case 11 :
          WebGadget(0,10,100,800,600,"www.yahoo.de")
         
          Case 9 :
          WebGadget(0,10,100,800,600,"www.mp3-meiaworld.com")

          Case 205:
          WebGadget(0,10,100,800,600,"http://de.weather.yahoo.com/w/wcom/eur_satintl_440_dmy_y.html")
         
          Case 204:
          WebGadget(0,10,100,800,600,"http://de.weather.yahoo.com/GMXX/GMXX0087/index_c.html")
         
          Case 1000:
          WebGadget(0,10,100,800,600,"www.freenet.de")


          EndSelect
         
         
         
         
         
       Case #PB_Event_Menu
         Select EventMenuID()
           
;           Case 1 : WebGadget(0,10,100,800,600,"")           
;           Case 2 : WebGadget(0,10,100,800,600,"")
;           Case 3 : WebGadget(0,10,100,800,600,"")
;           Case 4 : WebGadget(0,10,100,800,600,"")
;           Case 5 : WebGadget(0,10,100,800,600,"")
;           Case 6 : WebGadget(0,10,100,800,600,"")
;           Case 7 : WebGadget(0,10,100,800,600,"")
;           Case 8 : WebGadget(0,10,100,800,600,"")
           Case 9 : WebGadget(0,10,100,800,600,"about:blank")
          Case 10 : WebGadget(0,00,000,000,000,"")
          Case 11 : End

         EndSelect
     
     EndSelect
   Until EventID = #PB_Event_CloseWindow
 EndIf
ich hab volgendes geändert:
Zeile 92: (zeile 91 ist noch ein kommentar von mir)

Code: Alles auswählen

Textgadget(999,720,5,100,25,"")
und in zeile 118: (zeile 117 ist nochmal ein kommentar)

Code: Alles auswählen

SetGadgetText(999,Str(Day(Date())) + "." + Str(Month(Date())) + "." + Str(Year(Date())) + " " + Str(Hour(Date())) + ":" + Str(Minute(Date())) + ":" + Str(Second(Date())))
das erste ist das gadget in dem das datum und die uhrzeit angezeigt werden und letzteres aktuallisiert das dann immer...
wenn du etwas englisch kannst weißt du auch was für was ist.

Verfasst: 28.06.2005 21:19
von R4z0r1989
jetzt hab ich wieder das Problem das es nicht Durchgehend da ist sondern nur wenn ich die Maus beweg.

Verfasst: 28.06.2005 21:30
von zigapeda
da müsstest du dann waitwindowevent() durch windowevent() ersetzten...

Verfasst: 28.06.2005 23:45
von Kiffi
> dann sag mir wie es funktioniert und sag mir nicht dass es falsch ist

ja, ja, die Hitze macht uns allen zu schaffen.

> und auserdem geht es hier um was anderes

Mein lieber Badboy99,

in Deiner unnachahmlichen Art und Weise hast Du in Deinem
Ursprungsposting ausführlichst das Problem erklärt, mit dem Du gerade zu
kämpfen hast. Da ich davon ausgehe, dass das Bild, auf das Du verlinkst
ein wenig Licht in das Dunkel Deiner Fragestellung bringen soll, habe ich
Dich darauf hinweisen wollen, dass das Bild nicht angezeigt wird, da Du es
von Deiner lokalen Platte verlinkst.

Wie dem auch sei: Ich habe weder die Zeit noch die Geduld, mich als
Hobby-Hellseher zu betätigen, um herauszufinden, was Du überhaupt von
uns willst. Ich bitte Dich noch einmal, dass Du in Zukunft Dein Problem
etwas genauer beschreibst. Damit ist uns (und somit auch Dir) enorm
geholfen.

Grüße ... Kiffi
Alle Zeiten sind UTC+02:00
Seite 1 von 3

Powered by phpBB® Forum Software © phpBB Limited

Deutsche Übersetzung durch phpBB.de