powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / TreeView1
25 сообщений из 105, страница 1 из 5
TreeView1
    #37840901
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
здравствуйте, есть форма на ней есть TreeView1 при запуске программы TreeView1 заполняется по коду Call abcd(TreeView1)
как содержимое TreeView1 видимое на форме и спрятанное под "+" вывести на лист Ворда?
нужна эта одна строка кода, спасибо
...
Рейтинг: 0 / 0
TreeView1
    #37840904
qwerty112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
катастрофаздравствуйте, есть форма на ней есть TreeView1 при запуске программы TreeView1 заполняется по коду Call abcd(TreeView1)
как содержимое TreeView1 видимое на форме и спрятанное под "+" вывести на лист Ворда?
нужна эта одна строка кода, спасибо
т.е. если будет 2-е строки - то "не нужна" ?
...
Рейтинг: 0 / 0
TreeView1
    #37840912
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
qwerty112, нужна в любом случае
(Ворд - единственная внятная программа, так понятно)
...
Рейтинг: 0 / 0
TreeView1
    #37840913
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: vbnet
1.
НужныйУзел.Expanded = True
...
Рейтинг: 0 / 0
TreeView1
    #37840917
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro,
НужныйУзел
ещё бы их все выудить, чтобы узнать где нужный
чтобы вывести на лист Ворда нужно что-то типа того

Selection.TypeText Text:= а далее содержимое TreeView1
...
Рейтинг: 0 / 0
TreeView1
    #37840919
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Содержимое TreeView - это не какой-то единый объект, это коллекция узлов (Nodes). Каждый узел (Node) в коллекции ссылается на родительский узел (за исключением узлов самого верхнего уровня).
...
Рейтинг: 0 / 0
TreeView1
    #37840922
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro, да понятно это
как бы их эти узлы все выудить, чтобы узнать где нужный?
...
Рейтинг: 0 / 0
TreeView1
    #37840933
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Эндрю, я тебя уже просил - разберись с основами ОП. Коллекция - элементарнейшее понятие ОП. Любому программисту достаточно будет информации о существовании коллекции Nodes, чтобы понять, как "выудить". Вперед!
...
Рейтинг: 0 / 0
TreeView1
    #37840936
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro, ух-ты Шокер назвал меня программистом, ладно пошёл по направлению
...
Рейтинг: 0 / 0
TreeView1
    #37840938
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я как раз назвать тебя НЕ программистом, если ты не понял
...
Рейтинг: 0 / 0
TreeView1
    #37840973
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro, ладно проехали, доберусь до коллекции, как то спрашивал, не ответили, что такое создаю тему:
имя
52 Bad file name or number Неправильное имя или номер файла
текст
здравствуйте, с чего это на строке
Код: vbnet
1.
If Len(Dir$("A:\РабочаяПапка", vbDirectory)) <> 0 Then


52 я ошибка??
спасибо
отлуп
Тема содержит недопустимые символы.

где они эти символы???
по существу вопроса, что можете сказать?
...
Рейтинг: 0 / 0
TreeView1
    #37840980
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Скорее всего ты их не видишь. Пропусти текст заголовка через блокнот.
...
Рейтинг: 0 / 0
TreeView1
    #37840997
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
по основному вопросу
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
 Dim TreeView1Nodes As String
   TreeView1Nodes = ""
   
   Dim q As Long
   g = 0

   For q = 1 To TreeView1.Nodes.Count
   
   'TreeView1Nodes = TreeView1Nodes & TreeView1.Nodes(q).После точки не вываливается Name Item - что там есть???
   
   Next q
   
   MsgBox$ TreeView1Nodes
...
Рейтинг: 0 / 0
TreeView1
    #37841000
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.ProСкорее всего ты их не видишь. Пропусти текст заголовка через блокнот.во первых сказано Тема содержит недопустимые символы., тема а не заголовок, и что пропустил через блокнот, глаза не открылись
...
Рейтинг: 0 / 0
TreeView1
    #37841015
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Тема это заголовок.
Вставь его в блокнот, потом скопируй из блокнота... впрочем это тоже может не помочь. Удали там все, что тебе кажется пробелами поставь их вручную.

катастрофа
Код: vbnet
1.
После точки не вываливается Name Item - что там есть???

У узла нет имени. Есть ключ, есть индекс - по ним можно обращаться к узлу. Что за вопрос - F2 тебе на что даден?

ЗЫ: освой цикл For Each, тогда после точки будет вываливаться все, что надо.
...
Рейтинг: 0 / 0
TreeView1
    #37841106
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro, фор еах для меня это высший класс
додумался только до
Код: vbnet
1.
2.
3.
For Each Nodes In TreeView1
   q = q + 1
   Next Nodes


не компилируется, как надо?
...
Рейтинг: 0 / 0
TreeView1
    #37841109
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: vbnet
1.
2.
3.
4.
Dim ЭлементКоллекции AS ТипЭлементаКоллекции
For Each ЭлементКоллекции In Коллекция
  MsgBox ЭлементКоллекции.Index
Next


а теперь адаптируй к своему случаю. И запомни потом как отче наш.
...
Рейтинг: 0 / 0
TreeView1
    #37841119
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro, скомпилировалось, но при запуске выдало ошибку 438 - объект не поддерживает, какого лысого компилировалось
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Option Explicit

Private Sub Form_Load()

   Call EnumAllDevices(TreeView1)
   MsgBox$ TreeView1.Nodes.Count
   
   Dim TreeView1Nodes As String
   TreeView1Nodes = ""
   
   Dim aNodes As TreeView
   
   For Each aNodes In TreeView1
   TreeView1Nodes = TreeView1Nodes & aNodes.Index
   Next
   
  MsgBox TreeView1Nodes
   
End Sub


я правильно составил код
...
Рейтинг: 0 / 0
TreeView1
    #37841121
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
увидел
TreeView
TreeView1
...
Рейтинг: 0 / 0
TreeView1
    #37841123
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
катастрофаувидел
TreeView
TreeView1
отрекаюсь, не знаю...
...
Рейтинг: 0 / 0
TreeView1
    #37841126
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
я просил:
Код: vbnet
1.
2.
3.
4.
Dim ЭлементКоллекции AS ТипЭлементаКоллекции
For Each ЭлементКоллекции In Коллекция
  MsgBox ЭлементКоллекции.Index
Next

а ты что написал?
...
Рейтинг: 0 / 0
TreeView1
    #37841128
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Мы-таки добьем это, если опять скукотища не вмешается с готовым кодом
...
Рейтинг: 0 / 0
TreeView1
    #37841137
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.ProМы-таки добьем это, если опять скукотища не вмешается с готовым кодом
стараюсь, но в строке
Dim ЭлементКоллекции AS ТипЭлементаКоллекции
я же с неба придумать не могу, смотрю, что выпадает, предлагает, там только TreeView ну на худой конец - Object, тепло?
...
Рейтинг: 0 / 0
TreeView1
    #37841139
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А ты не гадай. Ты думай.
Начни со второго - с коллекции.
...
Рейтинг: 0 / 0
TreeView1
    #37841156
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
похоже, пошел консультироваться на соседний форум (
...
Рейтинг: 0 / 0
25 сообщений из 105, страница 1 из 5
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / TreeView1
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]