29.03.2020, 21:55 [+3 UTC]
в нашей команде: 4 310 чел. | участники онлайн: 3 (рекорд: 21)

:: РЕГИСТРАЦИЯ

задать вопрос

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.83 (12.03.2020)
JS-v.1.35 | CSS-v.3.37

Общие новости:
28.03.2020, 20:29

Форум:
28.03.2020, 21:05

Последний вопрос:
29.03.2020, 17:14
Всего: 151869

Последний ответ:
29.03.2020, 14:22
Всего: 259902

Последняя рассылка:
29.03.2020, 20:45

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
27.02.2019, 22:27 »
dar777
Это самое лучшее решение! [вопрос № 194810, ответ № 277543]
27.08.2009, 15:23 »
nikos
Отлично! Раньше, на других форумах, получал общие рассуждения, а здесь цифры!
22.04.2018, 17:16 »
Анатолий
Спасибо за глубокий анализ! [вопрос № 193125, ответ № 276440]

РАЗДЕЛ • Basic

Создание программ на языке Basic.

[администратор рассылки: Андреенков Владимир (Академик)]

Лучшие эксперты в этом разделе

solowey
Статус: Специалист
Рейтинг: 522
Megaloman
Статус: Советник
Рейтинг: 84
Асмик Гаряка
Статус: Советник
Рейтинг: 82

Перейти к консультации №:
 

Консультация онлайн # 72808
Раздел: • Basic
Автор вопроса: Senchuk Roman Valerievich Sage
Отправлена: 27.01.2007, 02:11
Поступило ответов: 1

Здравствуйте експерты. У меня к Вам парочка вопросов:
1) Как на кнопку Command поставить рисунок или иконку.
2)Как считывать с файла текст по строчкам, тоисть первую строчку нужно в текстовое окно, вторую в Label и так далее.

Состояние: Консультация закрыта

Ответ # 139466 от Залетин Виталий Викторович (мь

Здравствуйте, 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 ' Закрываем файл

Вот этот пример читает из текстового файла все строки. Нечетные сбрасываются в текстовое поле, а четные - в метку. Понятно, что это на пальцах, но развить идею дальше Вы уже сами сможете - например, ввести в программу массив меток и текстовых полей, добавлять по новому элементу при каждом считывании нечетной строки и заполнять их.
Удачи!


Консультировал: Залетин Виталий Викторович (мь
Дата отправки: 27.01.2007, 14:18

Рейтинг ответа:

0

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

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

Яндекс Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.14470 сек.

© 2001-2020, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.83 от 12.03.2020
Версия JS: 1.35 | Версия CSS: 3.37