Visual Basic. Практика. Ищенко В.А - 23 стр.

                                        23
                                                                   П род ол ж ен ие т а бл . 8
        1                  2                  3                4                     5
Г ра ф ическое
                   PictureBox        Н а кл ейка             Н ет
О кн о
                                                     Caption – О бра -
Р а м ка           Frame             Frame1
                                                     щен ие
П ерекл юча -                                        Caption – Г оспо-
                   OptionButton1     О бра щен ие1
т ел ь                                               д ин
П ерекл юча -                                        Caption – Г ос-
                   OptionButton2     О бра щен ие2
т ел ь                                               пож а
К ом а н д н а я                                     Caption – Н а пе-
                   CommandButton     CmdPrint
кн опка                                              ча т а т ь н а кл ейку

 4. Зад а т ь ф орм е и объект а м у пра вл ен ия, ра спол ож ен н ым н а н ей, д о-
    пол н ит ел ь н ые ра зл ичн ые свойст ва (а н а л огичн о т а бл . 2).
 5. В проект е при ра зра бот ке програ м м н ых код ов испол ь зова л ись сл е-
    д у ющие ф у н кции:

           Ø Cmd - возвра ща ет ча ст ь а ргу м ен тов ком а н д н ой строки, ис-
             пол ь зу ем ой при за пу ске MS Visual Basic ил и выпол н яем ой
             програ м м ой, ра зра бот а н н ой с пом ощь VB. В н а шем прим ере –
             пред ста вл яет ин ф орм а цию об а ргу м ен т а х, возвра ща ем у ю
             ф у н кцией Command.
           Ø Str – преобра зу ет числ овое выра ж ен ие в строку .

 6. Ввест и програ м м н ый код д л я объект а у пра вл ен ия CommandButton
    - Н апеч атать наклей ку , пом естив в событ ие Click () сл ед у ющие
    опера торы:

   Private Sub cmdPrint_Click()
   strИ м я$ = И м я.Text
   strФ ам илия$ = Ф ам илия.Text
   strАдрес $ = Адрес .Text
   strГ ород$ = Г ород.Text
   strП оч товы й И ндекс $ = Format(П оч товы й И ндекс .Text, “000000")
   If О бращение1.Value Then strО бращение$ = "Г ос подин"
   If О бращение2.Value Then strО бращение$ = "Г ос пожа"
   С трока1$ = strО бращение$& " "& strФ ам илия$ &" "&strИ м я$
   С трока3$ = strГ ород$ & ", " & strП оч товы й И ндекс $
   Н аклей ка.Print С трока1$
   Н аклей ка.Print strАдрес $
   Н аклей ка.Print С трока3$
   End Sub

 7. Р а зра бота т ь програ м м н ый код д л я объект а у пра вл ен ия К нопкаВ ы -
    х од.