Cómo hacer que líneas e imágenes sean compatibles en la programación de Visual Basic VB (puntuación alta)
agrega un PictureBox y una casilla de verificación a la ventana.
Private subcheck1_Click()
Volver a dibujar la Imagen1 al hacer clic en la casilla de verificación "Mostrar cuadrícula"
Imagen1. Actualizar
Conector final
Subform_Load() privado
Establecer imagen 1. picute = cargar imagen(" c: 1 . BMP ").
Establezca la unidad de dibujo y el color de primer plano de Imagen1.
Foto 1. ScaleMode=píxel
Imagen1. ForeColor = RGB(66, 120, 255)
Marque la casilla "Mostrar cuadrícula".
Comprobación1. Valor = vbChecked
Conector final
Subimagen privada1_Paint()
Si Check1 no está seleccionado, salga del proceso.
Si marca 1. Valor = Sin marcar, luego salir de Sub
Espaciado de cuadrícula constante 20 píxeles
Const LINE_SPACE As Long = 20
Atenuar mientras yo esté
Dim h tiene la misma longitud, w tiene la misma longitud
w = Imagen 1. ancho
h = imagen1. Altura
Dibuja una línea horizontal
Para i = 1 a h pasos LINE_SPACE
Imagen 1. Línea (0,i)-(w,I)
Luego
Dibuja una línea vertical
Para i = 1 a w pasos LINE_SPACE
Imagen 1. Línea (I, 0)-(i, h)
Luego
Conector final