Программирование свойств формы

Постановка задачи.

Написать, не используя окно свойств, программу, на форме которой отразить картинку и две строки текста (См. рис.).

 

Основы программирования.

Ÿ         Программирование свойств. Современная визуальная среда программирования дает возможность быстро задать начальные свойства объектов в окне свойств (и не только свойства). Тем не менее, практически в каждой разработке, по ходу программы необходимо изменять параметры объектов. Поэтому данная тема посвящена программированию свойств объектов с помощью только кода, не используя окна свойств (другими словами, написать программу в узком смысле слова программирования). 

Ÿ         Переменные. Переменной называют область памяти, в которой могут храниться различные значения.

Типы переменных                 Описание

             Integer                         -32 768 – 32 768

             Byte                                        0 – 255

             Long                                       >> Integer

 Single                                      0.0

 Double                                    >> Single

            String                                       строка

Boolean                                    True – False

Date                                         15.07.00

Variant                                     Универсальная переменная для хранения

         значения большинства других типов.

Примечание. Если переменная не объявлена, то VB считает, что она  относится к универсальному типу Variant. Не рекомендуется применять слишком часто - может запутать вас в типах данных.         

 

Рекомендуемый план разработки программы.

1.      Показать форму. Начните новый проект. Дважды щелкните по форме. Откроется процедура Form_Load(). Вставьте в нее выражение (Метод объекта Form1)

Form1.Show

     Сохраните проект, первый файл под именем MainFrm.frm, а второй файл как code.vbp

2.      Программирование основных свойств формы. В коде программы перейдите в правое окно и найдите событие инициализации формы (initialize). Щелкнув по слову initialize, вставьте в процедуру инициализации параметры формы и обязательно сопроводите их комментариями: 

 

Private Sub Form_Initialize()

   Width = 8000                   ‘ ширина формы в единицах twip (см. свойство ScaleMode)

   Height = 3000                  ‘ высота формы в twip (см. свойство ScaleMode)

   Caption = "Программирование свойств."                  ‘Заголовок формы

   Icon = LoadPicture("c:/basic/posobie2/case_2/flgrus.ico")   ‘Загрузить иконку формы

   Picture = LoadPicture("c:/basic/posobie2/case_2/z10.bmp")    ‘ Загрузить картинку

End sub

 Сохраните, запустите и проверьте программу. 

 

3.      Программирование свойств первой строки. Дополните текущую процедуру следующими выражениями:

 

Private Sub Form_Initialize()

Dim Str1 As String  ‘Объявление строковой переменной

...

FontTransparent = True          ' пусть у строки не будет фона

FontName = "Times New Roman"         ‘ Название шрифта

FontSize = 18                                              ‘ Размер шрифта

FontBold = True                                         ‘ Стиль шрифта

ForeColor = vbBlue                                   ‘ Цвет шрифта

Str1 = "Какая боль, какая боль-"   ‘В строковую переменную поместить текст

 ‘Центр строки (TextWidth(Str1) / 2) поместить в центре формы (ScaleWidth/2)

CurrentX = (ScaleWidth - TextWidth(Str1)) / 2  '  по горизонтали

CurrentY = ScaleHeight / 3 - TextHeight(Str1) 'по вертикали на 1/3 ниже верха формы

Print Str1         'Вывести на форму содержание строковой переменной

...

Сохраните, запустите и проверьте, как влияет изменение каждого параметра на вид строки.

 

4.      Программирование свойств второй строки. Дополните текущую процедуру следующими выражениями:

 ...

  FontName = "Arial Cyr"

  FontSize = 18

  ForeColor = vbRed

  CurrentX = (ScaleWidth - TextWidth("Visual Basic пять ноль")) / 2

  CurrentY = 2 * ScaleHeight / 3 - TextHeight("Visual Basic пять ноль")

  Print  "Visual Basic пять ноль"

End Sub

 

Развитие программы.

1. Нестандартная мышка. Придайте указателю мыши нестандартный вид, например, в виде руки. Подсказка.

Icon = LoadPicture("c:/basic/posobie2/case_2/flgrus.ico")

MouseIcon = LoadPicture("c:/basic/posobie2/case_2/h_point.cur")

MousePointer = vbCustom

 

2. Обратная задача. Установите значения всех свойств в окне свойств, заблокировав процедуру инициализации.