Red de conocimiento del abogados - Conocimiento de la marca - Escribir programa de dibujo usando VB
Escribir programa de dibujo usando VB
Proporciona un código simple para dibujar curvas arbitrarias. Otras funciones son similares, espero que puedas sacar inferencias de un ejemplo.
Agregue un cuadro?Imagen?en el formulario y luego ingrese el comando de la siguiente manera: Dim?oldx?As?Single
Dim?oldy?As?Single Private?Sub?Picture1_MouseMove (Botón ?Como?Integer,?Shift?As?Integer,?X?As?Single,?Y?As?Single)
Si?Button?=?1?Then?'Cuando se presiona el botón izquierdo del mouse se presiona el botón Ocurre cuando
Imagen1.Línea?(oldx,?oldy)-(X,?Y)
oldx?=?X
oldy? =?Y
Fin?Si
Fin?Sub
Privado?Sub?Picture1_Mousedown(Botón?Como?Entero,?Mayús?Como?Entero,? X?As ?Single,?Y?As?Single)
oldx?=?X
oldy?=?Y
Fin?Sub