Red de conocimientos turísticos - Información de alquiler - Por favor, los expertos comentan sobre un fragmento de código fuente de VB. Gracias por su consejo. Además... ¿cuáles son las dos primeras líneas?
Por favor, los expertos comentan sobre un fragmento de código fuente de VB. Gracias por su consejo. Además... ¿cuáles son las dos primeras líneas?
Top gt; = Form1.ScaleHeight - Shape1.Height Entonces bz = 2
'Si la forma (forma) se mueve al borde inferior del formulario (la distancia superior de la forma es mayor que la altura del formulario - forma altura)
Si Shape1.Left lt;= 0 Entonces bz = 3
'Si la forma (forma) se mueve hacia el lado izquierdo del formulario
Si Shape1.Top lt;= 0 Y Shape1 a la izquierda lt; = 0 Entonces bz = 0
'Si la forma (forma) se mueve a la parte superior del formulario
Seleccione Case bz
Caso 0
Forma1.Left = Forma1.Izquierda 10 'Mover horizontalmente hacia la derecha
Caso 1
Forma1.Top = Forma1.Top 10 'Mover verticalmente hacia abajo
Caso 2
Forma1.Left = Forma1.Left - 10 'Mover horizontalmente hacia la izquierda
Caso 3
Shape1.Top = Shape1.Top - 10 'Mover horizontalmente hacia arriba
Finalizar selección