Microsoft KB Archive/181946

= How To Create a NetDDE Client and Server in Visual Basic =

Article ID: 181946

Article Last Modified on 6/29/2004

-

APPLIES TO


 * Microsoft Visual Basic 5.0 Learning Edition
 * Microsoft Visual Basic 5.0 Professional Edition
 * Microsoft Visual Basic 5.0 Enterprise Edition
 * Microsoft Visual Basic 4.0 Standard Edition
 * Microsoft Visual Basic 4.0 Professional Edition
 * Microsoft Visual Basic 4.0 Professional Edition
 * Microsoft Visual Basic 4.0 16-bit Enterprise Edition
 * Microsoft Visual Basic 4.0 32-Bit Enterprise Edition

-



This article was previously published under Q181946



SUMMARY
This article demonstrates how to use NetDDE to communicate with a Microsoft Visual Basic application on a remote computer. This article assumes that you are familiar with DDE communications and demonstrates creating both the client and server applications in Visual Basic.



MORE INFORMATION
In order to establish a link to a remote application, a DDE share must be created on the remote computer. A DDE share consists of a Share Name, Application name, and a Topic. Shares may be created and edited using the DDE Share Manager (DDESHARE.EXE), which may be found in the  directory on NT 4.0. For Windows 95, Windows 98, Windows Me, and Windows For Workgroups, the Network DDE Share Manager can be found in the Windows for Workgroups Resource Kit.

Creating the Visual Basic NetDDE Server

 * 1) Start Visual Basic and create a new Standard EXE application. Form1 is created by default.
 * 2) Place a Textbox (Text1) on Form1 and set the Text Property to "The DDE Server is Running."
 * 3) Change the LinkMode Property of Form1 to "1 - Source."
 * 4) Select Project1 Properties from the Project menu, select the Make tab, and then change the application title to DDESRV.
 * 5) Compile and save the application and name it DDESRV.EXE.
 * 6) Install the application on a computer on your network that you want to use as the Server.

Creating the DDE Share on the Server
 Start the DDE Share Manager Application on the Computer designated as the Server. Select Run from the Windows Start menu, and then run DDESHARE. Select "DDE Shares" from the "Shares" menu. A list of shares that have previously been set up will be displayed in the list box. Click the "Add a Share" button. Enter "DDETEST$" in the "Share Name" textbox.

NOTE: When creating the share name it is not necessary to place a trailing "$," although it is conventional to do so.  Enter the following values in the corresponding Application and Topic Text boxes:                      Application Name              Topic Name ---         ---   oldstyle             DDESRV.DDE                    Form1 newsytle            DDESRV.OLE                    Form1 static              DDESRV                        Form1

NOTE: The DDESHARE utility for WFW/WIN95/WIN98 only supports defining one Application and Topic name each. Use the static Application and Topic names from the list above.  Click OK to close the DDE Share Properties dialog.

IMPORTANT: Due to a bug in the DDE Share Utility, when exiting the DDE Share application, a new serial number is created for the Share but is not updated in the Trusted DDE Shares section of the registry; therefore, the next two steps are very important.</li> Select the DDETEST$ share in the list and click on the "Trust Share" button.</li> Make sure that "Initiate to Application Enable" is selected and then click the "SET" button.</li> Press OK on both open dialogs and then exit the DDE Share Utility.</li></ol>

Creating and Testing the Visual Basic NetDDE Client
<ol> Start a new Standard EXE project in Visual Basic. Form1 is created by default.</li>  Add a CommandButton to Form1. Change the following properties: <pre class="fixed_text">  Name:     cmdConnect Caption: Connect

</li> Add a Text box to Form1 and name it txtData.</li>  Paste the following code into the Declarations Section of Form1:

NOTE: Replace the <MACHINE NAME> with the appropriate computer name where the DDE SRV application will be running. Private Sub cmdConnect_Click txtData.linkMode = vbLinkNone txtData.linkTopic = "\\<MACHINE NAME>\NDDE$|DDETEST$        txtData.LinkItem = "Text1"         txtData.LinkMode = vbLinkManual         txtData.LinkRequest      End Sub

</li> Start the DDESRV application on the Network computer acting as the DDE Server.</li> Press the F5 key to run this client within the Visual Basic 5.0 IDE.</li> Click the Command button labeled "Connect" and note that the string "The DDE Server is Running" appears within the txtData Text Box.</li></ol>

<div class="references_section">