이 기사에서는 VB에서 마우스 그리기의 예를 설명합니다. 이 예에서는 마우스 버튼을 누르면 그리기가 시작되고 그리기 상태가 아닌 경우 초기 시작점이 기록됩니다. , 그리기 상태에서는 시작점에서 현재 마우스 지점까지 직선이 그려지고, 마우스 버튼을 놓으면 현재 마우스 지점이 새 시작점으로 사용됩니다. .
구체적인 기능 코드는 다음과 같습니다.
VERSION 5.00Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"Begin VB.Form Form1 Caption = "마우스 그리기" ClientHeight = 6420 ClientLeft = 60 ClientTop = 345 ClientWidth = 7710 LinkTopic = "Form1" ScaleHeight = 6420 ScaleWidth = 7710 StartUpPosition = 3 '창 기본값 Begin VB.CommandButton Command2 Caption = "Clear" Height = 495 Left = 5640 TabIndex = 7 Top = 1440 Width = 1335 End Begin VB.Frame Frame1 Caption = "선 너비" 높이 = 2655 왼쪽 = 5520 TabIndex = 2 위쪽 = 2880 너비 = 1935 시작 VB.OptionButton Option4 Caption = "8" 높이 = 495 왼쪽 = 240 TabIndex = 6 위쪽 = 1800 너비 = 1215 끝 시작 VB.OptionButton Option3 Caption = "4" 높이 = 375 왼쪽 = 240 TabIndex = 5 위쪽 = 1320 너비 = 1335 끝 시작 VB.OptionButton Option2 Caption = "2" 높이 = 375 왼쪽 = 240 TabIndex = 4 위쪽 = 840 너비 = 1095 끝 시작 VB.OptionButton Option1 Caption = "1" 높이 = 255 왼쪽 = 240 TabIndex = 3 상위 = 480 값 = -1 'True Width = 1335 End End Begin VB.CommandButton Command1 Caption = "색상 설정" Height = 495 Left = 5640 TabIndex = 1 Top = 600 Width = 1215 End Begin MSComDlg.CommonDialog CommonDialog1 Left = 4200 Top = 3840 _ExtentX = 847 _ExtentY = 847 _Version = 393216 끝 시작 VB.PictureBox Picture1 높이 = 5535 왼쪽 = 480 ScaleHeight = 5475 ScaleWidth = 4515 TabIndex = 0 위쪽 = 480 너비 = 4575 EndEndAttribute VB_Name = "Form1"속성 VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseDim x1 As Integer '시작점 X 좌표 Dim y1 As Integer '시작점 Y 좌표 Dim x2 As Integer '끝점 X 좌표 Dim y2 As Integer '끝점 Y 좌표 Dim 플래그 As Boolean '드로잉 플래그' 설정 Line colorPrivate Sub Command1_Click() On Error Resume Next CommonDialog1.CancelError = True CommonDialog1.DialogTitle = "Color" CommonDialog1.ShowColor If Err <> 32755 Then Picture1.ForeColor = CommonDialog1.Color End IfEnd Sub'Picture1의 그래픽 지우기 Private Sub Command2_Click() Picture1.ClsEnd Sub'라인 설정 너비 Private 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 ) 플래그 = FalseEnd SubPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, _X As Single, Y As Single)'마우스 버튼을 누르면 그리기가 시작되고 초기 시작점을 기록합니다. flag = True x1 = X y1 = YEnd SubPrivate Sub Picture1_MouseMove(Button 정수로, 정수로 시프트, _X를 단일로, Y를 다음으로 싱글)'그리기 상태가 아니면 프로세스를 종료한다''그리기 상태라면 시작점에서 현재 마우스 포인트까지 직선을 그린다'그런 다음 현재 마우스 포인트를 새로운 시작점으로 사용하는 경우 플래그 = False 그러면 종료 Sub End If 플래그 = True 그러면 x2 = Integer, Shift As Integer, _X As Single, Y As Single)' 마우스 버튼을 놓으면 그리기가 종료됩니다. flag = FalseEnd Sub프로그램에는 상대적으로 자세한 설명이 있어 독자들이 이해하기 쉬울 것이라고 생각합니다. 독자들의 취향에 따라 프로그램을 수정하여 더욱 완벽하게 만들 수 있습니다!