miaozk2006

'Óû§¿ÉÒÔËæÒâµÄÓÃmouse»­Í¼£¬Ò²¿ÉÒÔÒýÈëͼƬ£¬È»ºó½øÐмòµ¥µÄ´¦Àí£¬Ö÷ÒªÊÇÌí¼ÓÁ½¸öpicture¿Ø¼þ ºÍ¼¸¸ö°´Å¥ Dim x1!, v1!, x2!, v2!, a1!
Private Sub Command1_Click()                 ' ÇåÆÁµÄ°´Å¥
    Picture2.Cls               'ÇåÆÁ
End Sub

Private Sub Command2_Click()                 '»­±ÊÑÕÉ«µÄ°´Å¥
    CommonDialog1.ShowColor     ' ͨ¹ýͨÓöԻ°¿ò£¬µ÷Óõ÷É«°åÑ¡Ôñ»­±ÊÑÕÉ«
End Sub

Private Sub Command3_Click()                   '»­±Ê´ÖϸµÄ°´Å¥
    A1 = Val(InputBox("ÇëÊäÈë»­±Ê»­ÏߵĿí¶È£¨1< x < 20£©:", "ÉèÖû­±Ê»­Ïß¿í¶È", 2))
    If A1 < 1 Or A1 > 20 Then
        MsgBox "»­±Ê»­ÏߵĿí¶È³¬³ö·¶Î§£¬ÇëÖØÐÂÉèÖã¡"
        Command3.value = True                          'Ï൱ÓÚmouseÓÖµã»÷ÁËcommand3°´Å¥
    End If
    Picture2.DrawWidth = A1
End Sub

Private Sub Command4_Click()                '´ò¿ªÍ¼Æ¬µÄ°´Å¥
    CommonDialog1.Filter = "*.jpg|*.jpg|*.bmp|*.bmp|*.jpeg|*.jpeg|*.ico|*.ico|*.icon|*.icon"
    CommonDialog1.ShowOpen      ' µ÷Óôò¿ªÎļþ¶Ô»°¿ò
    If CommonDialog1.filename <> "" Then          '½«Ñ¡¶¨µÄͼÐÎÎļþ¼ÓÔص½Í¼Æ¬¿òÖÐ
        Picture2.Picture = LoadPicture(CommonDialog1.filename)
    End If
End Sub

Private Sub Command5_Click()                '±£´æͼƬµÄ°´Å¥
    CommonDialog1.Filter = "*.jpg|*.jpg|*.bmp|*.bmp|*.jpeg|*.jpeg|*.ico|*.ico|*.icon|*.icon"
    CommonDialog1.ShowSave      ' µ÷Óñ£´æ¶Ô»°¿ò
    If CommonDialog1.filename <> "" Then
        SavePicture Picture2.Image, CommonDialog1.filename       '±£´æͼƬ
        MsgBox "ÕÕƬ±£´æ³É¹¦£¡"
    End If
End Sub

Private Sub Command6_Click()
    End
End Sub

Private Sub Command7_Click()              '±³¾°ÑÕÉ«µÄ°´Å¥
    CommonDialog1.ShowColor
    Picture2.BackColor = CommonDialog1.Color
End Sub

Private Sub Command8_Click()
    Text1 = Picture2.Point(X, Y)
End Sub

Private Sub Form_Load()
    A1 = 2           ' »­±Ê´ÖϸµÄ³õʼֵΪ2

    Picture2.Left = 0
    Picture2.Top = 0
    Picture2.AutoSize = True
    VScroll1.Max = Abs(Picture1.Height - Picture2.Height)
    HScroll1.Max = Abs(Picture1.Width - Picture2.Width)
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    X1 = X - 120
    Y1 = Y - 120 ' ±£´æmouse°´¼üʱµÄ×ø±êÖµ
    X2 = X - 120
    Y2 = Y - 120
    If Button = 1 Then      'Èç¹ûÊǵã»÷×ó¼ü
        Picture2.DrawWidth = A1   ' ÉèÖÃÏßÌõ¿í¶ÈΪָ¶¨Öµ
    ElseIf Button = 2 Then
        Picture2.DrawWidth = 1             ' É趨ÏßÌõ¿í¶ÈΪ1£¬ÒÔ»­ÊµÏß
        Picture2.DrawMode = 7             'É趨ͼƬ¿ò»æÖÆģʽΪÒì»ò
    End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Me.MousePointer = 0             ' ÉèÖÃmouseÖ¸ÕëÐÎ״ΪĬÈϵļýÍ·
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then         '°´ÓÒ¼ü
        Picture2.Line (X1, Y1)-(X2, Y2), , B            'Çå³þÒÔÇ°Ëù»­¾ØÐκۼ£
        On Error Resume Next
        Picture2.DragMode = 13                          ' ÉèÖûæÖÆģʽΪ¸´ÖƱÊ
        Picture2.Line (X1, Y1)-(X - 120, Y - 120), Picture2.BackColor, BF
    End If

End Sub

Private Sub HScroll1_Scroll()
    Picture2.Left = HScroll1.value
End Sub

Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture2.MousePointer = 99   'ÉèÖÃÓû§×Ô¶¨ÒåmouseÖ¸Õëͼ±ê
    Picture2.MouseIcon = LoadPicture(App.Path + "/pencil2.ico")  ' app.pathΪVBµ±Ç°µÄ¹¤×÷·¾¶
    If Button = 1 Then                                           'Èç¹û°´ÁË×ó¼ü
        Picture2.PSet (X - 120, Y - 120), CommonDialog1.Color       '»­Ïß
    End If
    If Button = 2 Then                                           ' ÅжÏÊÇ·ñ°´ÁËÓÒ¼ü
        Picture2.Line (X1, Y1)-(X2, Y2), , B                      ' Çå³ý¾ØÐÎËù»­µÄºÛ¼£
        X2 = X - 120
        Y2 = Y - 120                                 'È¡µ±Ç°×ø±ê
        Picture2.Line (X1, Y1)-(X2, Y2), , B                    'Óõ±Ç°×ø±êÖØ»­¾ØÐÎ
    End If
End Sub

Private Sub VScroll1_Scroll()
    Picture2.Top = VScroll1.value
End Sub