Случайное перемещение кнопки при наведении курсора - VB

Узнай цену своей работы

Формулировка задачи:

Задачи нужно решить черех windows forms на языке visual basic. Задачи элементарные, но опыта не хватает. Помогите решить, пожалуйста, завтра экзамен. Вот задачи: 1) Поместите на форму две кнопки. При наведении курсора мыши на любую из них, данная кнопка случайным образом перемещается в пределах экрана. 2) Поместить на форму две кнопки. При нажатии на одну из них - вторая перемещается случайным образом в пределах экрана. Тоже самое справедливо и для второй кнопки. 3) Поместить на форму кнопку и два поля ввода. При нажатии на кнопку информация в полях ввода меняется местами. 4) Поместить на форму кнопку, метку (Label) и флажок (Checkbox). При нажатии на кнопку в текст метки добавляется: 1 - если флажок включен, 2 - если флажок выключен. 5) Поместите на форму кнопку, флажок (Checkbox) и два поля ввода. При нажатии на кнопку вывести случайное число (1...100) в: первое поле ввода, если флажок включен, и во второе, если флажок выключен. 6) Поместить на форму поле ввода. При передвижении мыши по форме - отображать координаты мыши в поле ввода. 7) Поместить на форму поле ввода и две кнопки. При нажатии на первую - размеры поля ввода увеличиваются на 10. При нажатии на вторую - размеры поля ввода уменьшаются на 10. Размеры поля ввода не должны быть меньше 10х10. 8) Поместить на форму два поля ввода и одну кнопку. При нажатии на кнопку - она перемещается по оси Х в экранную позицию, указанную в первом поле ввода, а по оси У - в позицию, указанную во втором поле ввода. Помогите пожалуйста с задачами, срочно надо. Ведь наверняка у знающего человека это дело десяти минут.

Решение задачи: «Случайное перемещение кнопки при наведении курсора»

textual
Листинг программы
Private Sub Command1_Click()
    Text1.Height = Text1.Height - 10
    Text1.Width = Text1.Width - 10
        If Text1.Height < 10 Then Exit Sub
        If Text1.Width < 10 Then Exit Sub
End Sub
 
Private Sub Command2_Click()
    Text1.Height = Text1.Height + 10
    Text1.Width = Text1.Width + 10
End Sub

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


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

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

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