Cómo dibujar una curva usando el mouse en VB
Para realizar el dibujo de curvas en tiempo real en VB, necesita usar el control PictureBox (imagen) de VB y dibujar una línea de función recta (x1, y1)-(x2, y2). El control PictureBox se puede utilizar como un "contenedor" en el que se pueden guardar muchos objetos. También puede ejecutar muchas funciones intrínsecas de VB.
Para realizar el dibujo de la curva en tiempo real, debe haber entrada de datos externos en tiempo real. Aquí se supone que hay entrada de datos desde el puerto serie de la computadora. La variable de datos se define como DataFromCom. , y la curva en tiempo real refleja estos datos.
Abra la versión china de VB6.0, cree un nuevo proyecto y formulario, modifique las propiedades del formulario, cambie "Alto" a: 8000, cambie "Ancho" para poner un PictureBox en el formulario como esto controla. Luego redefina algunas propiedades básicas del control PictureBox, seleccione el control PictureBox en VB y modifique algunos parámetros de propiedad directamente en su cuadro de propiedades. Nombre" se cambia a "Imagen". "Dibujo automático" se cambia a Verdadero. "Color de fondo" se cambia a H00004000amp; (color de fondo verde oscuro). Alto" se cambia a 5000. "Ancho" se cambia a como se muestra en la Figura 1:
Luego debes redefinir el sistema de coordenadas del control PictureBox. El sistema de coordenadas predeterminado de PictureBox comienza desde la esquina superior izquierda, lo que no cumple con nuestros requisitos para dibujar líneas. El propósito de modificar el sistema de coordenadas es hacer que la curva dibuje la línea comenzando desde el centro izquierdo del cuadro de imagen. Para modificar el sistema de coordenadas de PictureBox, defina el procedimiento almacenado PicScale(), el código es el siguiente:
Private Sub PicScale(picX As PictureBox)
picX.Scale (0 , PicX.ScaleHeight) -(picX.ScaleWidth, -PicX.ScaleHeight)
PicX.Scale(0, PicX.ScaleWidth, -PicX.ScaleHeight)