Дополнительные примеры построения интерфейсов

И ПРОГРАММ ДЛЯ САМОСТОЯТЕЛЬНОГО РАЗБОРА

И ВЫПОЛНЕНИЯ

Пример 18

Nbsp; Графические кнопки и форматирование текста

Option Explicit

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Image1.Tag = "Up" Then

Image1.Picture = Image4.Picture

Label2.FontBold = True

Image1.Tag = "Down"

Else

Image1.Picture = Image7.Picture

Label2.FontBold = False

Image1.Tag = "Up"

End If

End Sub

Private Sub Image2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Image2.Tag = "Up" Then

Image2.Picture = Image5.Picture

Label2.FontItalic = True

Image2.Tag = "Down"

Else

Image2.Picture = Image8.Picture

Label2.FontItalic = False

Image2.Tag = "Up"

End If

End Sub

Private Sub Image3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Image3.Tag = "Up" Then

Image3.Picture = Image6.Picture

Label2.FontUnderline = True

Image3.Tag = "Down"

Else

Image3.Picture = Image9.Picture

Label2.FontUnderline = False

Image3.Tag = "Up"

End If

End Sub

Пример 19

Nbsp; Пример использования конструкции If_Then

Option Explicit

Dim UserName As String, Pass As String

Private Sub Command1_Click()

UserName = InputBox("Введите Ваше имя", "Ввод имени")

Pass = InputBox("Введите пароль", "Пароль")

If UserName = "Валерий" And Pass = "я" Then

MsgBox "Здравствуйте, Валерий",, "Приветствие"

Image1.Picture = LoadPicture("C:\Windows\ACD Wallpaper.bmp")

ElseIf UserName = "Николай" And Pass = "ты" Then

MsgBox "Здравствуйте, Николай",, "Приветствие"

Image1.Picture = LoadPicture("C:\Windows\589047.bmp")

Else

MsgBox "Я не могу опознать Вас",, "Опознание"

End

End If

End Sub

Пример 20