Конференция VBStreets

**Stable** » 26.10.2006 (Чт) 18:49

Пожскажите пожалуйста. На первою строку выдает такую ошибку :
Compile error:
User-defined type not defined.
что мне нужно сделать?

Private Sub tvwCategories_nodeclick(ByVal node As comctlLib.node)
Select Case node
Case Is = "Встроенный"
ListIntrinsics
Case Is = "проводник"
listExplorer
Case Is = "Internet"
ListInternet
End Select
End Sub

**yaklit** » 26.10.2006 (Чт) 19:34

comctlLib.node
Бейсик не знает что это такое. 'Обьясни' ему (Project->Preferences)

**Tarantul** » 26.10.2006 (Чт) 19:36

Пользовательский тип не определен. Поскольку у тебя используется объект ComCtlLib.Node, то судя по всему не подключена библиотека ComCtlLib (подключается через Project->Components)

**Stable** » 26.10.2006 (Чт) 20:22

нету там такой библиотеки

**Antonariy** » 26.10.2006 (Чт) 22:04

Microsoft Windows Common Controls 6.0.

**Stable** » 27.10.2006 (Пт) 9:04

Antonariy
так он у меня стоит. Может я само слово неправильно написал?
comctlLib.node

**RayShade** » 27.10.2006 (Пт) 10:05

Вообще-то mscomctlib.node

**Stable** » 28.10.2006 (Сб) 8:05

RayShade
Всеравно ошибка.

Вот полностью код.
Option Explicit
Private Sub tvwCategories_nodeclick(ByVal node As mscomctlib.node)
Select Case node
Case Is = "Встроенные"
ListIntrinsics
Case Is = "Проводник"
listExplorer
Case Is = "Internet"
ListInternet
End Select
End Sub
Private Sub listExplorer()
Dim itm As ListItem
With lvwItems.ListItems
.Clear
Set itm = .Add(, , "Дерево", 1)
Set itm = .Add(, , "Табличный список", 1)
Set itm = .Add(, , "Список изображения", 1)
Set itm = .Add(, , "Панель инструментов", 1)
Set itm = .Add(, , "Строка состояния", 1)
End With
End Sub
Private Sub ListInternet()
Dim itm As ListItem
With lvwItems.ListItems
.Clear
Set itm = .Add(, , "web-brouser", 1)
Set itm = .Add(, , "ShellFolderView", 1)
Set itm = .Add(, , "Inet", 1)
Set itm = .Add(, , "Winsock", 1)
End With
End Sub
Private Sub ListIntrinsics()
Dim itm As ListItem
With lvwItems.ListItems
.Clear
Set itm = .Add(, , "графическое поле", 1)
Set itm = .Add(, , "Надпись", 1)
Set itm = .Add(, , "Текстовое поле", 1)
Set itm = .Add(, , "Рамка", 1)
Set itm = .Add(, , "Кнопка", 1)
Set itm = .Add(, , "Флажок", 1)
Set itm = .Add(, , "Переключатель", 1)
Set itm = .Add(, , "Комбинированное поле", 1)
Set itm = .Add(, , "Список", 1)
Set itm = .Add(, , "Горизонтальная полоса прокрутки", 1)
Set itm = .Add(, , "Вертикальная полоса прокрутки", 1)
Set itm = .Add(, , "Таймер", 1)
Set itm = .Add(, , "Список дисков", 1)
Set itm = .Add(, , "Список каталогов", 1)
Set itm = .Add(, , "Список файлов", 1)
Set itm = .Add(, , "Фигура", 1)
Set itm = .Add(, , "Линия", 1)
Set itm = .Add(, , "Рисунок", 1)
Set itm = .Add(, , "Данные", 1)
Set itm = .Add(, , "OLE", 1)
End With
End Sub
Private Sub Form_Load()
Dim cat As node

With tvwCategories.Nodes
Set cat = .Add(, , "root", "Объекты", 1)
Set cat = .Add("root", tvwChild, , "Встроенные", 1)
Set cat = .Add("root", tvwChild, , "Проводник", 1)
Set cat = .Add("root", tvwChild, , "Internet", 1)
End With
End Sub
Private Sub Form_Resize()
Dim mid1 As Integer
Dim mid2 As Integer

mid1 = (ScaleWidth / 2) - 50
mid2 = (ScaleWidth / 2) + 50
If WindowState <> vbMinimized Then
lvwItems.Move mid2, 0, ScaleWidth - mid2, ScaleHeight
End If
End Sub

**Viper** » 28.10.2006 (Сб) 8:50

Stable, заключи свой код в теги Code.
Иначе он плохо читаем

**lister** » 28.10.2006 (Сб) 9:46

RayShade, букву L пропустил...

mscomctLlib.node

Stable, отсюда и ошибка во второй строке...

**Stable** » 28.10.2006 (Сб) 19:01

lister
Спасибо , все работает.

**FaKk2** » 31.10.2006 (Вт) 1:08

А если у меня английский интерфейс?

**lister** » 31.10.2006 (Вт) 2:11

Это ты к чему?

**yaklit** » 31.10.2006 (Вт) 15:16

Может, к этому

Stable писал(а):RayShade
Всеравно ошибка.

Вот полностью код.
Option Explicit
Private Sub tvwCategories_nodeclick(ByVal node As mscomctlib.node)
Select Case node
Case Is = "Встроенные"
ListIntrinsics
Case Is = "Проводник"
listExplorer
Case Is = "Internet"
ListInternet
End Select
End Sub
Private Sub listExplorer()
Dim itm As ListItem
With lvwItems.ListItems
.Clear
Set itm = .Add(, , "Дерево", 1)
Set itm = .Add(, , "Табличный список", 1)
Set itm = .Add(, , "Список изображения", 1)
Set itm = .Add(, , "Панель инструментов", 1)
Set itm = .Add(, , "Строка состояния", 1)
End With
End Sub
Private Sub ListInternet()
Dim itm As ListItem
With lvwItems.ListItems
.Clear
Set itm = .Add(, , "web-brouser", 1)
Set itm = .Add(, , "ShellFolderView", 1)
Set itm = .Add(, , "Inet", 1)
Set itm = .Add(, , "Winsock", 1)
End With
End Sub
Private Sub ListIntrinsics()
Dim itm As ListItem
With lvwItems.ListItems
.Clear
Set itm = .Add(, , "графическое поле", 1)
Set itm = .Add(, , "Надпись", 1)
Set itm = .Add(, , "Текстовое поле", 1)
Set itm = .Add(, , "Рамка", 1)
Set itm = .Add(, , "Кнопка", 1)
Set itm = .Add(, , "Флажок", 1)
Set itm = .Add(, , "Переключатель", 1)
Set itm = .Add(, , "Комбинированное поле", 1)
Set itm = .Add(, , "Список", 1)
Set itm = .Add(, , "Горизонтальная полоса прокрутки", 1)
Set itm = .Add(, , "Вертикальная полоса прокрутки", 1)
Set itm = .Add(, , "Таймер", 1)
Set itm = .Add(, , "Список дисков", 1)
Set itm = .Add(, , "Список каталогов", 1)
Set itm = .Add(, , "Список файлов", 1)
Set itm = .Add(, , "Фигура", 1)
Set itm = .Add(, , "Линия", 1)
Set itm = .Add(, , "Рисунок", 1)
Set itm = .Add(, , "Данные", 1)
Set itm = .Add(, , "OLE", 1)
End With
End Sub
Private Sub Form_Load()
Dim cat As node

With tvwCategories.Nodes
Set cat = .Add(, , "root", "Объекты", 1)
Set cat = .Add("root", tvwChild, , "Встроенные", 1)
Set cat = .Add("root", tvwChild, , "Проводник", 1)
Set cat = .Add("root", tvwChild, , "Internet", 1)
End With
End Sub
Private Sub Form_Resize()
Dim mid1 As Integer
Dim mid2 As Integer

mid1 = (ScaleWidth / 2) - 50
mid2 = (ScaleWidth / 2) + 50
If WindowState <> vbMinimized Then
lvwItems.Move mid2, 0, ScaleWidth - mid2, ScaleHeight
End If
End Sub

Конференция VBStreets

Compile error

Compile error

Кто сейчас на конференции