Visual Basic Beispiele

Visual Basic code Beispiele Seite 02

Es gibt viele Bücher mit Beispielen auf CD nur das was man braucht um sich als Webmaster das Leben einfacher machen zu können, um mit weniger Arbeit mehr zu verdienen, das findet man in keinem Buch und auch in Visual Basic Foren
bekommt man kaum Hilfe. Über Leute die in Foren leichte Fragen stellen wird gelacht, und auf schwere Fragen bekommt man zwar viel bla bla als Antwort aber kaum eine funktionierende Lösung. Auch die Basic code Beispiele auf etlichen Internetseiten funktionieren oft nicht obwohl sie für Visual Basic 2008 reingestellt. Da gibts nur eines selbst probieren.

Umschalten der Datenbindung DataGridView

Daten zeigt man am besten in Tabellen an
Zwischenspeichern der Daten im dataset egal ob die Daten aus einer Datenbank, XMLdatei oder sonst wo her kommen
und zu meist gibts dann mehrere Tabellen. Die Tabellennamen einfach in eine ComboBox im Menue einlesen und mit folgendem Sub umschalten.

Internetseite als Datei auf die Festplatte laden

Zum einen braucht man diesen Befehl um die Daten auszuwerten,
zum anderen entspricht jedes Laden einem Seitenaufruf und damit kann man Zähler auf der Seite erhöhen.

Eine Liste von Internetseiten nacheinander im Webbrauser öffnen

Wenn man das versucht dann stösst man auf das Problem von Parallel ablaufenden Prozessen
Das Programm das WebBrowser1.Navigate auf ruft läft weiter und wartet nicht automatisch bis die Seite im Webbrauser geladen ist. Dazu kann man sich mit der Thread-Klasse beschäftigen. Es gibt aber auch noch andere Lösungen . So verwende ich dafür eine Ablaufsteuerung bei der das Hauptprogramm nichts macht, nicht mal wartet, wenn der Webbrauser die Seite aufruft.

Public Ablaufzähler As Integer
         Public Url_Zähler As Integer
         Public aktuelle_URL As String
		 
		 Sub Ablaufsteuerung()
Ablaufstart:
        Select Case Ablaufzähler
            Case 0
                'aktuelle URL ermitteln aus Tabelle 
                Call aktuelle_URL_ermitteln()
                Ablaufzähler = 10
                Exit Select
            Case 10
                WebBrowser1.Navigate(aktuelle_URL)
                Ablaufzähler = 20
                'das Hauptprogramm ruht
                'der Webbrauser baut die internetseite auf
                Exit Sub
            Case 20
                ' Nach dem der Webbrauser die Seite geladen hat gehts hier weiter
                ' Seite im Webbrauser auswerten oder bearbeiten!
                .
                .
                .

Case 100

Url_Zähler += 1
                If Url_Zähler < hächster_URL_zählerstand Then
                    Ablaufzähler = 0
                    ' Mit der nÃ¤chsten seiten URL weiter machen
                    Exit Select
                End If
                ' Wenn keine weiteren URL vorhanden dann ende
                Exit Sub

End Select
        GoTo Ablaufstart
    End Sub

Internetseiten nacheinander aufrufen mit
Form_2.ShowDialog()

Das Problem das der Webbrauser bei navigat nicht auf das Aufrufendeprogramm wartet kann man auch dadurch lösen das man den Webbrauser in eine extra Form setzt und webbraser.navigate im Form.load einbaut. Die Form dann mit Form_2.ShowDialog() aufrufen, dadurch wartet das Aufrufende Programm und bis die Form wieder geschlossen wird.
In dem ereignis WebBrowser1_DocumentCompleted dann die Form wieder schliessen mit close, damit arbeitet das Programm dann an der normalen Stelle weiter. und man kann von dort aus das HTML document auswerten.

Inputbox mit Combobox

Auf die gleiche Weise kann man sich auch eigene Inputboxen erstellen. In die Form setzt man dann halt anstelle vom Webbrauser deine Combobox oder was auch immer man möchte und schließt dann die Form mit einem extra Button oder einem ereignis aus der Combobox oder anderen Elementen die man in die Form einbaut.

200 Euro im Monat mit Heimarbeit nebenbei verdienen oder 5000 Euro und mehr im Hauptberuf! Sie wollen wissen wie das geht?