Buenas...
Si algien me dijera como hacer para arrastrar el formulario que no tiene bordes se lo agredeceria muchisimo

Un Saludoo!!
Imagen
Mirate este code..
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Integer, _
ByVal lParam As Any) As Long

Private Sub NombreDelControl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage Me.hwnd, &HA1, 2, 0&
End Sub
Saludos!
No consigo arreglarlo xD

Me dice a la hora de ejecutarlo:

Compile error:

Only comments may appear after End Sub, End Function, End Property

QUE AGO?

Gracias de antemano
Imagen
Aqui: Y luego si quito eso me da en los demas con el mismo mensaje de error...

Private Declare Function ReleaseCapture Lib "user32" () As Long
Imagen
Eso ya lo e echo desde el principio e probado de todos modos pero igualmente me da siempre el mismo error...
Gracias por tu atencion
Imagen
Asenjo69 escribió:Eso ya lo e echo desde el principio e probado de todos modos pero igualmente me da siempre el mismo error...
Gracias por tu atencion
Pon mas code.. para ver bien.. por ahi al final no pusistes End Sub o End Select.. necesito saber que hicistes en el code para ver como termina..

Saludos!
Con buscar "mover fomulario VB6" en google tienes un puñado de ejemplos:

[Enlace externo eliminado para invitados] ... form-en-vb
[Enlace externo eliminado para invitados]_ ... _mismo.asp

Salu2, E0N
Imagen
Mi blog:
http://e0n-productions.blogspot.com/
Responder

Volver a “VB/.NET”