Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB .NET > Ф-ция SetCursorPos

Автор: Tihondrius 10.10.2009, 22:54

Здраствуйте!

Проблема в следующем: запускаю ф-цию SetCursorPos а по вертикали почему-то не переходит курсор, а переходит только по горизонтали.

Вот код

Код


 Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles  Button1.Click

        SetCursorPos(700, 700)

    End Sub

Вправо идет... А вверху как был так и остался. В чем причина подскажите!

Автор: diadiavova 10.10.2009, 23:16

А зачем для установки курсора WinApi таскать?
В винформ приложении можно сделать так

Код


        Cursor.Position = New Point(700, 700)

А в консольном у класса Console есть метод SetCursorPosition.

Автор: Pilger 11.10.2009, 00:11

Замени Long на Integer. Когда берешь код с Visual Basic 6 всегда меняй.

Автор: Tihondrius 11.10.2009, 13:48

А как получить текущий адрес курсора по Х и по У если возможно? Только с АПИшной ф-цией GetCursorPos или какая-нить штатная есть? Напишите пожалуйста название а там я уж сам разберусь)

Автор: diadiavova 11.10.2009, 13:49

Код


Dim x = Cursor.Position.X
Dim y = Cursor.Position.Y

Автор: Tihondrius 11.10.2009, 16:39

Всем спасибо!

Автор: diadiavova 11.10.2009, 17:02

Если вопрос решён помечай его как решённый.