本文整理汇总了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