Este artigo descreve um exemplo de desenho do mouse em VB. Este exemplo percebe que a cor e a largura da linha podem ser personalizadas quando o botão do mouse é pressionado, o desenho é iniciado e o ponto inicial é gravado. , o processo será encerrado. No estado de desenho, uma linha reta é desenhada do ponto inicial até o ponto atual do mouse e, em seguida, o ponto atual do mouse é usado como o novo ponto inicial. O desenho termina quando o botão do mouse é liberado. .
Os códigos de função específicos são os seguintes:
VERSÃO 5.00Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"Begin VB.Form Form1 Caption = "Desenho do mouse" ClientHeight = 6420 ClientLeft = 60 ClientTop = 345 ClientWidth = 7710 LinkTopic = "Form1" ScaleHeight = 6420 ScaleWidth = 7710 StartUpPosition = 3 'Janela padrão Begin VB.CommandButton Command2 Caption = "Clear" Height = 495 Left = 5640 TabIndex = 7 Top = 1440 Width = 1335 End Begin VB.Frame Frame1 Caption = "Largura da linha" Altura = 2655 Esquerda = 5520 TabIndex = 2 Superior = 2880 Largura = 1935 Início VB.OptionButton Option4 Caption = "8" Altura = 495 Esquerda = 240 TabIndex = 6 Superior = 1800 Largura = 1215 Fim Início VB.OptionButton Option3 Caption = "4" Altura = 375 Esquerda = 240 TabIndex = 5 Superior = 1320 Largura = 1335 Fim Início VB.OptionButton Option2 Caption = "2" Altura = 375 Esquerda = 240 TabIndex = 4 Superior = 840 Largura = 1095 Fim Início VB.OptionButton Option1 Caption = "1" Altura = 255 Esquerda = 240 TabIndex = 3 Superior = 480 Valor = -1 'True Largura = 1335 Fim Fim Início VB.CommandButton Command1 Caption = "Definir cor" Altura = 495 Esquerda = 5640 TabIndex = 1 Superior = 600 Largura = 1215 Fim Início MSComDlg.CommonDialog CommonDialog1 Esquerda = 4200 Superior = 3840 _ExtentX = 847 _ExtentY = 847 _Version = 393216 End Begin VB.PictureBox Picture1 Height = 5535 Left = 480 ScaleHeight = 5475 ScaleWidth = 4515 TabIndex = 0 Top = 480 Width = 4575 EndEndAttribute VB_Name = "Form1" Atributo VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseDim x1 As Integer 'Ponto inicial coordenada X Dim y1 As Integer 'Ponto inicial coordenada Y Dim x2 As Integer 'Ponto final coordenada X Dim y2 As Integer 'Ponto final coordenada Y Dim flag As Boolean 'Desenho flag' configuração Linha colorPrivate Sub Command1_Click() Em caso de erro Retomar próximo CommonDialog1.CancelError = True CommonDialog1.DialogTitle = "Color" CommonDialog1.ShowColor If Err <> 32755 Then Picture1.ForeColor = CommonDialog1.Color End IfEnd Sub'Limpa os gráficos em Picture1 Private Sub Command2_Click() Picture1.ClsEnd Sub'Defina a linha largura Privada Sub Option1_Click() Picture1.DrawWidth = 1End SubPrivate Sub Option2_Click() Picture1.DrawWidth = 2End SubPrivate Sub Option3_Click() Picture1.DrawWidth = 4End SubPrivate Sub Option4_Click() Picture1.DrawWidth = 8End SubPrivate Sub Form_Load() Picture1.Scale (0, 0)-(400, 400 ) sinalizador = FalseEnd SubPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, _X As Single, Y As Single)'Quando o botão do mouse é pressionado, o desenho inicia e registra o sinalizador do ponto inicial = True x1 = X y1 = YEnd SubPrivate Sub Picture1_MouseMove(Button Como inteiro, Shift como inteiro, _X como único, Y como Único)'Se você não estiver no estado de desenho, saia do processo'Se você estiver no estado de desenho, desenhe uma linha reta do ponto inicial até o ponto atual do mouse'Em seguida, use o ponto atual do mouse como o novo ponto inicialSe sinalizar = Falso Então Sair Sub End Se If flag = Verdadeiro Então x2 = Integer, Shift As Integer, _X As Single, Y As Single)' O desenho termina quando o botão do mouse é liberado flag = FalseEnd SubExistem comentários relativamente detalhados no programa. Acredito que será fácil para os leitores entenderem. Os leitores podem modificar o programa de acordo com suas próprias preferências para torná-lo mais perfeito!