Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
Ввод пароля с ограничение времени ожидания ответа
 |
Option Explicit
Private Sub Command1_Click()
If Text1.Text = "Валерий" Then
Timer1.Enabled = False
MsgBox "Пароль правильный!"
Else
MsgBox "Не могу Вас опознать"
End If
End Sub
Private Sub Timer1_Timer()
MsgBox "Ваше время истекло",, "Ограничение времени"
End
End Sub
Примечание.
Добейтесь с помощью окна свойств, чтобы пароль при вводе отображался символами *.
Пример 21
Изменение размеров объектов в цикле. Основы анимации
Option Explicit
Private Sub Image2_Click()
If Timer1.Enabled = True Then
Timer1.Enabled = False
Else
Timer1.Enabled = True
End If
End Sub
Private Sub Timer1_Timer()
Image2.Left = Image2.Left - 90
Image2.Top = Image2.Top + 50
Image1.Height = Image1.Height + 20
Image1.Width = Image1.Width + 20
End Sub
Пример 22
Nbsp; Приветствие на разных языках Option Explicit Private Sub Command1_Click() End End Sub Private Sub Form_Load() List1.AddItem "Английский" List1.AddItem "Немецкий" List1.AddItem "Испанский" List1.AddItem "Итальянский" End Sub Private Sub List1_Click() Label3.Caption = List1.Text Select Case List1.ListIndex Case 0 Label3.Caption = "Hello, programmer!" Case 1 Label3.Caption = "Hello, programmierer" Case 2 Label3.Caption = "Hola, programador" Case 3 Label3.Caption = "Ciao, programator" End Select End Sub Пример 23
Date: 2016-07-25; view: 281; Нарушение авторских прав; Помощь в написании работы --> СЮДА... |