VPF::Как вывести координаты кусора

GOBLIN_TT

Дата 12.11.2007, 00:34 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 109
Регистрация: 6.6.2007

Репутация: 1
Всего: 2

Всем привет.))

Народ подскажите, как вывести на экран координаты курсора X,Y, в какой-нибудь лейбл.
нпример:
X: 596
Y: 496 // В зависимости от положения курсора

Просто хочу, реализовать Dreg in Drop, Picture BOX'a, с помощью координат курсора. ))

Помогите плиз ) smile

Заранее Спасибо )) smile

--------------------

nikitao

Дата 12.11.2007, 01:47 (ссылка)

(нет голосов)

Загрузка ...

Кот-программист

Профиль
Группа: Завсегдатай
Сообщений: 1206
Регистрация: 30.8.2005
Где: Спб

Репутация: нет
Всего: 26

Cursor.Position

--------------------

Жизнь - печальная штука.

GOBLIN_TT

Дата 14.11.2007, 00:33 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 109
Регистрация: 6.6.2007

Репутация: 1
Всего: 2

Спасибо получилось!))

каму интерестно вот код ))
smile

Код


Imports System.Runtime.InteropServices
Public Class Form1
    <StructLayout(LayoutKind.Sequential)> _
        Private Structure POINTAPI
        Public x As Int32
        Public y As Int32

        Public x2 As Int32
        Public y2 As Int32
    End Structure

    Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Int32

    Dim PA As New POINTAPI

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        GetCursorPos(PA)
        TextBox1.Text = PA.x
        TextBox2.Text = PA.y

        ' Me.PictureBox1.Location = New System.Drawing.Point(PA.x, PA.y)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
        Timer1.Interval = 10

    End Sub

End Class

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Разработка Windows Forms \| Следующая тема »