Использование простейших объектов - форм и командных кнопок - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4.333 из 5
Похожие ответы