Вопрос № 72808: Здравствуйте експерты. У меня к Вам парочка вопросов:
1) Как на кнопку Command поставить рисунок или иконку.
2)Как считывать с файла текст по строчкам, тоисть первую строчку нужно в текстовое окно, вторую в Label и так далее....
Вопрос № 72.808
Здравствуйте експерты. У меня к Вам парочка вопросов:
1) Как на кнопку Command поставить рисунок или иконку.
2)Как считывать с файла текст по строчкам, тоисть первую строчку нужно в текстовое окно, вторую в Label и так далее.
Отвечает: Залетин Виталий Викторович (мь!тарь)
Здравствуйте, Senchuk Roman Valerievich Sage!
1). У кнопки есть есть свойство Style, которое должно быть установлено в окне свойств кнопки в значение Graph, а потом свойству Picture этой же кнопки надо присвоить рисунок (либо открыть, нажав на кнопку с тремя точками, либо присвоить в коде, например, из ресурсов: Set Command1.Picture=LoadResPicture(101,vbResIcon)).
2). Команда "Line Input" читает в переменную типа String строку из открытого файла.
Вот ее синтаксис:
Line Input #номерФайла, Переменная
номерФайла получается вызовом FreeFile, а переменная - и так понятно.
Команда последовательно считывает из файла по одному символу до тех пор, пока не встретит символ возврата каретки (vbCr) или комбинацию символов возврата каретки и перевода строки (vbCrLf). Cчитанная таким образом строка записывается в переменную (без символов конца строки), которую, например, можно записать уже куда Вам надо.
Например:
Dim strText as string, iFile as Integer, iIter as Integer
iFile=FreeFile
Open "MyFile.txt" For Input As #iFile ' Открываем файл
iIter = 0
Do While Not EOF(iFile) ' Цикл до конца файла
Line Input #iFile, strText ' Читаем строку в переменную
iIter = iIter + 1
'Если это нечетная строка
If ((iIter Mod 2) <> 0) Then 'Это 1, 3, 5, 7 и т. д. строки
TextBox.Text = TextBox.Text & strText
Else
'Это четная строка - 2, 4, 6, 8 и т. д.
Label.Caption = strText
End If
Loop
Close #iFile ' Закрываем файл
Вот этот пример читает из текстового файла все строки. Нечетные сбрасываются в текстовое поле, а четные - в метку. Понятно, что это на пальцах, но развить идею дальше Вы уже сами сможете - например, ввести в программу массив меток и текстовых полей, добавлять по новому элементу при каждом считывании нечетной строки и заполнять их.
Удачи!
--------- Учиться никогда не поздно. Особенно программированию!
