- Список
- » Техническая часть
- » Движущийся курсор
0 
0 
#1
08.07.2001 12:08
0 #1- ZyXEL
- Участник
- Откуда: Moscow, Russia
- Зарегистрирован: 23.06.2001
- Сообщений: 194
-------
Движущийся курсор
Кто-нибудь знает, где взять исходники для Бейсика с передвигающимся курсором.
Типа как в ADoM'e?
Неактивен
0 0 #2
22.12.2002 03:14
0 #2- Николай
- Гость
Re: Движущийся курсор
filden написал:
Можно мне тоже на мыло VB исходники. Просто интересно, что подразумевается под движущимся курсором. Просто я не знаю что такое ADoM.
Спасибо большое.
;D
0 0 #3
13.01.2003 01:18
0 #3- Iron
- Гость
Re: Движущийся курсор
Всё очень просто !
Нужен один таймер с интервалом 1
[glb]'Код формы
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Private Sub Timer1_Timer()
Dim pos As POINTAPI
GetCursorPos pos
SetCursorPos pos.x + 1, pos.y + 1
End Sub
[/glb]
- Список
- » Техническая часть
- » Движущийся курсор