Código fuente de ajedrez Vb

No sé si acaba de dibujar un tablero de ajedrez de este tipo. Agregue el control Imagen1 al formulario.

Privado

Constante

cell_size

=

60

Tamaño de cuadrícula, en píxeles

Privado

Submarino

Form_Load()

Imagen 1. Retiro automático

Real

Imagen 1. Modo de escala

=

Píxel VB

Dibujar en píxeles.

Foto 1. Estilo de borde

=

Sin borde

Imagen 1. altura

=

15

*

tamaño_celda

*

Ocho

Tamaño del tablero de ajedrez, *15 significa que la unidad cambia de píxeles a twips.

Foto 1. Ancho

Imagen 1. Alto

Mismo largo y ancho

Foto 1. Color de fondo

=

vbWhite

Color de fondo, blanco

Dim

i

Como

entero

es

i

=

1

Para

Ocho

Pasos

2

Primero dibuja cuatro líneas verticales negras.

Foto 1. Línea

(i

*

Tamaño de celda,

0)-(i

*< / p>

Cell_Size

Tamaño de celda,

Imagen 1. ScaleHeight),

vbBlack,

Novio

Entonces

Foto 1. Modo de dibujo

=

vbInvert

Lo que se dibuja a continuación es el color opuesto al original, es decir, el negro se convierte en blanco.

Para

mí

=

1

a

ocho

p>

Pasos

2

Barra Horizontal 4

Imagen 1. Línea

(0,

I

*

CELL_SIZE)-(Imagen1. Ancho de escala,

i

*

tamaño_celda

TAMAÑO_CELDA),

vbNegro,

Novio

Entonces

Foto 1. Modo de dibujo

=

vbCopyPen

El modo de dibujo se ha cambiado al predeterminado.

Fin

Submarino