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!
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 p>
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