double arrow

Порядок действий


1. Измените программный код проекта следующим образом:

Private Sub CmdПриветствие_Click()

Dim YourName As String

Dim t As String

YourName = InputBox("Введите свое имя", "Имя")

CmdПриветствие.Visible = False

t = 0 + 64 'Кнопка ОК и пиктограмма Информация

MsgBox "Здравствуйте " +YourName+ "! Рады приветствовать Вас в нашем проекте!", t, "Привет!!!"







Сейчас читают про: