vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Fortgeschrittene
Re: WPF/VB.NET HTML Content zu Label/Text 
Autor: Manfred X
Datum: 24.01.22 06:35

Hallo!

Das hängt vom Aufbau Deiner Webseite ab.
Hier ein Win-Forms-Beispiel.
Public Class frmWebTest
 
    Dim WithEvents web As New WebBrowser With 
           {.Parent = Me, .Width = 400, .Height = 400, .Top = 50, .Left = 10}
 
    Dim lbl As New Label With 
           {.Parent = Me, .Top = 10, .Left = 10, .Width = 400}
 
 
 
    Private Sub frmWebTest_Load(sender As Object, e As EventArgs) Handles _
      MyBase.Load
        Me.Size = New Size(500, 500)
 
        'Der Code zur Webseite 
        Dim txt As String = "<html><body>" & vbCrLf &
                            "<input type=" & Chr(34) & "text" & Chr(34) &
                            "name=" & Chr(34) & "mytext" & Chr(34) &
                            "value=" & Chr(34) & "Hallo" & Chr(34) & _
                              "/><br/>" & vbCrLf &
                            "</body></html>"
 
        'Erstellung der Webseite
        IO.File.WriteAllText("G:\downloads\test_xxx.htm", txt)
 
        'Navigation zur Webseite
        web.Navigate("G:\downloads\test_xxx.htm")
    End Sub
 
 
 
    Private Sub web_DocumentCompleted(sender As Object, e As _
      WebBrowserDocumentCompletedEventArgs) _
                   Handles web.DocumentCompleted
 
        'Alle Elemente auflisten
        Dim hc As HtmlElementCollection = web.Document.All
 
        'Elemente untersuchen
        Dim en As String, tg As String
        For i As Integer = 0 To hc.Count - 1
            en = hc(i).Name
            If en = "mytext" Then tg = hc(i).TagName
        Next i
 
        hc = web.Document.GetElementsByTagName(tg).GetElementsByName("mytext")
 
        'oder direkt so:
        'hc = web.Document.GetElementsByTagName("INPUT").GetElementsByName( 
        ' "mytext")
 
        lbl.Text = hc(0).GetAttribute("value")
 
    End Sub
 
End Class
Falls Du die Seite selbst entwirfst, kannst Du Elementen eine eindeutige ID zuordnen.

       Dim txt2 As String = "<html><body>" & vbCrLf &
                            "<input type=" & Chr(34) & "text" & Chr(34) &
                            "name=" & Chr(34) & "mytext" & Chr(34) &
                            "ID=" & Chr(34) & "12345" & Chr(34) &
                            "value=" & Chr(34) & "Hallo" & Chr(34) & _
                              "/><br/>" & vbCrLf &
                            "</body></html>"


Beitrag wurde zuletzt am 24.01.22 um 06:53:38 editiert.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
WPF/VB.NET HTML Content zu Label/Text447steffen7723.01.22 18:05
Re: WPF/VB.NET HTML Content zu Label/Text392Manfred X24.01.22 06:35

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel