How To Use DDE with Visual Basic and Windows Program Manager

MORE INFORMATION

1. Run Visual Basic for Windows, or on the File menu, click New Project (ALT, F, N) if Visual Basic for Windows is already running. Form1 is created by default.
2. Create the following controls with the given properties on Form1:

         Object     Name         Caption
         --------------------------------
         TextBox    Text1
         Button     Command1     Make
         Button     Command2     Delete
         Button     Command3     Request
   						

3. Add the following code to the Command1_Click event:

         Private Sub Command1_Click ()
            Text1.LinkTopic = "ProgMan|Progman"
            Text1.LinkMode = 2               ' Establish manual link.
   
            Text1.LinkExecute "[CreateGroup(Test Group)]"
                ' Make a group in Windows Program Manager.
   
            Text1.LinkExecute "[AddItem(c:\vb\vb.exe, Visual Basic)]"
                ' Add an item to that group.
   
            Text1.LinkExecute "[ShowGroup(Test Group, 7)]"
                ' Iconize the group and focus to VB application.
   
         On Error Resume Next  ' Disconnecting link with Windows Program
         Text1.LinkMode = 0    '  Manager causes an error in Windows 3.0.
                   ' This is a known problem with Windows Program Manager.
         End Sub
   						

4. Add the following code to the Command2_Click event:

         Private Sub Command2_Click ()
            Text1.LinkTopic = "ProgMan|Progman"
            Text1.LinkMode = 2          ' Establish manual link.
   
            Text1.LinkExecute "[DeleteGroup(Test Group)]"
                ' Delete the group and all items within it.
   
            On Error Resume Next  ' Disconnecting link with Windows Program
            Text1.LinkMode = 0    '  Manager causes an error in Windows 3.0.
                       ' This is a known problem with Windows Program Manager.
         End Sub
   						

5. Add the following code to the Command3_Click event:

         Private Sub Command3_Click ()
            Text1.LinkTopic = "ProgMan|Progman"
            Text1.LinkItem = "PROGMAN"
            Text1.LinkMode = 2      ' Establish manual link.
            Text1.LinkRequest       ' Get a list of the groups.
   
            On Error Resume Next  ' Disconnecting link with Windows Program
            Text1.LinkMode = 0    '  Manager causes an error in Windows 3.0.
                   ' This is a known problem with Windows Program Manager.
         End Sub
   						

6. Press the F5 key to run the program.
7. Click the Make button, and then click the Delete button. Note the result.
8. Click the Request button. This puts a list of the groups in the Windows Program Manager to be placed in the text box. The individual items are delimited by a carriage return plus linefeed.

   DDE and CreateGroup