Вопрос № 99731: Здравствуйте!
У меня вопрос по языку Basic.
Скажите, пожалуйста, как сделать так, чтобы курсором можно было управлять МЫШЬЮ ?
Например, нарисовать кружок и управлять его движением мышью ?
Я пользуюсь Basic'ом версии 4.5.
Буду очен...
Вопрос № 99.731
Здравствуйте!
У меня вопрос по языку Basic.
Скажите, пожалуйста, как сделать так, чтобы курсором можно было управлять МЫШЬЮ ?
Например, нарисовать кружок и управлять его движением мышью ?
Я пользуюсь Basic'ом версии 4.5.
Буду очень благодарен за помощь!
Отвечает: Черников Игорь Владимирович
Здравствуйте, Красильников И.П.!
Очень хочется Вам помочь, но я сижу за VB6. Перемещение объектов в этой версии делается элементарно. Этот пример перемещает прямоугольник по горизонтали и по вертикали. Создайте на форме прямоугольник Share и назовите "прямоугольник", а затем скопируйте этот код. Врядли это заработает в вашей версии, но всё же лучше, чем ничего. Удачи!
Dim перемещение As Boolean
Dim центр_прямоугольника As Double
Dim центр_прямоугольника1 As Double
Private Sub Form_Load()
центр_прямоугольника = Прямоугольник.Width / 2
центр_прямоугольника1 = Прямоугольник.Height / 2
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
перемещение = True
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
перемещение = False
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Перемещение по горизонтали
If X > Прямоугольник.Left Then
If X < Прямоугольник.Left + Прямоугольник.Width Then
Form1.MousePointer = 15
If перемещение Then
Прямоугольник.Left = X - центр_прямоугольника
End If
Else
Form1.MousePointer = 0
End If
Else
Form1.MousePointer = 0
End If
'Перемещение по вертикали
If Y > Прямоугольник.Left Then
If Y < Прямоугольник.Height + Прямоугольник.Top Then
Form1.MousePointer = 15
If перемещение Then
Прямоугольник.Top = Y - центр_прямоугольника1
End If
Else
Form1.MousePointer = 0
End If
Else
Form1.MousePointer = 0
End If
End Sub
--------- От каждого по способностям, каждому по труду
Ответ отправил: Черников Игорь Владимирович (статус: 4-ый класс)
Ответ отправлен: 26.08.2007, 20:03 Оценка за ответ: 5 Комментарий оценки: Спасибо, но я немного не понял насчёт того, что имеется ввиду по словами "центр прямоугольника" и т.д.? Дело в том, что я не очень хорошо знаком с этим языком, на которыом Вы мне написали программу. Ещё раз большое спасибо!
