Окно ввода данных
Предназначено для ввода данных с клавиатуры по запросу программы.
Создайте приложение
Private Sub Command1_Click()
Dim a As String
a = ImputBох("Введите строку", "Ввод данных")
Label 1 = а
End Sub
Запустите программу.
Функция Val() и Slr()
Преобразует строку цифр в число:
Val("123")- 123
Данная функция считывает строку символов до тех пор, пока не встретит символ, не употребляющийся в числах или вторую точку:
Val(“З0слов") = 30
Наоборот:
Str(123)="123"
Вывод информации на форму
До сих пор мы выводили информацию либо в метку, либо в текстовое поле. Можно выводить информацию и прямо на форму:
Задайте новый проект. Откройте окно написания кода. Напишите код:
Private Sub Form_Activate()
CurrentX = 1500
CurrentY = 500
Print "Строка на форме"
End Sub
CurrentX и CurrentY указывают начальное положение курсора для печати.
Координаты даны в твипах. Изменить масштаб (координаты в миллиметрах, например) можно в Form.ScaleMode
Оператор Print выводит строку символов каждый раз с новой строки. Если нам нужно склеить строки. то это делается так:
Print "Строка"; "строка рядом"
Или
Print "Строка", "строка рядом"
В этом случае каждая строка будет печататься с начала свой печатной зоны. Печатная зона всегда имеет размер 14 символов.
Если напечатать просто Print, то будет выведена пустая строка.
Функция Format
Предназначена для вывода числовой информации в заданном виде:
Private Sub Form_Activate()
Print Format( 123.12345, "###.##")
End Sub
Выведет на форме 123.12
Если требуется вводить незначащие нули, то:
Print Format(123.12, "000.000")
Выведет 123.120
Если требуется делить тройки цифр пробелами, то
Print Format( 12345.12. "##,###.##")
Для вывода $12 345.12
Print Format (12345.12. "$##,###.##")
Если программа работает с японскими йенами и надо вывести 100000000 йен, то лучше это сделать в виде «100 миллионов йен»
Print Format( 100000000, "#„"); " миллионов йен"
Работа с графическим окном
Предназначены для вывода в них изображений. Однако их можно использовать и для вывода в них текста.
На панели инструментов графическое окно представлено пустынным пейзажем. Поместите такое окно в форму вместе с командной кнопкой.
Можно выбрать рисунок для окна в его свойстве Picture. А можно его загружать программно, как это сделано в следующей программе:
Dim nFile(9) As String ‘ в разделе общих объявлений General
Private Sub Form_Load()
nFile(l)="new"
nFile(2) = "open"
nFile(3) = "cut"
nFile(4) = "copy"
nFile(5) = "paste"
nFile(6) = "print"
nFile(7) - "redo"
nFile(8) = "save"
nFile(9) = "spell"
End Sub
Private Sub Command l_Click()
Static n As Integer
n = n + 1
Picture1..Picture=LoadPicture("c:\Program Files\DevStudio\Vb\" & _
"graphics\bitmaps\offctlbr\large\color\" & nFile(n) & ".bmp")
End Sub
Кроме того, свойство Picture имеет и форма и многие другие элементы.