HtmlViewGo htmlview,"name.html"

Übersicht

BlitzBasic

Beginners-Corner

	coolpunker Betreff: HtmlViewGo htmlview,"name.html"	Mo, Nov 21, 2005 16:26 Antworten mit Zitat
hi ich habe ein mini internet browser geproggt und will eine html seite die im gleichen ordner liegt anzeigen lassen also praktisch wie ne start seite so sieht der code aus BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] window=CreateWindow(\"Internet Exploder\",0,0,400,300,0,11) width=ClientWidth(window) height=ClientHeight(window) htmlview=CreateHtmlView(5,35,width-10,height-40,window) SetGadgetLayout htmlview,1,1,1,1 [b]HtmlViewGo htmlview,\"name.html\"[/b] While Not KeyHit(1) Select WaitEvent() Case $401 src=EventSource() If src=button1 Then HtmlViewBack htmlview If src=button2 Then HtmlViewForward htmlview Case $802 width=ClientWidth(window) height=ClientHeight(window) SetGadgetShape button1,5,5,50,25 SetGadgetShape button2,55,5,50,25 SetGadgetShape htmlview,5,35,width-10,height-40 Case $803 End End Select Wend End name html soll er also dann anzeigen. help!! :?:

coolpunker

Betreff: HtmlViewGo htmlview,"name.html"

Mo, Nov 21, 2005 16:26
Antworten mit Zitat

hi
ich habe ein mini internet browser geproggt und will eine html seite die im gleichen ordner liegt anzeigen lassen also praktisch wie ne start seite so sieht der code aus BlitzBasic: [AUSKLAPPEN]

 window=CreateWindow(\"Internet Exploder\",0,0,400,300,0,11)
width=ClientWidth(window)
height=ClientHeight(window)

htmlview=CreateHtmlView(5,35,width-10,height-40,window)


SetGadgetLayout htmlview,1,1,1,1
[b]HtmlViewGo htmlview,\"name.html\"[/b]

While Not KeyHit(1)
  Select WaitEvent()
  Case $401
   src=EventSource()
   If src=button1 Then HtmlViewBack htmlview
   If src=button2 Then HtmlViewForward htmlview
  Case $802
    width=ClientWidth(window)
    height=ClientHeight(window)
    SetGadgetShape button1,5,5,50,25
    SetGadgetShape button2,55,5,50,25
    SetGadgetShape htmlview,5,35,width-10,height-40
  Case $803
    End
  End Select
Wend
End

name html soll er also dann anzeigen.

help!! :?: