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

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

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


Public Class Tester
    Public Shared Sub Main


        Dim aUri As New Uri("http://www.java2s.com/")
        Console.WriteLine(aUri.AbsoluteUri)

        Console.WriteLine(aUri.AbsolutePath)


    End Sub
End Class