Programación Visual Basic VB Cómo acomodar líneas e imágenes **** (puntaje alto)
'Agregar un PictureBox y un CheckBox a la ventana
Private Sub Check1_Click()
'Cuando haces clic en la casilla de verificación "Mostrar cuadrícula" Redibujar imagen1
Imagen1 .Refresh
End Sub
Sub privado Form_Load()
'Establecer imagen1.Value = vbChecked
End Sub
Private Sub Picture1_Paint()
'Si Check1 no está seleccionado, salga del proceso
Si Check1.Value = vbUnchecked Entonces salga de Sub
'La constante de espaciado de la cuadrícula es 20 píxeles
Const LINE_SPACE As Long = 20
Atenuar i As Long
Atenuar h As Long, w As Long
w = Imagen1.Ancho
h = Imagen1.Altura
'Dibuja una línea horizontal.
Para i = 1 a h Paso LINE_SPACE
Imagen1.Línea (0, i)-(w, i)
Siguiente
'Dibujar línea vertical
Para i = 1 Al paso LINE_SPACE
Imagen 1. Línea (i, 0)-(i, h)
Siguiente.
Fin del subtítulo