Red de conocimiento informático - Conocimiento informático - Cómo mover un formulario sin bordes en VB

Cómo mover un formulario sin bordes en VB

1. Un formulario sin bordes es un formulario sin barra de título. El movimiento de dicho formulario requiere programación.

2. Hay dos formas de implementar VB, una es la programación directa y la otra es llamar a la programación API de Windows.

3. El ejemplo aquí está programado directamente: Option?Explicit

Dim?BolIsMove?As?Boolean,?MousX?As?Long,?MousY?As?Long

¿Privado?Sub?Form_MouseDown(¿Botón?Como?Integer,?Shift?As?Integer,?X?As?Single,?Y?As?Single)

Si?Button?=? 1 ?Entonces?BolIsMove?=?True

MousX?=?X

MousY?=?Y

Fin?Sub

Privado ?Sub?Form_MouseMove(Botón?As?Integer,?Shift?As?Integer,?X?As?Single,?Y?As?Single)

Dim?CurrX?As?Long,?CurrY ? As?Long

If?BolIsMove?Then CurrX?=?Me.Left?-?MousX?+?X CurrY?=?Me.Top?-?MousY?+?Y Me.Move? CurrX ,?CurrY

Fin?Si

Fin?Sub

Privado?Sub?Form_MouseUp(Botón?Como?Integer,?Shift?As?Integer, ?X?As?Single,?Y?As?Single)

BolIsMove?=?False

Fin?Sub