本文整理匯總了VB.NET中System.Net.DnsPermission.FromXml方法的典型用法代碼示例。如果您正苦於以下問題：VB.NET DnsPermission.FromXml方法的具體用法？VB.NET DnsPermission.FromXml怎麽用？VB.NET DnsPermission.FromXml使用的例子？那麽, 這裏精選的方法代碼示例或許可以為您提供幫助。
在下文中一共展示了DnsPermission.FromXml方法的1個代碼示例，這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚，您的評價將有助於係統推薦出更棒的VB.NET代碼示例。
示例1: ConstructDnsPermission
Public Sub ConstructDnsPermission()
Try
' Create a DnsPermission instance.
Dim permission As New DnsPermission(PermissionState.None)
' Create a SecurityElement instance by calling the ToXml method on the
' DnsPermission instance and print its attributes,
' which hold the XML encoding of the DnsPermission instance.
Console.WriteLine("Attributes and Values of 'DnsPermission' instance :")
PrintKeysAndValues(permission.ToXml().Attributes)
' Create a SecurityElement instacnce .
Dim securityElementObj As New SecurityElement("IPermission")
' Add attributes and values of the SecurityElement instance corresponding to
' the permission instance.
securityElementObj.AddAttribute("version", "1")
securityElementObj.AddAttribute("Unrestricted", "true")
securityElementObj.AddAttribute("class", "System.Net.DnsPermission")
' Reconstruct a DnsPermission instance from an XML encoding.
Dim permission1 As New DnsPermission(PermissionState.None)
permission1.FromXml(securityElementObj)
' Print the attributes and values of the constructed DnsPermission object.
Console.WriteLine("After reconstruction Attributes and Values of new DnsPermission instance :")
PrintKeysAndValues(permission1.ToXml().Attributes)
Catch e As NullReferenceException
Console.WriteLine("NullReferenceException caught!!!")
Console.WriteLine(("Source : " + e.Source))
Console.WriteLine(("Message : " + e.Message))
Catch e As SecurityException
Console.WriteLine("SecurityException caught!!!")
Console.WriteLine(("Source : " + e.Source))
Console.WriteLine(("Message : " + e.Message))
Catch e As ArgumentNullException
Console.WriteLine("ArgumentNullException caught!!!")
Console.WriteLine(("Source : " + e.Source))
Console.WriteLine(("Message : " + e.Message))
Catch e As Exception
Console.WriteLine("Exception caught!!!")
Console.WriteLine(("Source : " + e.Source))
Console.WriteLine(("Message : " + e.Message))
End Try
End Sub
Private Sub PrintKeysAndValues(myList As Hashtable)
' Get the enumerator that can iterate through the hash table.
Dim myEnumerator As IDictionaryEnumerator = myList.GetEnumerator()
Console.WriteLine(ControlChars.Tab + "-KEY-" + ControlChars.Tab + "-VALUE-")
While myEnumerator.MoveNext()
Console.WriteLine(ControlChars.Tab + "{0}:" + ControlChars.Tab + "{1}", myEnumerator.Key, myEnumerator.Value)
End While
Console.WriteLine()
End Sub