Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Форма и Курсор Добавлено: 17.10.02 20:55  

Автор вопроса:  Smith | ICQ: adamis@list.ru 
Как сделать что бы форма бегала за курсором?

Ответить

  Ответы Всего ответов: 3  

Номер ответа: 1
Автор ответа:
 CyRax



Разработчик Offline Client

ICQ: 204447456 

Вопросов: 180
Ответов: 4229
  Web-сайт: basicproduction.nm.ru
 Профиль | | #1 		Добавлено: 17.10.02 22:48

А как насчёт GetCursorPos ?

Ответить

Номер ответа: 2
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #2 Добавлено: 18.10.02 15:40
Позиции курсора я считать могу. Только вот он пишут 1024, и это уже самое большое число,  и попробуй прописать me.top = 1024 так он даже до середины не дойдет!

Ответить

Номер ответа: 3
Автор ответа:
 Ян



ICQ: 816105 

Вопросов: 38
Ответов: 198
  Web-сайт: www.yan.net.ru
 Профиль | | #3 		Добавлено: 18.10.02 22:48

Думаю так:


(Timer1.Interval = 30)


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 cur As POINTAPI
    GetCursorPos cur
    Me.Top = cur.y * 15 - Me.Height / 2
    Me.Left = cur.x * 15 - Me.Width / 2
End Sub

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам