Как записать данные в текстовый файл из полей Label?Я идиот! Убейте меня, кто-нибудь!

[Daniil]

опустим у меня есть 5 полей label как записать имена этих полей и их значения в текстовый файл *.ТХТ

Например: Label1.text = “мой текст 1”
Чтобы это записалось в файлкак: “мой текст 1” из “комментарий: моя программа версия 1” из поля Label1.text

[DenB]

Значение - Label1.Caption
Имя - Label1.Name

[Amed]

Open "C:\123.txt" For Output As #1
Print #1, """" & Label1.Caption & """" & " из " & Label1.Name
Print #1, """" & Label2.Caption & """" & " из " & Label2.Name
Print #1, """" & Label3.Caption & """" & " из " & Label3.Name
Print #1, """" & Label4.Caption & """" & " из " & Label4.Name
Print #1, """" & Label5.Caption & """" & " из " & Label5.Name
Close #1

[RayShade]

Amed, некрасивый способ. Ибо нерационален.

Код: Выделить всё

for each ctl in form.controls
if typeof ctl is vb.label then print #1, ctl.caption
next ctl

[Max_S]

Сделать то же, но с любым объектом как?

Пишу лог работы программы в тестовый файл...
Как преобразовать любой объект в понятную строку.
Код:
Public Sub Log(Комментарий As String, Optional Объект)
'пишем в файл
If IsMissing(Объект) Then
Print #LogФайл, Now & " " & Комментарий
Else
'обрабатываем объект
Print #LogФайл, Now & " " & Комментарий ' & " Объект:" & CStr(Объект) - как тут быть? ошибка возникает
End If
End Sub

[RayShade]

Интересно, что имеется в виду под преобрахзованием объекта в строку выведения в строку типа объекта? его имени? Или еще что то?

[Max_S]

выведения в строку типа объекта? его имени? Или еще что то?

Вывести самое интересное Например, значение. А можно имя и значение.

[RayShade]

У объекта нет "значения" в общепритянтом для переменных виде. "Значением" может быть только значение опредленной его проперти.