Quiero agregar círculos y rectángulos al programa de dibujo escrito en VB. ¿Cómo debería cambiarse?
¿Atenuado? ¿DW? ¿Como? Entero,? b¿Cambiar ancho de dibujo? ¿Como? ¿El sistema de álgebra booleana
es oscuro? C (0? ¿Dónde? 2)? Entero,? b¿Cambiar RGB? ¿Como? ¿El sistema de álgebra booleana
es oscuro? ¿Bn? ¿Como? Entero,? ¿ganado? ¿Como? soltero,? ¿Y? ¿Como? Soltero
¿Privado? ¿Sub? Form_Load()
¿Estilo de pluma? =?0:?DW? =?1
¿Qué usar? Combinación 1
. ¿Agregar artículo? 1:?. ¿Agregar artículo? 2:?. ¿Agregar artículo? 3:?. ¿Agregar artículo? 4:?. ¿Agregar artículo? Cinco
¿Fin? ¿Con el final? Submarino
¿Privado? ¿Sub? CmdCls_Click()
Imagen 1. Cls
¿Fin? Submarino
¿Privado? ¿Sub? CmdExit_Click()
¿Desinstalar? Yo
¿Terminar? Submarino
¿Privado? ¿Sub? Combo1_Click()
b¿Cambiar ancho de dibujo? =?Real
Fin? Submarino
¿Privado? ¿Sub? Combo1_Change()
b¿Cambiar ancho de dibujo? =?Real
Fin? Submarino
¿Privado? ¿Sub? Combo1_KeyPress(KeyAscii?as?integer)
¿Seleccionar? ¿caso? ¿Caso Kaiasi? 8,?13
¿Caso? 48?¿Adónde ir? 57
¿Caso? Otro
¿ClaveAscii? =?0
¿Fin? Selección
¿Finalizar? Submarino
¿Privado? ¿Sub? Combo1_LostFocus()
¿Y si? b¿Cambiar ancho de dibujo? ¿Entonces qué? b¿Cambiar ancho de dibujo? =?Falso:? ¿DW? =?Val(Combo1.Texto):? Imagen 1. ¿Ancho de dibujo? =?Ancho desarrollado
¿Fin? Submarino
¿Privado? ¿Sub? OptionPenStyle_Click(Índice?como?entero)
si? OpciónPenStyle(índice). ¿valor? Entonces
¿PenStyle? =?Índice
¿Seleccionar? ¿caso? Índice
¿Caso? 0,?1,?2,?cuatro
Imagen 1. ¿Estilo de relleno? =?0
¿Caso? 3,?
Imagen 1.
¿Estilo de relleno? =?1
¿Fin? Selección
¿Finalizar? Si
¿Finalizar? Submarino
¿Privado? ¿Sub? TxtRGB_Change(índice?como?entero)
b¿CambiarRGB? =?Real
Fin? Submarino
¿Privado? ¿Sub? TxtRGB_KeyPress(Index?as?integer,?KeyAscii?as?integer)
¿Seleccionar? ¿caso? ¿Caso Kaiasi? 8,?13
¿Caso? 48?¿Adónde ir? 57
¿Caso? Otro
¿ClaveAscii? =?0
¿Fin? Selección
¿Finalizar? Submarino
¿Privado? ¿Sub? TxtRGB_LostFocus(Index?as?integer)
¿Si? b¿Cambiar RGB? Entonces
b¿Cambiar RGB? =?Falso:? c(índice)? =?Val(TxtRGB(Index))
¿Si? c(índice)? >? 255? ¿Y luego qué? c(índice)? =?255:?TxtRGB(índice)? ="255"
Imagen 1. ¿Color de primer plano? =?RGB(C(0),?C(1),?C(2)):? Imagen 1. ¿Color de relleno? =?Imagen 1. Color de primer plano
¿Fin? Si
¿Finalizar? Submarino
¿Privado? ¿Sub? Picture1_DblClick()
¿Llamar? Picture1_MouseDown(Bn, 0,?ox?oY)
¿Fin? Submarino
¿Privado? ¿Sub? Picture1_MouseDown(botón?como?entero,?cambio?como?entero,?x?como?single,?y?as?single)
Bn? =?Botón:? ¿ganado? =?x:? ¿Y? =?Y
¿Y si? ¿Bn? =?1?Entonces
¿Y si? ¿Estilo de pluma? =?0?Entonces
Imagen 1. ¿Retiro automático? =?Real
Otro
Imagen 1. ¿Retiro automático? =?Fin incorrecto
? Si
¿Finalizar? Si
¿Finalizar? Submarino
¿Privado? ¿Sub? imagen 1 _ MouseMove(¿Botón?como?entero,?cambio?como?entero,?x?como?único,?y?como?único)
¿Si? ¿Botón? =?1?Entonces
¿Seleccionar? ¿caso? Estilo de escritura
¿Caso? 0
Imagen 1. ¿Cable? (Scalper,?oY)-(X,?y)
Scalper? =?x:? ¿Y? =?Y
¿Caso? 1
Imagen 1. Actualizar
Imagen 1. ¿Cable? (Scalper,?oY)-(X,?y)
¿Caso? 2
Imagen 1. Actualizar
Imagen 1. ¿Cable? (revendedor,?oY)-(X,?y),? ,?Novio
¿Caso? Tres
Foto 1. Refréscate
Imagen 1. ¿Cable? (revendedor,?oY)-(X,?y),? ,?B
¿Caso? 4,?五
Imagen 1. Refréscate
¿Y si? ¿incógnita? -?¿ganado? <>? 0? ¿Entonces qué? Imagen 1.
¿círculo? ((scalper?+?x)?/?2,?(oY?+?y)?/?2),?IIf(Abs(oX?-?x)?& gt?Abs(oY?-?y) ,?Abs(oX?-?x),?Abs(oY?-?y))? /?2,?,?,?,?Abs((Y?-?oY)?/?(X?-?oX))
¿Fin? Selección
¿Finalizar? Si
¿Finalizar? Submarino
¿Privado? ¿Sub? Picture1_MouseUp(¿Botón?como?entero,?cambio?como?entero,?x?como?único,?y?como?único)
¿Si? ¿Bn? =?1?Entonces
Imagen 1. ¿Retiro automático? =?Real
¿Llamada? Picture1_MouseMove(Bn, 0,?x,?y)
Scalper? =?x:? ¿Y? =?Y
¿Fin? Si
¿Finalizar? Submarino