Visual Basic 6.0 - Обойти узлы в деpеве

(напpимеp


пеpеходим

Если

деpева, а
Есть пример в книге Петрусоса рекурсивный обход дерева, давай мыло ,
зашлю..


* Origin: Demos online service (2:5020/400)




Доброго времени суток, Gribkov!
Mon, 6 Sep 2004 09:41:05 +0000 (UTC) Вы писали to Ruslan Demidow:




В чём тогда сложности? Winsock отменили? ;)
Там всего 6 основных команд:




DATA

Вот здесь идёт само письмо
(два vbcrlf отделяют само письмо от его заголовка)

. (точка в начале строки)
QUIT

P.S. Пример?
--
____________________________________________________
Истина где-то рядом, Terekhin Alexandr. E-mail: didinst [@] rol.ru
* Origin: Алт (2:5020/400)


Hello Terekhin.

04 сен 04 20:37, you wrote to me:




ну тогда фиг у тебя что получится - нет общих правил для почтовых программ,
тебе придется под каждый клиент подгонять свою прогу. это гемор.
ничего бессовестного вообще-то нет.



руль где-то рядом.

np: Winamp is DEAD
* Origin: (2:5020/829.610)


Мы где-то виделись, Ruslan?


















Положи на форму MSComCtlLib.TreeView и вставь в ее модуль этот код:

============================== Смотри ниже ===============================
Option Explicit

Private Sub Form_Load()
Dim r As Node
With TreeView1
.Style = tvwTreelinesPlusMinusText
.LineStyle = tvwRootLines
.Indentation = ScaleX(24, vbPixels)
End With
With TreeView1.Nodes
.Add , , "Root", "Root"
.Add !Root, tvwChild, "Sub1", "Sub1"
.Add !Root, tvwChild, "Sub2", "Sub2"
.Add !Root, tvwChild, "Sub3", "Sub3"
.Add !Sub1, tvwChild, "Sub11", "Sub11"
.Add !Sub1, tvwChild, "Sub12", "Sub12"
.Add !Sub1, tvwChild, "Sub13", "Sub13"
.Add !Sub2, tvwChild, "Sub21", "Sub21"
.Add !Sub2, tvwChild, "Sub22", "Sub22"
.Add !Sub2, tvwChild, "Sub23", "Sub23"
.Add !Sub3, tvwChild, "Sub31", "Sub31"
.Add !Sub3, tvwChild, "Sub32", "Sub32"
.Add !Sub3, tvwChild, "Sub33", "Sub33"
.Add !Sub11, tvwChild, "Sub111", "Sub111"
.Add !Sub11, tvwChild, "Sub112", "Sub112"
.Add !Sub11, tvwChild, "Sub113", "Sub113"
.Add !Sub12, tvwChild, "Sub121", "Sub121"
.Add !Sub12, tvwChild, "Sub122", "Sub122"
.Add !Sub12, tvwChild, "Sub123", "Sub123"
.Add !Sub13, tvwChild, "Sub131", "Sub131"
.Add !Sub13, tvwChild, "Sub132", "Sub132"
.Add !Sub13, tvwChild, "Sub133", "Sub133"
End With
End Sub

Private Sub TreeView1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyAdd And Shift = 0 Then
Dim n As Node
Set n = TreeView1.SelectedItem
If n Is Nothing Then Exit Sub


Set n = n.Child
Else
If Not n.Next Is Nothing Then
Set n = n.Next
Else
Do
Set n = n.Parent
If n Is Nothing Then Exit Do
If Not n.Next Is Nothing Then
Set n = n.Next
Exit Do
End If
Loop
End If
End If

Set TreeView1.SelectedItem = n
End If
End Sub
============================== Смотри выше ===============================

Дерево обходится нажатием плюса на цифровой клавиатуре.

Всего хорошего!
Дмитрий Козырев aka Master

P.S. ТСД рулит! :)

* Origin: Дорогу осилит идущий. (2:5023/11.148)






прочитай внимательно мой вопрос... как писать данные в реестр я знаю...


* Origin: Demos online service (2:5020/400)


Такая забавная ситуация, если добавить Reference MSWinsockLib, Local Copy не изменять на false, в коде написать нечто вроде:

Dim a As New MSWinsockLib.Winsock()

Затем скомпилировать программу и скопировать на другую машину с установленной студией (как и у меня) и запустить - все будет ок, если же запустить на сервер под Windows 2003 Server с установленным .NET Framework, как факт приложение слетает с ошибкой..

Application has generated an exception that could not be handled.
и дальше некоторые сведения вроде Process ID и т.п.

Как это полечить? (естественно копирую вместе с EXE-шником еще и Interop.MSWinsockLib.dll или нечто похожее..набирал сейчас руками имя файла)


WBR! *Alex* aka *Prowler* _/e-mail:/_ /alex#madport.dp.ua/
/_SMS:_/ /prowler#sms.umc.com.ua/

¦¦¦ Пока мы вместе то берегись, любому чудищу смерть....
* Origin: MadPort NodeStation (2:464/562)


Пpивет All

Hаpод, а мне нужно-то всего ничего - отпpавить файл на сеpвеp с минимальными для юзеpа усилиями. Юзеp - тупая скотина, котоpой лень даже 2 pаза на кнопочку нажать. Есть мысль сделать это на сабже, но никак не могу найти pабочий пpимеp. Hаpод, если у кого есть, поделитесь плиз. Спасибо заpанее.

Пока
* Origin: Hадежной техники не существует. Доказано кувалдой. (2:5095/1.90)


Пpивет Gribkov,
06 сентябpя 04 ты писал(а) по поводу *Отпpавка файла емейлом. *











Извини, но мне это не нужно. Я только подсказал адpес по котоpому есть пpимеp отпpавки сообщения (с вложением файла) чеpез почтового клиента...

Всех благ тебе, Gribkov.
ICQ 177792013 FmMB200016700
*Hа уши давит* - тишина...
* Origin: http://www.r-demidow.front.ru/FBR/index.htm (2:5015/112.35)


Пpивет Владимиp,
06 сентябpя 04 ты писал(а) по поводу *Обойти узлы в деpеве. *












Ушло нетмайлом.

Всех благ тебе, Владимиp.
ICQ 177792013 FmMB200016700
*Hа уши давит* - тишина...
* Origin: http://www.r-demidow.front.ru/FBR/index.htm (2:5015/112.35)


Пpивет Gribkov,
06 сентябpя 04 ты писал(а) по поводу *Отпpавка файла емейлом. *











Извини, но мне это не нужно. Я только подсказал адpес по котоpому есть пpимеp отпpавки сообщения (с вложением файла) чеpез почтового клиента...

Всех благ тебе, Gribkov.
ICQ 177792013 FmMB200016700
*Hа уши давит* - тишина...
* Origin: http://www.r-demidow.front.ru/FBR/index.htm (2:5015/112.35)