Toolbar

Übersicht BlitzBasic BlitzPlus

Neue Antwort erstellen

 

Samq

Betreff: Toolbar

 BeitragMo, Nov 26, 2007 2:23
Antworten mit Zitat
Benutzer-Profile anzeigen
Ich möchte für unseres Radio ein Tool erstellen bin auch schon ziemlich weit nur
weiß ich nicht wich ich die einzelen toolbar auswähle und anspreche möchte wenn wenn von der Toolbar
das erste icon anklickt wird
folgendes erreichen
HtmlViewGo htmlview,"http://xxxxx.de/xxxx/xxx/01.php"

wenn das 2 Icon angeklickt wird
HtmlViewGo htmlview,"http://xxxxx.de/xxxx/xxx/02.php"

usw

im Menü ist es ja kein Problem nur wie mache ich es das es auch in der toolbar geht


für hilfe wie immer sehr dankbar


Code: [AUSKLAPPEN]

window=CreateWindow("name des Programmes",0,0,405,600,0,25)



htmlview=CreateHtmlView(10,50,375,410,window)
HtmlViewGo htmlview,"http://xxxxx.de/xxxx/xxx/start.php"



AppTitle "blabla"
SetStatusText  window , "blabla"

toolbar=CreateToolBar("toolbar.bmp",0,0,96,32,window)

testmenu=CreateMenu( "EINSTELLUNGEN",0,WindowMenu(window) )
testmenua=CreateMenu( "MODERATOR",0,WindowMenu(window) )
testmenub=CreateMenu( "FAST-MENÜ",0,WindowMenu(window) )
testmenuc=CreateMenu( "JINGLE",0,WindowMenu(window) )
testmenud=CreateMenu( "MOD-CHAT",0,WindowMenu(window) )
testmenue=CreateMenu( "INFO",0,WindowMenu(window) )
CreateMenu "EINSTELLUNGEN",1,testmenu
CreateMenu "UPDATE SUCHEN",2,testmenu
CreateMenu "Menu3",3,testmenua
UpdateWindowMenu window

While kkk=0
If KeyDown(1) Then End

e= WaitEvent()
Select e
Case $803 : If (Confirm( "Soll blabla beendet werden?", True )=1) Then End

Case $1001: Select EventData()

Case 1
HtmlViewGo htmlview,"http://xxxxx.de/xxxx/xxx/menu1.php"

Case 2




Case 3

Case 4

Case 5

Case 7


Case 8

Case 100

Notify "blub"+Chr$(10)+"blub"

            End Select
   End Select
Wend
End



Repeat
   If GetKey()=27 Then End
   If WaitEvent()=$803 Then End
Forever
 

Dreamora

 BeitragMo, Nov 26, 2007 2:37
Antworten mit Zitat
Benutzer-Profile anzeigen
Ich seh da keinen toolbar code und ohne ist es leider nicht möglich dein problem zu analysieren und dir zu helfen.
solltest du es selbst noch nicht probiert haben, so möchte ich dich bitten es immerhin zu versuchen.
Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen.
 

Samq

 BeitragMo, Nov 26, 2007 2:50
Antworten mit Zitat
Benutzer-Profile anzeigen
na da ist doch die toolbar

toolbar=CreateToolBar("toolbar.bmp",0,0,96,32,window)

Rallimen

Sieger des 30-EUR-Wettbewerbs

BeitragMo, Nov 26, 2007 8:37
Antworten mit Zitat
Benutzer-Profile anzeigen
Code: [AUSKLAPPEN]
While kkk = 0
    If KeyDown (1) Then End
    e = WaitEvent ()
    Select e
     Case $401
        Select EventSource ()
         Case toolbar; auf Toolbar geklickt
            Select EventData ()
             Case -1 ; je nach Version beginnt es mit -1 bzw 1
             Case 0
             Case 1
                HtmlViewGo htmlview,"http://xxxxx.de/xxxx/xxx/menu1.php"
             Case 2
             Case 3
                Notify "blub" + Chr$ (10) + "blub"
            End Select
        End Select
     Case $803 ;X geklickt
        If (Confirm ( "Soll blabla beendet werden?", True ) = 1) Then End
     Case $1001  ; Menüe geklickt
        Select EventData ()
         Case 1
            HtmlViewGo htmlview,"http://xxxxx.de/xxxx/xxx/menu1.php"
         Case 2
         Case 3
         Case 4
         Case 5
         Case 7
         Case 8
         Case 100
            Notify "blub" + Chr$ (10) + "blub"
        End Select
    End Select
Wend
[BB2D | BB3D | BB+]
 

Samq

 BeitragMo, Nov 26, 2007 23:54
Antworten mit Zitat
Benutzer-Profile anzeigen
Danke sehr !

Neue Antwort erstellen


Übersicht BlitzBasic BlitzPlus

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group