VB 6 Как узнать класс текстбокса или кнопки находящегося под курсором
Формулировка задачи:
У кого нить есть код который показывает класс текстобокса или кнопки находящегося под курсором?
Решение задачи: «VB 6 Как узнать класс текстбокса или кнопки находящегося под курсором»
textual
Листинг программы
Option Explicit Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint 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 Dim MousePNT As POINTAPI Dim X As Integer, Y As Integer, curWindow As Long Private Sub Form_Load() Label1.Caption = "Hwnd = " End Sub Private Sub Timer1_Timer() Call GetCursorPos(MousePNT) X = MousePNT.X Y = MousePNT.Y curWindow = WindowFromPoint(X, Y) Me.Caption = X & "/" & Y Label1.Caption = curWindow End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д