Verlauf in einem Webbrowser mit Tabs erstellen

vbfreak19 · 22. Juli 2010, 21:43

hmm..bin nicht jetzt ein Profi hab nur normal End Sub

JU84553Hgd · 22. Juli 2010, 21:45

bitte nicht!!!!!!!!!!!!!!!!!!!

nein, erkennst du diese Zeilen wieder:

VB.NET-Quellcode

Private Sub Done(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserDocumentCompletedEventArgs)
TabControl1.SelectedTab.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle
ComboBox1.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString
End Sub

Das hat nix mit Profi zu tun, das hat was mit sehen und mit hirn zu tun...

vbfreak19 · 22. Juli 2010, 21:46

sory ja ich kenn das wieder

JU84553Hgd · 22. Juli 2010, 21:49

OK,
du hast dein Projekt ja offen, oder?

Über dem "End sub" in unseren 4 Zeilen fügst du dasda ein:

VB.NET-Quellcode

ListBox1.Items.Add(CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString())

Hammas soweit?

vbfreak19 · 22. Juli 2010, 21:51

hab ich EDIT: DAAANKKEE!! nur noch ne kleine Frage wie vermeide ich doppelte einträge?

JU84553Hgd · 22. Juli 2010, 21:52

Gut, jetzt gest du auf den grünen Pfeil und testest, ob es funktioniert...

vbfreak19 · 22. Juli 2010, 21:52

DAAANKKEE!! nur noch ne kleine Frage wie vermeide ich doppelte einträge?

JU84553Hgd · 22. Juli 2010, 21:53

Wie? wenn man die Seite aktualisiert z.B.?

vbfreak19 · 22. Juli 2010, 21:54

ja ? oder wenn ich zwei mal was anklicke EDIT: mir ist aufgefallen in der listbox erscheint ja nicht auch der Webseitetitel geht das irgendwie auch aber bitte keinen Stress DANKE erstmal

JU84553Hgd · 22. Juli 2010, 21:56

Du ersetzt das

VB.NET-Quellcode

ListBox1.Items.Add(CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString())

Durch das:

VB.NET-Quellcode

If Not ListBox1.Items(ListBox1.Items.Count - 1) = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString() Then
ListBox1.Items.Add(CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString())
End If

Da musst du eine ListView machen, aber das erschwert die Sache natürlich enorm also überleg dir gut, ob du das wirklich machen willst (ich selber habe einige Wochen dafür gebraucht)

vbfreak19 · 22. Juli 2010, 21:59

lieber nicht ach ja und wie kann ich einen code erst beim schließen der anwendung anwenden? danke

JU84553Hgd · 22. Juli 2010, 21:59

Da musst du eine ListView machen, aber das erschwert die Sache natürlich enorm also überleg dir gut, ob du das wirklich machen willst (ich selber habe einige Wochen dafür gebraucht)

Oder du arbeitest mit dem Split verfahren (Ist nicht ganz so schwer...)

vbfreak19 · 22. Juli 2010, 22:02

wenn ich mit split mache braucht man dann nur ein paar codes???PS: ich weis ich stelle doofe fragen^^

PascalN · 22. Juli 2010, 22:03

Doppelte Einträge löschen:
activevb.de/tipps/vbnettipps/tipp0042.html

Gruss
Pascal

JU84553Hgd · 22. Juli 2010, 22:03

Dann ist zum Beispiel in der ListBox ein Item des Namens "VB-Paradise | vb-paradise.de/"

Das musst du halt in Kauf nehmen

vbfreak19 · 22. Juli 2010, 22:04

BITTE zeige mir das mit dem Split bitte

ALSO meine letzten zwei Fragen: Wie kann ich einen Code erst beim Schließen anwenden
zweite Frage: Wie lange braucht das Split verfahren

jvbsl · 22. Juli 2010, 22:07

1. FormClosing Event
2. Jenach größe...im allgemeinen nicht sehr lange

JU84553Hgd · 22. Juli 2010, 22:08

Split verfahren sind ungefähr 5 Zeilen Code

Code beim Schließen ist das FormClosing- bzw. das FormClosed Event.

Edit: zu langsam

vbfreak19 · 22. Juli 2010, 22:11

da steht: sub FormClosing verursacht einen Konflikt mit event FormClosing in basic-class Form und sollte ... und wenn ich es trotzdem versuche gehen die urls nicht in die listbox und bitte zeig mir die 5 zeilen

JU84553Hgd · 22. Juli 2010, 22:13

Split:
Das:

VB.NET-Quellcode

If Not ListBox1.Items(ListBox1.Items.Count - 1) = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString() Then
ListBox1.Items.Add(CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString())
End If

ersetzt du durch das:

VB.NET-Quellcode

If Not ListBox1.Items(ListBox1.Items.Count - 1) = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString() Then
ListBox1.Items.Add(CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTile & " | " & CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString())
End If

Dann wenn du ein element aus der ListView doppelklickst:

VB.NET-Quellcode

CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(ListView1.SelectedItem.ToString().Split("|")(1))

Ist zwar nicht der sauberste Code, aber normale Webbrowser können Urls auch aufrufen, wenn eine Leertaste davorne steht

Verlauf in einem Webbrowser mit Tabs erstellen

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

2 Benutzer haben hier geschrieben