Tipp 0065 URI erzeugen und zerlegen
Autor/Einsender:
Datum:
  Michael Werner
28.01.2005
Entwicklungsumgebung:   VB.Net 2003
Framework:   1.1
Die Klasse Uri (Uniform Resource Identifier) stellt einen einfachen Zugriff auf die Teile des URIs bereit. URIs werden zur Bezeichnung von Ressourcen im WWW eingesetzt. URIs können zerlegt und erzeugt (neu zusammengestellt) werden.
 
Public Class Form1
  Inherits System.Windows.Forms.Form
 
  #Region " Vom Windows Form Designer generierter Code "
    Public Sub New()
      MyBase.New()
 
      ' Dieser Aufruf ist für den Windows Form-Designer 
      ' erforderlich.
      InitializeComponent()
 
      ' Initialisierungen nach dem Aufruf InitializeComponent()
      ' hinzufügen
      TextBox1.Text = "http"
      TextBox2.Text = "www.jolanrieger.de"
      TextBox3.Text = "80"
      TextBox4.Text = "/gallery.php"
    End Sub
 
    '...
  #End Region
 
  Private Sub URI_Create()
    Dim uBuilder As UriBuilder = New UriBuilder
    With uBuilder
      .Scheme = TextBox1.Text
      .Host = TextBox2.Text
      .Port = CInt(TextBox3.Text)
      .Path = TextBox4.Text
    End With
 
    Dim u As Uri = uBuilder.Uri
    LinkLabel1.Text = u.AbsoluteUri
  End Sub
 
  Private Sub URI_Analyze()
    Dim sUri As Uri = New Uri(LinkLabel1.Text)
    MessageBox.Show(sUri.AbsoluteUri, "AbsoluteUri")
    MessageBox.Show(sUri.Scheme, "Scheme")
    MessageBox.Show(sUri.Host, "Host")
    MessageBox.Show(sUri.Port.ToString, "Port")
    MessageBox.Show(sUri.AbsolutePath, "AbsolutePath")
  End Sub
 
  Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click
    URI_Create()
    Button3.Enabled = True
  End Sub
 
  Private Sub Button3_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button3.Click
    URI_Analyze()
  End Sub
 
  Private Sub Button2_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button2.Click
    Me.Close()
  End Sub
 
  Private Sub LinkLabel1_LinkClicked(ByVal sender As Object, _
        ByVal e As System.Windows.Forms. _
        LinkLabelLinkClickedEventArgs) Handles _
        LinkLabel1.LinkClicked
    Process.Start(LinkLabel1.Text)
  End Sub
End Class
 
Weitere Links zum Thema
IP-Adresse berechnen

Windows-Version
98/SE
ME
NT
2000
XP
Vista
Win 7


Download  (6,4 kB) Downloads bisher: [ 552 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Tipps | Projekte | Tutorials | Bücherecke | VB-/VBA-Tipps | API-Referenz | Komponenten | VB.Net-Forum | VB/VBA-Forum | DirectX-Forum | Foren-Archiv | DirectX | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Freitag, 20. Januar 2012