Red de conocimiento informático - Problemas con los teléfonos móviles - Cómo hacer que líneas e imágenes sean compatibles en la programación de Visual Basic VB (puntuación alta)

Cómo hacer que líneas e imágenes sean compatibles en la programación de Visual Basic VB (puntuación alta)

La opción Explícito

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