| |
DDE |
|
| |
Небольшой пример использования DDE. DDE - это механизм для обмена данными между приложениями.
Создайте 2 проекта (с именами "Project1" и "Project2"). В первом проекте у формы установить свойства LinkTopic="SYSTEM" и LinkMode=1. Добавьте на форму Label и установите свойство LinkItem="DDE".
Во втором проекте добавьте TextBox и CommandButon (имена не изменяйте).
Добавьте в проекты расположенный ниже код.
Запустите первый проект (сервер DDE), затем второй (клиент DDE). Нажмите на кнопку - в TextBox на форме первого проекта появится строка, переданная из второго проекта.
'Код первого проекта
Private Sub Form_LinkExecute(CmdStr As String, Cancel As Integer)
MsgBox "Received " & CmdStr, vbInformation
Cancel = False
End Sub
'Код второго проекта
Private Sub Command1_Click()
Text1.LinkMode = vbLinkNone
Text1.LinkTopic = "Project1|SYSTEM"
Text1.LinkItem = "DDE"
Text1.LinkMode = vbLinkManual
Text1.LinkExecute "Hello World"
End Sub
|
|
| |
|
|
|
|