Letzter Beitrag der vorhergehenden Seite:
Musst gar nix sagen, ich lese deinen Beitrag und schreibe grad meinen Beitrag mit meinem neuen Browser...Programmieraufwand:
Code: Alles auswählen
Private Sub Adress_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then KeyAscii = 0: Call Command2_Click
End Sub
Private Sub Back_Click()
'Eine Seite zurück (fehlertolerant)
On Error GoTo fehler
Browser1.GoBack
fehler:
End Sub
Private Sub Command1_Click()
'Browser schliessen
Navigation.Visible = False
browser.Visible = False
End Sub
Private Sub Command2_Click()
'Website aufrufen
Browser1.Navigate (Adress.Text)
End Sub
Private Sub Form_Load()
'Skin laden
browser.Picture = LoadPicture(App.Path & "\skin\window900650.jpg")
'Padua Desktop Website laden
Browser1.Navigate ("www.abacado.com/padua")
End Sub
Private Sub Forward_Click()
'Eine Seite weiter (fehlertolerant)
On Error GoTo fehler
Browser1.GoForward
fehler:
End Sub
Bis später
KlyX
