| |
|
|
| | Разместил на форме через "элементы AcitveX" Microsoft Trew View Control 6.0 (Sp6.0)
Имя - TreeView0
Класс OLE - TreeCtrl
Класс - MSComctlLib.TreeCtrl.2
далее пишу в модуле формы код
Option Compare Database
Dim myTrView As MSComctlLib.TreeView
Private Sub Form_Load()
Set myTrView = TreeView0
myTrView.???
End Sub
Пожалуйста, Вопрос: как в модуле обратиться к TreeView0 ?
пробовал Set TreeView0 = MSComctlLib.TreeView тоже не правильно. | |
| |
| |
| |
|
|
| | акс не понимает что такое TreeView0
может так
forms![имя формы]!TreeView0
или так
Me!TreeView0
а сразу обращаться к свойствам контрола не пробывали без вот этого
Dim myTrView As MSComctlLib.TreeView
...
...
Set myTrView = TreeView0
|
| |
| |
| |
| |
|
|
| | Set myTrView = Me.TreeView0
Ошибка type mismatch :(
me.TreeView0.??? по прежднему не дает сво-ва. | |
| |
| |
| |
|
|
| | Set myTrView = Me.TreeView0.object | |
| |
| |
| |
|
|
| | ура заработало! спс. выручили. | |
| |
| |
