¿Cómo arrastrar un control de texto con el mouse en VB y fijarlo en la última posición arrastrada?
El código más simple es el siguiente:
Función de declaración privada ReleaseCapture Lib "user32"() es Long
Función de declaración privada SendMessage Lib "usuario 32" alias "SendMessage a" (ByVal hWnd es Long, ByVal wMsg es Long, ByVal wParam es Long, lParam es Any) es Long
Const privada WM_SYSTEXT = ampH112
Constante privada SC_MOVE = ampHF 010 amp;
Constante privada HTCAPTION = 2
Subtexto privado 1 _ MouseDown (El botón es un número entero, Mayús es un número entero, X es un valor único, Y es un valor único)
Si Botón = 1, entonces
Liberar captura
SendMessage Text1.hWnd, WM_SYSTEXT, SC_MOVE HTCAPTION, 0
Terminará si...
Conector final