Создание пользовательских форм в Visual Basic for Applications. Любин А.Н. - 19 стр.

UptoLike

Составители: 

19
Используем заготовку для процедуры CommandButton1_Clik(),
задаем в процедуре переменную под названием Имя, описываем еѐ
как строковую переменную (Dim Имя As String). Переменной Имя
присваиваем текст, который будет вводиться в поле элемента
управления TextBox1, указывая при этом параметр .Text или
.Value. В процедуре это выглядит так: Имя = TextBox1.Text см.
рис.18.
Далее в поле элемента управления Label2 вводится текст, с
приветствием по имени пользователя процедуры и указанием на-
стоящей даты и времени. В процедуре это задаѐтся следующим об-
разом:
Label2.Caption = " ЗДРАСТВУЙТЕ," & Имя & "!" & _
vbLf & vbLf & " СЕГОДНЯ " & Format(Now, "dddddd,hh ч.
mm мин.") см. рис. 18. Все действия процедуры CommandBut-
ton1_Clik() будут выполняться в случаи нажатия кнопки
CommandButton1, которую мы ввели на созданной форме см.
рис.13.
Рис. 18
    Используем заготовку для процедуры CommandButton1_Clik(),
задаем в процедуре переменную под названием Имя, описываем еѐ
как строковую переменную (Dim Имя As String). Переменной Имя
присваиваем текст, который будет вводиться в поле элемента
управления TextBox1, указывая при этом параметр .Text или
.Value. В процедуре это выглядит так: Имя = TextBox1.Text см.
рис.18.
    Далее в поле элемента управления Label2 вводится текст, с
приветствием по имени пользователя процедуры и указанием на-
стоящей даты и времени. В процедуре это задаѐтся следующим об-
разом:
 Label2.Caption = "       ЗДРАСТВУЙТЕ," & Имя & "!" & _
 vbLf & vbLf & " СЕГОДНЯ " & Format(Now, "dddddd,hh ч.
mm мин.") см. рис. 18. Все действия процедуры CommandBut-
ton1_Clik() будут выполняться в случаи нажатия кнопки
CommandButton1, которую мы ввели на созданной форме см.
рис.13.




                           Рис. 18


                              19