Este artículo describe un ejemplo de dibujo con el mouse en VB. Este ejemplo se da cuenta de que el color y el ancho de la línea se pueden personalizar cuando se presiona el botón del mouse, se inicia el dibujo y se registra el punto de partida inicial. , se saldrá del proceso en el estado de dibujo, se dibuja una línea recta desde el punto inicial hasta el punto actual del mouse, y luego el punto actual del mouse se usa como el nuevo punto inicial. El dibujo finaliza cuando se suelta el botón del mouse. .
Los códigos de función específicos son los siguientes:
VERSIÓN 5.00Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"Begin VB.Form Form1 Caption = "Dibujo del mouse" ClientHeight = 6420 ClientLeft = 60 ClientTop = 345 ClientWidth = 7710 LinkTopic = "Form1" ScaleHeight = 6420 ScaleWidth = 7710 StartUpPosition = 3 'Ventana predeterminada Inicio VB.CommandButton Command2 Título = "Borrar" Alto = 495 Izquierda = 5640 TabIndex = 7 Superior = 1440 Ancho = 1335 Fin Inicio VB.Frame Marco1 Título = "Ancho de línea" Alto = 2655 Izquierda = 5520 TabIndex = 2 Superior = 2880 Ancho = 1935 Inicio VB.OptionButton Option4 Título = "8" Alto = 495 Izquierda = 240 TabIndex = 6 Superior = 1800 Ancho = 1215 Fin Inicio VB.OptionButton Option3 Título = "4" Alto = 375 Izquierda = 240 TabIndex = 5 Superior = 1320 Ancho = 1335 Fin Inicio VB.OptionButton Option2 Título = "2" Alto = 375 Izquierda = 240 TabIndex = 4 Superior = 840 Ancho = 1095 Fin Inicio VB.OptionButton Option1 Título = "1" Alto = 255 Izquierda = 240 TabIndex = 3 Superior = 480 Valor = -1 'True Ancho = 1335 Fin Fin Comienzo VB.CommandButton Command1 Título = "Establecer color" Alto = 495 Izquierda = 5640 TabIndex = 1 Superior = 600 Ancho = 1215 Fin Comienzo MSComDlg.CommonDialog CommonDialog1 Izquierda = 4200 Superior = 3840 _ExtentX = 847 _ExtentY = 847 _Version = 393216 Fin Begin VB.PictureBox Imagen1 Alto = 5535 Izquierda = 480 ScaleHeight = 5475 ScaleWidth = 4515 TabIndex = 0 Superior = 480 Ancho = 4575 EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseDim x1 As Integer 'Punto inicial Coordenada X Dim y1 As Integer 'Punto inicial Coordenada Y Dim x2 As Integer 'Punto final Coordenada X Dim y2 As Integer 'Punto final Coordenada Y Dim flag As Boolean 'Dibujo configuración de bandera Color de líneaSubcomando privado1_Click() En caso de error Reanudar siguiente CommonDialog1.CancelError = True CommonDialog1.DialogTitle = "Color" CommonDialog1.ShowColor If Err <> 32755 Then Picture1.ForeColor = CommonDialog1.Color End IfEnd Sub'Borrar los gráficos en Picture1 Private Sub Command2_Click() Picture1.ClsEnd Sub'Establecer la línea ancho Subopción privada1_Click() Imagen1.DrawWidth = 1Fin SubPrivate Sub Option2_Click() Imagen1.DrawWidth = 2Fin SubPrivate Sub Option3_Click() Imagen1.DrawWidth = 4Fin SubPrivate Sub Option4_Click() Imagen1.DrawWidth = 8Fin SubPrivate Sub Form_Load() Imagen1.Scale (0, 0)-(400, 400 ) bandera = FinFalso SubPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, _X As Single, Y As Single)'Cuando se presiona el botón del mouse, se inicia el dibujo y registra la bandera del punto inicial inicial = True x1 = X y1 = YEnd SubPrivate Sub Picture1_MouseMove(Button Como entero, desplazamiento como entero, _X como único, Y como Single)'Si no está en el estado de dibujo, salga del proceso'Si está en el estado de dibujo, dibuje una línea recta desde el punto inicial hasta el punto actual del mouse'Luego use el punto actual del mouse como nuevo punto inicialIf flag = Falso Entonces Salir Sub End Si Si bandera = Verdadero Entonces x2 = Entero, Mayús como entero, _X como único, Y como único)' El dibujo finaliza cuando se suelta el botón del ratón flag = FalseEnd SubHay comentarios relativamente detallados en el programa. Creo que será fácil de entender para los lectores. ¡Los lectores pueden modificar el programa según sus propias preferencias para hacerlo más perfecto!