Программирование
Веб программирование

VB события

 
 

События MouseDown/MouseUp Эти события действуют тогда, когда кнопка мыши нажата(MouseDown),и когда отжата(MouseUp). Для примера сделаем программу(при нажатии на кнопку будет двигатся фигура, а при отжатии останавливаются): На форму кинь кнопку, Shape, и таймер. Создай событие MouseDown и MouseUp(меню Events(2 часть)). И впиши код:

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ' Если нажата кнопка наведенной мыши на кнопку то мы включаем таймер
Timer1.Interval = 1
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) ' Если отжата то выключаем
Timer1.Interval = 0
End Sub

Private Sub Timer1_Timer()
Shape1.Left = Shape1.Left + 30
End Sub

Скачать Исходник

 

События Resize - это событие есть только у формы, оно действует тогда, когда юзер пытается размеры окна изменить. Вот пример кода программы, у которой при изменении размера окна, возвращаются начальные размеры:

Private Sub Form_Resize()
Form1.Width = 4800
Form1.Height = 3600
End Sub

Теперь попробуй растени или сузь форму.


Есть вопросы? Спроси на нашем форуме!!
Нет комментариев

Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.