vbdaima.txt

简单画图板VB代码简单画 图板VB代码图板简单画图板VB代码VB代码

            Picture6.CurrentX = x 
            Picture6.CurrentY = y 
            Form1.Picture6.FontName = Text1.FontName 
            Form1.Picture6.FontBold = Text1.FontBold 
            Form1.Picture6.FontItalic = Text1.FontItalic 
            Form1.Picture6.FontUnderline = Text1.FontUnderline 
            Form1.Picture6.FontSize = Text1.FontSize 
            Form1.Picture6.ForeColor = Text1.ForeColor 
            Picture6.Print Text1.Text 
        Case 12 
 
 
  
 作者： 城外来客  2005-10-1 23:58 　 回复此发言    
 
--------------------------------------------------------------------------------
 
4 简单画图板VB代码  
             Points(idx).x = x 
            Points(idx).y = y 
                Picture6.Circle (x, y), 0.5 
            If idx = 3 Then 
                PolyBezier Picture6.hdc, Points(0), 4 
                idx = 0 
            Picture6.DrawMode = 10 
            For i = 0 To 3 
                Picture6.Circle (Points(i).x, Points(i).y), 0.5 
                Next i 
            Else 
                idx = idx + 1 
            End If 
        Case 14 
            STARTX = x: STARTY = y: ENDX = x: ENDY = y 
                PAINT = True 
            If dodown = True Then 
                STARTX = Picture6.CurrentX 
                STARTY = Picture6.CurrentY 
            Else 
                dodown = True 
            End If 
        Case 15, 16 
        STARTX = x: STARTY = y: ENDX = x: ENDY = y 
        PAINT = True 
        Picture6.AutoRedraw = False 
    End Select 
    changed = True 
End Sub 

Private Sub Picture6_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) 
       
    Select Case gtoolbarindex 
        Case 2 
            If PAINT = True Then 
                Picture6.Line (STARTX, STARTY)-(ENDX, ENDY), , B 
                ENDX = x: ENDY = y 
            Picture6.Line (STARTX, STARTY)-(ENDX, ENDY), , B 
            End If 
        Case 3 
            If PAINT = True Then 
                Picture6.DrawWidth = 8 
                Picture6.ForeColor = Picture3.BackColor 
                Picture6.Line (STARTX, STARTY)-(x, y) 
                STARTX = x: STARTY = y 
            End If 
     
        Case 7 
            If PAINT = True Then 
                Picture6.Line (STARTX, STARTY)-(x, y) 
                STARTX = x: STARTY = y 
            End If 
     
        Case 8 
            If PAINT = True Then 
                Picture6.DrawWidth = 5 
                Picture6.Line (STARTX, STARTY)-(x, y) 
                STARTX = x: STARTY = y 
            End If 
     
        Case 9 
            If PAINT = True Then 
                Picture6.ForeColor = Picture2.BackColor 
                Dim i As Integer 
                For i = 1 To 20 
                    STARTX = x + Int(Rnd * 10 - 5) 
                    STARTY = y + Int(Rnd * 10 - 5) 
                    Picture6.PSet (STARTX, STARTY) 
                Next i 
                ENDX = x 
                ENDY = y 
                Timer1.Enabled = True 
            End If 
     
        Case 11 
            If PAINT = True Then 
                Picture6.DrawMode = 10 
                Picture6.Line (STARTX, STARTY)-(ENDX, ENDY) 
                ENDX = x: ENDY = y 
            Picture6.Line (STARTX, STARTY)-(ENDX, ENDY) 
            End If 
         
        Case 13 
            If PAINT = True Then 
                Picture6.DrawMode = 10 
                Picture6.Line (STARTX, STARTY)-(ENDX, ENDY), , B 
                ENDX = x: ENDY = y 
                Picture6.Line (STARTX, STARTY)-(ENDX, ENDY), , B 
            End If 
        Case 14 
             
            If PAINT = True Then 
                Picture6.DrawMode = 10 
                Picture6.Line (STARTX, STARTY)-(ENDX, ENDY) 
 
 
  
 作者： 城外来客  2005-10-1 23:58 　 回复此发言    
 
--------------------------------------------------------------------------------
 
5 简单画图板VB代码  
                 Picture6.Line (STARTX, STARTY)-(ENDX, ENDY) 
                ENDX = x: ENDY = y 
                 
            End If 
        Case 15 
            If PAINT = True Then 
                Picture6.DrawMode = 10 
                Ellipse Picture6.hdc, STARTX, STARTY, ENDX, ENDY 
                ENDX = x: ENDY = y 
                Ellipse Picture6.hdc, STARTX, STARTY, ENDX, ENDY 
            End If 
     
        Case 16 
            If PAINT = True Then 
                Picture6.DrawMode = 10 
                RoundRect Picture6.hdc, STARTX, STARTY, ENDX, ENDY, 20, 20 
                ENDX = x: ENDY = y 
                RoundRect Picture6.hdc, STARTX, STARTY, ENDX, ENDY, 20, 20 
            End If 
    End Select 
    Form1.StatusBar1.Style = sbrText 
    Form1.StatusBar1.Panels(2) = x & "    " & y 
End Sub 

