Código fuente del color de relleno del indicador

Defina Ht como valor booleano

Tipo privado Zb

X0 tiene la misma longitud

¿Cuánto mide usted?

Tipo de fin

Cambiar Cszb a zb

Subcomando privado 1_Click()

Ht = true

Conector de fin

Subcomando privado 2_Click()

Ht = false

Conector final

Subcomando privado 3_Click()

Imagen 1 . Cls

Conector final

Subcomando privado 4_Click()

Marcar y como un número entero

Ys = InputBox("Por favor, complete el Entero correcto, 0: negro, 1: rojo, 2: amarillo, 3: verde, 4: azul, > 5: blanco", "Establecer color", 0)

Seleccione mayúsculas y minúsculas

Caso 0

Foto 1. ForeColor = ampH0 amp;

Caso 1

Imagen 1. ForeColor = ampHFF amp;

Caso 2

Imagen 1. ForeColor = ampHFFFF amp

Caso 3

Imagen 1. ForeColor = ampHFF00 amp

Caso 4

Imagen 1. ForeColor = ampHFF000

Otras situaciones

Imagen 1. ForeColor = ampHFFFFFF

Finalizar selección

Finalizar conector

Subcomando privado 5_Click()

Marcar Kd como un número entero

Kd = Int(InputBox("Ingrese el ancho de línea", "Ancho de línea", 1))

Si Kd lt1 entonces Kd = 1

Imagen 1. DrawWidth = Kd

Conector final

Subcomando privado 6_Click()

Fin

Conector final

Subformulario privado_Carga ()

i. Caption="Pincel simple"

Comando 1. Caption="Comenzar a dibujar"

Comando 2. Caption="Dejar de dibujar"

Comando 3. Caption = "La mesa de trabajo está vacía"

Comando 4. Caption="Establecer color"

Comando 5. Caption = "Establecer ancho"

Comando 6. Caption = "Salir"

Imagen 1. AutoRedraw = True

Ht =False

Ys = 0

Conector final

Subimagen privada 1_MouseDown(El botón es un número entero, Shift es un número entero, X es único, Y es único)

Cszb. X0 = X

Cszb. Y0 = Y

Conector final

Subimagen privada 1_MouseMove(El botón es un número entero, Shift es un número entero, X es único, Y es único)

Si Ht y Button = 1, entonces

Imagen 1. Línea(Cszb.X0,Cszb.Y0)-(X,Y)

Cszb. X0 = X

Cszb. Y0 = Y

Terminará si...

Finalizar conector