VBNet - все что Вы хотели знать о VB, но не знали где найти!

Visual Basic, .NET, ASP, VBA, VBScript

	Получить координаты курсора
	Добавьте на форму 2 элемента Label и 1 Timer. Вставьте следующий код: Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Type POINTAPI x As Long y As Long End Type Dim z As POINTAPI Private Sub Timer1_Timer() GetCursorPos z Label1 = "x: " & z.x Label2 = "y: " & z.y End Sub Private Sub Form_Load() Timer1.Interval = 1 End Sub

VBNet online (всего: 52050)

Лучшие материалы

ActiveX контролы (112)

Примеры кода (546)

Статьи по VB (136)