Private Sub Picture6_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) 
    Select Case gtoolbarindex 
        Case 2 
             
            Picture6.DrawMode = 13 
            Picture6.Line (STARTX, STARTY)-(ENDX, ENDY), , B 
            'Picture6.PaintPicture Picture6, STARTX, STARTY, ENDX - STARTX, ENDY - STARTY, STARTX, STARTY, ENDX - STARTX, ENDY - STARTY 
            Picture6.DrawStyle = 0 
            PAINT = False 
        Case 3 
            PAINT = False 
            Picture6.DrawWidth = 1 
            Picture6.ForeColor = Picture2.BackColor 
        Case 4 
            Picture6.FillStyle = 1 
        Case 7 
            PAINT = False 
        Case 8 
            Picture6.DrawWidth = 1 
            PAINT = False 
        Case 9 
            Timer1.Enabled = False 
            PAINT = False 
            Picture6.AutoRedraw = True 
        Case 10 
            Picture6.ForeColor = Picture2.BackColor 
        Case 11 
            Picture6.DrawMode = 13 
            Picture6.Line (STARTX, STARTY)-(ENDX, ENDY) 
            PAINT = False 
        Case 13 
            Picture6.DrawMode = 13 
            Picture6.Line (STARTX, STARTY)-(ENDX, ENDY), , B 
            PAINT = False 
        Case 14 
            Picture6.DrawMode = 13 
            Picture6.Line (STARTX, STARTY)-(ENDX, ENDY) 
            PAINT = False 
        Case 15 
            Picture6.DrawMode = 13 
            Ellipse Picture6.hdc, STARTX, STARTY, ENDX, ENDY 
            PAINT = False 
        Case 16 
            RoundRect Picture6.hdc, STARTX, STARTY, ENDX, ENDY, 20, 20 
            Picture6.DrawMode = 13 
            RoundRect Picture6.hdc, STARTX, STARTY, ENDX, ENDY, 20, 20 
            PAINT = False 
            End Select 
End Sub 

Private Sub Text1_dblClick() 
    CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects 
    CommonDialog1.ShowFont 
    If CommonDialog1.FontName > "" Then 
        Text1.FontName = CommonDialog1.FontName 
    End If 
    Text1.FontSize = CommonDialog1.FontSize 
    Text1.FontBold = CommonDialog1.FontBold 
    Text1.FontItalic = CommonDialog1.FontItalic 
    Text1.FontStrikethru = CommonDialog1.FontStrikethru 
    Text1.FontUnderline = CommonDialog1.FontUnderline 
    Text1.ForeColor = CommonDialog1.Color 
 
 
  
 作者： 城外来客  2005-10-1 23:58 　 回复此发言    
 
--------------------------------------------------------------------------------
 
6 简单画图板VB代码  
 End Sub 

Private Sub Text1_LostFocus() 
    MNUWORD.Enabled = False 
    Text1.Visible = False 
    Text1.Enabled = False 
    Text1.Text = "" 
 End Sub 

Private Sub Toolbar3_ButtonClick(ByVal Button As MSComctlLib.Button) 
    Button.Value = tbrPressed 
    For i = 1 To 16 
        If Toolbar3.Buttons(i).Value = tbrPressed Then 
            gtoolbarindex = i 
            Exit For 
        End If 
        gtoolbarindex = Button.Index 
    Next i 
    End Sub 

Private Sub Toolbar3_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) 

Select Case gtoolbarindex 
     Case 1 
     Form1.StatusBar1.Panels(1).Text = "从图形中剪辑任意形状的一块进行剪切、复制和粘贴" 
     Case 2 
     Form1.StatusBar1.Panels(1).Text = "从图形中剪辑一块矩形进行剪切、复制和粘贴" 
     Case 3 
     Form1.StatusBar1.Panels(1).Text = "涂去图片的一部分" 
     Case 4 
     Form1.StatusBar1.Panels(1).Text = "使用当前的颜色填充某一块区域" 
     Case 5 
     Form1.StatusBar1.Panels(1).Text = "请在图片上选取一块颜色" 
     Case 6 
     Form1.StatusBar1.Panels(1).Text = "更改放大倍数" 
     Case 7 
     Form1.StatusBar1.Panels(1).Text = "用一像素的线宽画任意线条" 
     Case 8 
     Form1.StatusBar1.Panels(1).Text = "选用选定的形状和大小使用刷子画图" 
     Case 9 
     Form1.StatusBar1.Panels(1).Text = "用选定的大小用喷枪画图" 
     Case 10 
     Form1.StatusBar1.Panels(1).Text = "在图片中插入文字" 
     Case 11 
     Form1.StatusBar1.Panels(1).Text = "用选定的线宽画一条直线" 
     Case 12 
     Form1.StatusBar1.Panels(1).Text = "用选定的线宽画一条曲线" 
     Case 13 
     Form1.StatusBar1.Panels(1).Text = "用选定的填充画一个矩形" 
     Case 14 
     Form1.StatusBar1.Panels(1).Text = "用选定的填充画一个多边形" 
     Case 15 
     Form1.StatusBar1.Panels(1).Text = "用选定的填充画一个椭圆" 
     Case 16 
     Form1.StatusBar1.Panels(1).Text = "用选定的填充画一圆角矩形" 
     Case Else 
     Form1.StatusBar1.Panels(1).Text = "要获得帮助请在“帮助”中单击“帮助主题”" 
   End Select 
End Sub