vb System.Uri.Scheme类(方法)实例源码

Dim baseUri As New Uri("http://www.contoso.com/")
Dim myUri As New Uri(baseUri, "catalog/shownew.htm?date=today")
       
Console.WriteLine(myUri.Scheme)

' 导入命名空间
Imports System.Net
Imports System.Net.Sockets


Public Class Tester
    Public Shared Sub Main
        Dim myURI As New Uri("http://www.java2s.com:8080")

        Console.WriteLine(myURI.Host)
        Console.WriteLine(myURI.AbsolutePath)
        Console.WriteLine(myURI.AbsoluteUri)
        Console.WriteLine(myURI.Port.ToString)
        Console.WriteLine(myURI.Scheme)

    End Sub
End Class