Hallo,
Mal nur für die VIP's.
Ich gehe davon aus, dass ihr bereits das Tutorial, was ich vorher geschrieben habe gemacht habt.
Los geht's !
Anlegen der Objekte: (Zusätzlich zu dem
hier)
- 3 Buttons
**Beschriftungen:
1. Button = Knuddels.at
2. Button = Knuddels.ch
3. Button = MFC
Jetzt müsstet ihr 4 Buttons auf der Form haben, mit den Beschriftungen der 4 Chats.
Kommen wir erstmal zur Beschriftung der Tabpages.
1. Tabpage Eigenschaft Text = Cnuddels.de
2. Tabpage Eigenschaft Text = Cnuddels.at
Im vorherigen "TuT" schrieb ich ja
[quote]
Doppelklickt auf die Form1 und gebt folgendes ein:
Um im Codefenster in die nächste Zeile zu gelangen - einfach ENTER !
Und tippt nochmals ein:
Ihr macht jetzt aber :
Doppelklickt auf die Form1 und gebt folgendes ein:
Um im Codefenster in die nächste Zeile zu gelangen - einfach ENTER !
Und tippt nochmals ein:
-Erklärung-
Das heißt: Webbrowser1 soll die Datei "de.html", die dann im Ordner vorhanden sein muss, im Webbrowser1 anzeigen.
Und: Webbrowser2 soll die Datei "at.html", die dann im Ordner vorhanden sein muss, im Webbrowser2 anzeigen.
Doppelklick auf den Button mit der Beschriftung "Knuddels.at".
Folgenden Code eingeben:
Code:
Dim tb As New TabPage("Der Chat.at")
Dim w As New WebBrowser
w.Dock = DockStyle.Fill
w.Navigate(Application.StartupPath & "/at.html")
tb.Controls.Add(w)
Me.TabControl1.TabPages.Add(tb)
Erklärung:
Das Programm soll einen neuen Tab mit der Beschriftung "Knuddels.at" hinzufügen und auf diesem einen Webbrowser plazieren.
Dieser Webbrowser soll mit der Datei "at.html" navigieren. (Soll die Datei anzeigen).
Doppelklick auf Button Knuddels.ch:
Code:
Dim tb As New TabPage("Der Chat.ch")
Dim w As New WebBrowser
w.Dock = DockStyle.Fill
w.Navigate(Application.StartupPath & "/ch.html")
tb.Controls.Add(w)
Me.TabControl1.TabPages.Add(tb)
Und schließlich MFC:
Code:
Dim tb As New TabPage("MFC")
Dim w As New WebBrowser
w.Dock = DockStyle.Fill
w.Navigate(Application.StartupPath & "/mfc.html")
tb.Controls.Add(w)
Me.TabControl1.TabPages.Add(tb)
Nach allem dem sollte euer Code so aussehen:
Code:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim tb As New TabPage("Der Chat.de")
Dim w As New WebBrowser
w.Dock = DockStyle.Fill
w.Navigate(Application.StartupPath & "/de.html")
tb.Controls.Add(w)
Me.TabControl1.TabPages.Add(tb)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.Navigate(Application.StartupPath & "/de.html")
WebBrowser2.Navigate(Application.StartupPath & "/at.html")
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Me.TabControl1.TabPages.RemoveAt(Me.TabControl1.SelectedIndex)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim tb As New TabPage("Der Chat.at")
Dim w As New WebBrowser
w.Dock = DockStyle.Fill
w.Navigate(Application.StartupPath & "/at.html")
tb.Controls.Add(w)
Me.TabControl1.TabPages.Add(tb)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim tb As New TabPage("Der Chat.ch")
Dim w As New WebBrowser
w.Dock = DockStyle.Fill
w.Navigate(Application.StartupPath & "/ch.html")
tb.Controls.Add(w)
Me.TabControl1.TabPages.Add(tb)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim tb As New TabPage("MFC")
Dim w As New WebBrowser
w.Dock = DockStyle.Fill
w.Navigate(Application.StartupPath & "/mfc.html")
tb.Controls.Add(w)
Me.TabControl1.TabPages.Add(tb)
End Sub
End Class
Fertig!
Downloads
-> HTML Dateien
--> Beispielprojekt !
Tutorial für VIP Zone von K-Underground, 23.April 2007.
© DeLay nach Idee von Ducstyle
Lg DeLay
|
