Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/2: Рейтинг темы: голосов - 2, средняя оценка - 4.50
Dolphin455
0 / 2 / 0
Регистрация: 08.01.2013
Сообщений: 54
1

Cделать, чтобы мышь бегала в разные стороны

16.01.2013, 18:14. Просмотров 460. Ответов 1
Метки нет (Все метки)

Очень ннадо
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.01.2013, 18:14
Ответы с готовыми решениями:

Необходимо, чтобы правильные треугольник и пятиугольник вращались в разные стороны
Здравствуйте, подскажите, пожалуйста. Написала программу, необходимо, чтобы правильные треугольник...

Как сделать чтобы 2 разных цвета тянулись в разные стороны на одном уровне
Как сделать чтобы 2 разных цвета тянулись в разные стороны на одном уровне. Нужно реализовать...

Доделать программу, чтобы при нажатии на стрелочки картинка и ее отражение уезжало в разные стороны
Надо что-бы при нажатии на стрелочки на клавиатуре картинка и ее отражение уезжало в разные...

Нужно, чтобы обе кнопки мыши работали с функцией Push но откидывали предметы в разные стороны
Мне понадобилось сделать что-то на подобии кликера, для этого у меня всё есть. Но мне нужно что бы...

Надо, чтобы разные ссылки имели разные цвета и чтобы при наведении на них мышой также были разные цвета.
День добрый. Что-то я никак понять не могу. Делаю сайт. Мне надо, чтобы разные ссылки имели разные...

1
Jason
402 / 402 / 54
Регистрация: 25.12.2011
Сообщений: 907
16.01.2013, 19:00 2
vb.net
1
2
3
4
5
    Dim R As Random = New Random
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Cursor.Position = New Point(R.Next(0, 1280), R.Next(0, 1024))
    End Sub
Добавлено через 31 минуту
Если надо плавно то:
vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
    Dim R As Random = New Random
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim NewPoint As Point = New Point(R.Next(0, 1280), R.Next(0, 1024))
        SetCursorPos(NewPoint)
    End Sub
 
    Sub SetCursorPos(ByVal CORD As Point)
        Dim A As Integer
        If CORD.X > CORD.Y Then
            A = CORD.X
        Else
            A = CORD.Y
        End If
        For i = 0 To A Step 1
            If Cursor.Position.X < CORD.X Then
                Cursor.Position = New Point(Cursor.Position.X + 1, Cursor.Position.Y)
            ElseIf Cursor.Position.X > CORD.X Then
                Cursor.Position = New Point(Cursor.Position.X - 1, Cursor.Position.Y)
            End If
            If Cursor.Position.Y < CORD.Y Then
                Cursor.Position = New Point(Cursor.Position.X, Cursor.Position.Y + 1)
            ElseIf Cursor.Position.Y > CORD.Y Then
                Cursor.Position = New Point(Cursor.Position.X, Cursor.Position.Y - 1)
            End If
            Threading.Thread.Sleep(1)
            If Cursor.Position.X = CORD.X And Cursor.Position.Y = CORD.Y Then
                Exit Sub
            End If
        Next
    End Sub
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.01.2013, 19:00

Как сделать так чтобы страничка при увеличения разрешения не двигалась в разные стороны, и как сделать чтобы при открытии в опере и в других браузерах
все обьекты на странице не двигались в разные стороны???

Из точек на плоскости выбрать две такие, чтобы разность количества точек, лежащих по разные стороны от прямой, была мин.
Из заданного множества точек на плоскости выбрать две различные точки так, чтобы количества точек,...

Из заданного мн-ва точек на плоскости выбрать две различные точки так, чтобы количества точек, лежащих по разные стороны прямой, было равно.
Программный модуль! Из заданного мн-ва точек на плоскости выбрать две различные точки так, чтобы...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.