Шаг 69 - Типы LinkMode

Из всего четыре:

VbLinkNone 		0 		Нет DDE
VbLinkAutomatic 		1		Автоматическая
VbLinkManual 		2 		Ручная используется метод LinkRequest
VbLinkNotify 		3 		Сообщение. Для изменения используем LinkRequest

Итак, автоматический метод мы посмотрели в прошлом шаге, давайте сделаем ручной. Меняем настройки:

Private Sub Form_Load()
Text1.LinkTopic = "Excel|Лист1"
Text1.LinkItem = "R1C1"
Text1.LinkMode = vbLinkManual
End Sub

И создаем кнопку обновить.

gif/69_1.gif (2676 b)

По нажатию на эту кнопку мы будем обновлять текстовое поле. Пишем код.

Private Sub Command1_Click()
Text1.LinkRequest
End Sub

Теперь нам нужно будет нажимать на ее что бы обновить поле. Но ведь есть и еще один тип связи который поможет нам в этом деле. При изменении данных на сервере мы получим сообщений. Ставим тип VbLinkNotify.

Private Sub Form_Load()
Text1.LinkTopic = "Excel|Лист1"
Text1.LinkItem = "R1C1"
Text1.LinkMode = vbLinkNotify
End Sub

Но ведь нам нужно будет реагировать на сообщение. У тестового поля есть метод который нам нужно перегрузить.

gif/69_2.gif (5018 b)

Код к нему

Private Sub Text1_LinkNotify()
MsgBox "Data change"
End Sub

И теперь при изменении данных в Excel будет появляться табличка , но только в тот момент когда окно приложения станет активное.

gif/69_3.gif (8269 b)


Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем - 10.11.2001