Использование простейших объектов - форм и командных кнопок - VB
Формулировка задачи:
Помогите пожалуйста выполнить задание:
Создать форму, которая при щелчке на ней мышью перемещается по экрану вправо на расстояние равное половине ее ширины, а при двойном щелчке - вниз на расстояние, равное половине ее высоты. Выхода за границу экрана не допускать, при достижении его границы менять направление движения на противоположное. В заголовок формы выдавать ее текущие координаты.
Заранее Спасибо!
Решение задачи: «Использование простейших объектов - форм и командных кнопок»
textual
Листинг программы
Dim H As Integer, W As Integer Dim sH As Integer, sW As Integer, dX As Integer, dY As Integer Private Sub Form_Load() sH = Screen.Height: sW = Screen.Width H = Height: W = Width: dX = W / 2: dY = H / 2 End Sub Private Sub Form_Click() If Left < 0 Or Left > sW - W Then dX = -dX Left = Left + dX Caption = "Top = " & Top & " " & "Left = " & Left End Sub Private Sub Form_DblClick() If Top < 0 Or Top > sH - H Then dY = -dY Top = Top + dY Caption = "Top = " & Top & " " & "Left = " & Left End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д