DnsPermission.Union Method

Private Sub MyUnion()
    ' Create a DnsPermission instance which is the union of the current DnsPermission instance and the specified DnsPermission instance. 
    Dim permission As DnsPermission = CType(dnsPermission1.Union(dnsPermission2), DnsPermission)
    ' Print the attributes and values of the union instance of DnsPermission.
    PrintKeysAndValues(permission.ToXml().Attributes)
End Sub 'MyUnion
Public Sub useDns()
    ' Create a DnsPermission instance.
    dnsPermission1 = New DnsPermission(PermissionState.Unrestricted)
    dnsPermission2 = New DnsPermission(PermissionState.None)
    ' Check for permission.
    dnsPermission1.Demand()
    dnsPermission2.Demand()
    Console.WriteLine("Attributes and Values of first DnsPermission instance :")
    PrintKeysAndValues(dnsPermission1.ToXml().Attributes)
    Console.WriteLine("Attributes and Values of second DnsPermission instance :")
    PrintKeysAndValues(dnsPermission2.ToXml().Attributes)
    Console.WriteLine("Union of both instances : ")
    MyUnion()
    Console.WriteLine("Intersection of both instances : ")
    MyIntersection()
End Sub 'useDns

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 'PrintKeysAndValues

   void MyUnion() 
   {
      // Create a DnsPermission instance that is the union of the current DnsPermission
      // instance and the specified DnsPermission instance.
      DnsPermission* permission = dynamic_cast<DnsPermission*>(dnsPermission1->Union(dnsPermission2));
      // Print the attributes and the values of the union instance of DnsPermission.
      PrintKeysAndValues(permission->ToXml()->Attributes);
   }
public:
   void useDns() 
   {
      // Create a DnsPermission instance.
      dnsPermission1 = new DnsPermission(PermissionState::Unrestricted);
      dnsPermission2 = new DnsPermission(PermissionState::None);
      // Check for permission.
      dnsPermission1->Demand();
      dnsPermission2->Demand();
      Console::WriteLine(S"Attributes and Values of first DnsPermission instance :");
      PrintKeysAndValues(dnsPermission1->ToXml()->Attributes);
      Console::WriteLine(S"Attributes and Values of second DnsPermission instance :");
      PrintKeysAndValues(dnsPermission2->ToXml()->Attributes);
      Console::WriteLine(S"Union of both instances : ");
      MyUnion();
      Console::WriteLine(S"Intersection of both instances : ");
      MyIntersection();
   }

private:
   void PrintKeysAndValues(Hashtable* myList) 
   {
      // Get the enumerator that can iterate through the hash tabble.
      IDictionaryEnumerator* myEnumerator = myList->GetEnumerator();
      Console::WriteLine(S"\t-KEY-\t-VALUE-");
      while (myEnumerator->MoveNext())
         Console::WriteLine(S"\t {0}:\t {1}", 
         myEnumerator->Key, myEnumerator->Value);
      Console::WriteLine();
   }