Функция 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 имеет и форма и многие другие элементы.