Red de conocimiento informático - Conocimiento informático - Cómo obtener los identificadores y los textos de varios controles de cuadros de texto en un programa. Este problema me ha preocupado durante mucho tiempo. ¿Alguien tiene alguna orientación? ¡Sería mejor tener el código fuente de VB como referencia!

Cómo obtener los identificadores y los textos de varios controles de cuadros de texto en un programa. Este problema me ha preocupado durante mucho tiempo. ¿Alguien tiene alguna orientación? ¡Sería mejor tener el código fuente de VB como referencia!

Ja, solo usa la API

Agrega 4 controles de etiqueta y 1 control de temporizador

Código:

Función de declaración privada WindowFromPoint Lib "user32" ( ByVal a As Long , ByVal b As Long) As Long

Función de declaración privada GetClassName Lib "user32" Alias ​​​​"GetClassNameA" (ByVal a As Long, ByVal b As String, ByVal c As Long) As Long

Función de declaración privada SendMessage Lib "user32" Alias ​​​​"SendMessageA" (ByVal a As Long, ByVal b As Long, ByVal c As Long, ByVal d As Any) As Long

Declaración privada Función GetCursorPos Lib "user32" (a As b) Mientras

Tipo privado b

x Mientras

y Mientras

Tipo de finalización<

Sub privado Form_Load()

Timer1.Interval = 50

Sub final

Sub Timer1_Timer() privado

Atenuar a como b

Atenuar b mientras

Atenuar c como cadena * 255

Atenuar d como cadena

d = Espacio(255)

GetCursorPos a

b = WindowFromPoint(a.x, a.y)

Label1.Caption = d

End Sub

etiqueta1 es el identificador

etiqueta2 es el contenido

etiqueta3 es el nombre de la clase

etiqueta4 es la posición de las coordenadas del puntero

Apunte el mouse hacia el bloque y se mostrará el bloque

Esto es lo que hice antes, el código está copiado