Página 1 de 1
Arrastrar form sin bordes [VB6]
Publicado: 04 Abr 2009, 16:20
por Asenjo69
Buenas...
Si algien me dijera como hacer para arrastrar el formulario que no tiene bordes se lo agredeceria muchisimo
Un Saludoo!!
Re: Arrastrar form sin bordes [VB6]
Publicado: 04 Abr 2009, 16:28
por shark0
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!
Re: Arrastrar form sin bordes [VB6]
Publicado: 04 Abr 2009, 16:42
por Asenjo69
Muchas gracias SharkI
Me da un error pero intentare solucionarlo haver a que se deve
Gracias!
Re: Arrastrar form sin bordes [VB6]
Publicado: 04 Abr 2009, 16:51
por Asenjo69
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
Re: Arrastrar form sin bordes [VB6]
Publicado: 04 Abr 2009, 17:06
por shark0
Pon el code.. la parte donde te da error..
Saludos!
Re: Arrastrar form sin bordes [VB6]
Publicado: 04 Abr 2009, 17:18
por Asenjo69
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
Re: Arrastrar form sin bordes [VB6]
Publicado: 04 Abr 2009, 17:22
por shark0
Al Hacer la cita se desordeno el code, pon las lineas bien..
Saludos!
Re: Arrastrar form sin bordes [VB6]
Publicado: 04 Abr 2009, 17:36
por Asenjo69
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
Re: Arrastrar form sin bordes [VB6]
Publicado: 04 Abr 2009, 17:44
por shark0
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!
Re: Arrastrar form sin bordes [VB6]
Publicado: 04 Abr 2009, 18:32
por E0N
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