画图板原代码_c语言吧

Dim RANGE As Integer
Dim M As Integer
Dim n As Integer
Dim gtoolbarindex As Integer
Dim STARTX As Single
Dim STARTY As Single
Dim ENDX As Single
Dim ENDY As Single
Dim dodown As Boolean
Dim saved As Boolean
Dim changed As Boolean
Private Declare Function ExtFloodFill Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long, ByVal wFillType As Long) As Long
Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Private Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function RoundRect Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Type POINTAPI
        X As Long
        Y As Long
End Type
Dim Points(0 To 3) As POINTAPI
Dim idx As Integer
Private Declare Function PolyBezier Lib "gdi32" (ByVal hdc As Long, lppt As POINTAPI, ByVal cPoints As Long) As Long
Dim PAINT As Boolean
Dim WENJIAN As String

Private Sub Form_Load()
    Picture6.BackColor = Picture3.BackColor
    Picture6.ForeColor = Picture9.BackColor
    PAINT = False
    Picture6.ScaleMode = 3
    dodown = False
    saved = False
    changed = False
    Picture6.AutoRedraw = True
    Timer2.Interval = 1000
    HScroll1.LargeChange = 20
    HScroll1.SmallChange = 5
    VScroll1.LargeChange = 20
    VScroll1.SmallChange = 5
    Form1.StatusBar1.Style = sbrText
    Form1.StatusBar1.Panels(4) = "保护眼睛 ZKL"
    RANGE = 10
    M = 5
    n = 15
    End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Form1.StatusBar1.Panels(1).Text = "要获得帮助请在“帮助”中单击“帮助主题”"
End Sub

Private Sub Form_Resize()                 '控制PICTURE5随FORM改变
    Picture5.AutoSize = True
    Picture5.Left = Picture7.Width
    Picture5.Top = 0
    Picture5.Width = Form1.Width - Picture7.Width
    Picture5.Height = Form1.ScaleHeight - Picture8.Height

    End Sub

Private Sub HScroll1_Change()
    Picture6.Left = -HScroll1.Value
End Sub

Private Sub HScroll1_Scroll()
    Picture6.Left = -HScroll1.Value
End Sub
Private Sub MNUBANGZHUZHUTI_Click()       '帮助文件
    CommonDialog1.HelpCommand = cdlHelpContents
    CommonDialog1.HelpFile = "C:\WINNT\Help\mspaint"
    CommonDialog1.HelpKey = "画直线"
    CommonDialog1.ShowHelp
End Sub

Private Sub MNUCOLOR_Click()              '控制颜色框的现藏
    If MNUCOLOR.Checked Then
        Form1.Picture1.Visible = False
        For Index = 0 To 27
            Form1.Picture4(Index).Visible = False
            MNUCOLOR.Checked = False
            Next Index
    Else
        Form1.Picture1.Visible = True
        For Index = 0 To 27
            Form1.Picture4(Index).Visible = True

            MNUCOLOR.Checked = True
            Next Index
        End If
End Sub

Private Sub MNUEDITCOLOR_Click()
    CommonDialog1.ShowColor
End Sub

Private Sub MNUEXIT_Click()
    End
End Sub

Private Sub MNUGUANYU_Click()
    Form2.Show
End Sub

Private Sub MNUJIAN_Click()
    Picture6 = LoadPicture()
End Sub

Private Sub MNUNEW_Click()                     '打开
    On Error GoTo nofile
    If saved = False Then
        RESPONCE = MsgBox("是否将改动保存到未命名中?", 35, 画图)
        If RESPONCE = vbYes Then
            CommonDialog1.InitDir = "C:\MY DOCUMENT"
            CommonDialog1.FileName = "未命名"
            CommonDialog1.Filter = "24位位图（*.BMP)|*.BMP|256色彩位图(*BMP}|*BMP"
            CommonDialog1.ShowSave
            SavePicture Form1.Picture6.Image, CommonDialog1.FileName
            Picture6.Cls
            Picture6.BackColor = RGB(255, 255, 255)
        End If
        If RESPONCE = vbNo Then
            Picture6.Cls
            Picture6.BackColor = RGB(255, 255, 255)
        End If
    End If
    If (saved = True And changed = False) Then
        Picture6.Cls
        Picture6.BackColor = RGB(255, 255, 255)
    End If
    If (saved = True And changed = True) Then
        RESPONCE = MsgBox("是否将改动保存到" & CommonDialog1.FileName & "中?", 35, 画图)
        If RESPONCE = vbYes Then
            SavePicture Form1.Picture6.Image, CommonDialog1.FileName
            Picture6.Cls
            Picture6.BackColor = RGB(255, 255, 255)
        End If
        If RESPONCE = vbNo Then
            Picture6.Cls
            Picture6.BackColor = RGB(255, 255, 255)
        End If
    End If
nofile:
    If Err.Number = 32755 Then Exit Sub
End Sub

Private Sub MNUPRINT_Click()
    CommonDialog1.ShowPrinter
End Sub

Private Sub MNUQINGCHU_Click()
    Picture6 = LoadPicture()
End Sub

Private Sub MNUTOOL_Click()                '工具栏的显隐
    If MNUTOOL.Checked Then
        Form1.Toolbar3.Visible = False
        MNUTOOL.Checked = False
    Else
        Form1.Toolbar3.Visible = True
        MNUTOOL.Checked = True
    End If
End Sub

Private Sub MNUWORD_Click()                 '文字框的显隐
    On Error GoTo nofile
    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
nofile:
    If Err.Number = 32755 Then Exit Sub
End Sub

Private Sub MNUZHUANGTAI_Click()              '状态栏的显隐
    If MNUZHUANGTAI.Checked Then
        Form1.StatusBar1.Visible = False
        MNUZHUANGTAI.Checked = False
    Else
        Form1.StatusBar1.Visible = True
        MNUZHUANGTAI.Checked = True
    End If
End Sub

Private Sub NUMASAVE_Click()

    On Error GoTo nofile
    CommonDialog1.InitDir = "C:\MY DOCUMENT"
    CommonDialog1.Filter = "24位位图（*.BMP)|*.BMP|256色彩位图(*BMP)|*BMP"
    CommonDialog1.ShowSave
    SavePicture Form1.Picture6.Image, CommonDialog1.FileName
    saved = True
nofile:
    If Err.Number = 32755 Then Exit Sub
End Sub

Private Sub NUMOPEN_Click()                  '打开
    On Error GoTo nofile
    CommonDialog1.InitDir = "C:WINDOWS"
    CommonDialog1.Filter = "24位位图（*.BMP)|*.BMP|256色彩位图(*BMP)|*BMP|JPG文件(*JPG)|(*.JPG)"
    CommonDialog1.ShowOpen
    WENJIAN = CommonDialog1.FileName
    Picture6 = LoadPicture(WENJIAN)
nofile:
    If Err.Number = 32755 Then Exit Sub
End Sub

Private Sub NUMSAVE_Click()                  '保存
    On Error GoTo nofile
    CommonDialog1.InitDir = "C:\MY DOCUMENT"
    CommonDialog1.Filter = "24位位图（*.BMP)|*.BMP|256色彩位图(*BMP)|*BMP"
    CommonDialog1.ShowSave
    SavePicture Form1.Picture6.Image, CommonDialog1.FileName
    saved = True
nofile:
    If Err.Number = 32755 Then Exit Sub
End Sub

Private Sub Option1_Click()                  'OPTION1-3控制线的粗细
    Picture6.DrawWidth = 1
End Sub

Private Sub Option2_Click()
    Picture6.DrawWidth = 5
End Sub

Private Sub Option3_Click()
    Picture6.DrawWidth = 8
End Sub

Private Sub Option4_Click()                   'OPTION4-5决定是否实心
    Picture6.FillStyle = 1
End Sub

Private Sub Option5_Click()
    Picture6.FillStyle = 0
    Picture6.FillColor = Picture6.ForeColor
End Sub

Private Sub Option6_Click()
    n = 20
    RANGE = 15
    M = 8
End Sub

Private Sub Option7_Click()
    n = 15
    RANGE = 10
    M = 5
End Sub

Private Sub Option8_Click()
    n = 8
    RANGE = 6
    M = 3
End Sub

Private Sub picture9_Click()
    Picture9.BackColor = CommonDialog1.Color
    Picture6.ForeColor = CommonDialog1.Color
End Sub

Private Sub Picture3_Click()
    Picture3.BackColor = CommonDialog1.Color
    Picture6.BackColor = CommonDialog1.Color
End Sub
Private Sub Picture4_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then                                     '确定背景前景色
        Picture9.BackColor = Picture4(Index).BackColor
        Picture6.ForeColor = Picture9.BackColor
    End If
    If Button = 2 Then
        Picture3.BackColor = Picture4(Index).BackColor
        Picture6.BackColor = Picture3.BackColor
    End If
End Sub
Private Sub Picture5_Resize()                              '确定滚动条的大小
    HScroll1.Left = 0
    HScroll1.Top = 0
    HScroll1.Width = Picture5.ScaleWidth
    HScroll1.Max = Picture6.Width - Picture5.ScaleWidth
    If Picture6.Width - Picture5.ScaleWidth > 0 Then
        HScroll1.Visible = True
    Else
        HScroll1.Visible = False
    End If
    VScroll1.Top = 0
    VScroll1.Left = Picture5.ScaleWidth - VScroll1.Width
    VScroll1.Height = Picture5.ScaleHeight - HScroll1.Height
    VScroll1.Max = Picture6.Height - Picture5.ScaleHeight
    If Picture6.Height - Picture5.ScaleHeight > 0 Then

        VScroll1.Visible = True
    Else
        VScroll1.Visible = False
    End If
End Sub
Private Sub picture6_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Select Case gtoolbarindex
        Case 2                                            '虚线框?
            Picture1.Line (X1, Y1)-(X2, Y2), , B
            STARTX = X: STARTY = Y: ENDX = X: ENDY = Y
            Picture6.DrawStyle = 4
            Picture6.DrawMode = 7
            PAINT = True
        Case 3
            STARTX = X: STARTY = Y: ENDX = X: ENDY = Y
            PAINT = True
            Picture10.Visible = True
            Picture10.Enabled = True
            Picture8.Enabled = False
            Picture7.Enabled = False
            Picture8.Visible = False
            Picture7.Visible = False
        Case 7, 8, 11
            STARTX = X: STARTY = Y: ENDX = X: ENDY = Y
            PAINT = True
            Picture7.Visible = True
            Picture7.Enabled = True
            Picture8.Enabled = False
            Picture10.Enabled = False
            Picture8.Visible = False
            Picture10.Visible = False
        Case 4                                             '填充
            Picture6.FillColor = Picture6.ForeColor
            Picture6.FillStyle = 0
            ExtFloodFill Picture6.hdc, X, Y, Picture6.Point(X, Y), 1
        Case 5                                             '取色
            Picture6.ForeColor = Picture6.Point(X, Y)
        Case 6                                             '放大
            Picture6.AutoRedraw = False
            Dim newWidth As Integer
            Dim newHeight As Integer
            newWidth = 2 * 472
            newHeight = 2 * 320
            Picture6.Width = newWidth * 15
            Picture6.Height = newHeight * 15
            StretchBlt Picture6.hdc, 0, 0, newWidth, newHeight, Picture6.hdc, 0, 0, 472, 320, vbSrcCopy
        Case 9                                             '喷枪
            Dim i As Integer
            For i = 1 To n
                STARTX = X + Int(Rnd * RANGE - M)
                STARTY = Y + Int(Rnd * RANGE - M)
                Picture6.PSet (STARTX, STARTY)
            Next i
            PAINT = True
            Picture10.Enabled = True
            Picture10.Visible = True
            Picture8.Enabled = False
            Picture7.Enabled = False
            Picture8.Visible = False
            Picture7.Visible = False
        Case 10                                          '文字
            Picture6.CurrentX = X
            Picture6.CurrentY = Y
            Text1.Top = Picture6.CurrentX
            Text1.Left = Picture6.CurrentY
            Text1.Enabled = True
            Text1.Visible = True
            Text1.SetFocus
            MNUWORD.Enabled = True
            Picture6.CurrentX = X
            Picture6.CurrentY = Y
            Picture6.FontName = Text1.FontName
            Picture6.FontBold = Text1.FontBold
            Picture6.FontItalic = Text1.FontItalic
            Picture6.FontUnderline = Text1.FontUnderline

            Picture6.FontSize = Text1.FontSize
            Picture6.ForeColor = Text1.ForeColor
            Picture6.Print Text1.Text
        Case 12                                           '曲线
            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
            Picture7.Visible = True
            Picture8.Visible = False                      '矩形
        Case 13
            STARTX = X: STARTY = Y: ENDX = X: ENDY = Y
            PAINT = True
            Picture7.Enabled = False
            Picture10.Enabled = False
            Picture7.Visible = False
            Picture10.Visible = False
            Picture8.Visible = True
            Picture8.Enabled = True

        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
            Picture7.Visible = False
            Picture8.Visible = True
        Case 15, 16                                      '椭圆,圆角矩形
            STARTX = X: STARTY = Y: ENDX = X: ENDY = Y
            PAINT = True
            Picture6.AutoRedraw = False
            Picture7.Enabled = False
            Picture10.Enabled = False
            Picture7.Visible = False
            Picture10.Visible = False
            Picture8.Visible = True
            Picture8.Enabled = True
    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 3
            Picture6.MouseIcon = LoadPicture(App.Path + "\rubber.cur")
       Case 4
            Picture6.MouseIcon = LoadPicture(App.Path + "\fill.cur")
       Case 5
           Picture6.MouseIcon = LoadPicture(App.Path + "\strawer.cur")
       Case 6
            Picture6.MouseIcon = LoadPicture(App.Path + "\ZOOM.cur")
       Case 7
            Picture6.MouseIcon = LoadPicture(App.Path + "\pencil.cur")
       Case 8
            Picture6.MouseIcon = LoadPicture(App.Path + "\CROSS.CUR")
       Case 9
            Picture6.MouseIcon = LoadPicture(App.Path + "\jet.cur")
       Case 2, 1, 10 To 16
            Picture6.MousePointer = 2
    End Select
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 = M
                Picture6.ForeColor = Picture3.BackColor
                Picture6.Line (STARTX, STARTY)-(X, Y)
                STARTX = X: STARTY = Y
            End If
            Picture6.Refresh
        Case 7                                            '铅笔
            If PAINT = True Then
                Picture6.Line (STARTX, STARTY)-(X, Y)
                STARTX = X: STARTY = Y
            End If
            Picture6.Refresh
        Case 8                                            '刷子
            If PAINT = True Then
                Picture6.DrawWidth = 5
                Picture6.Line (STARTX, STARTY)-(X, Y)
                STARTX = X: STARTY = Y
            End If
            Picture6.Refresh
        Case 9                                            '喷
            If PAINT = True Then
            Dim i As Integer
            For i = 1 To n
                STARTX = X + Int(Rnd * RANGE - M)
                STARTY = Y + Int(Rnd * RANGE - M)
                Picture6.PSet (STARTX, STARTY)
            Next i
            End If
            Picture6.Refresh
        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)
                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.DrawStyle = 0
            PAINT = False
        Case 3
            PAINT = False
            Picture6.DrawWidth = 1
            Picture6.ForeColor = Picture9.BackColor
        Case 4
            Picture6.FillStyle = 1
        Case 7
            PAINT = False
        Case 8
            Picture6.DrawWidth = 1
            PAINT = False
        Case 9
            PAINT = False
        Case 10
            Picture6.ForeColor = Picture9.BackColor
        Case 11
            Picture6.DrawMode = 13
            Picture6.Line (STARTX, STARTY)-(ENDX, ENDY)
            PAINT = False
        Case 12
            Picture6.DrawMode = 13
        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.AutoRedraw = True
            Picture6.DrawMode = 13
            Ellipse Picture6.hdc, STARTX, STARTY, ENDX, ENDY
            Picture6.Refresh
            PAINT = False
        Case 16
            Picture6.AutoRedraw = True
            Picture6.DrawMode = 13
            RoundRect Picture6.hdc, STARTX, STARTY, ENDX, ENDY, 20, 20
            Picture6.Refresh
            PAINT = False
    End Select

End Sub

Private Sub Text1_dblClick()                               '控制文字框显藏

    End Sub

Private Sub Text1_LostFocus()                             '使文本框消失
    MNUWORD.Enabled = False
    Text1.Visible = False
    Text1.Enabled = False
    Text1.Text = ""
End Sub

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
On Error GoTo nofile
    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
nofile:
    If Err.Number = 32755 Then Exit Sub
End If
End Sub

Private Sub Timer2_Timer()                                '控制时间
    Form1.StatusBar1.Style = sbrText
    Form1.StatusBar1.Panels(3) = Now
End Sub
Private Sub Toolbar3_ButtonClick(ByVal Button As MSComctlLib.Button)        '是工具栏和画布反应
    gtoolbarindex = Button.Index
    Picture6.MousePointer = 99
    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 = "用选定的填充画一圆角矩形"
End Select
End Sub
Private Sub VScroll1_Change()
    Picture6.Top = -VScroll1.Value
End Sub
Private Sub VScroll1_Scroll()
    Picture6.Top = -VScroll1.Value
End Sub

日	一	二	三	四	五	六

画图板原代码

扫二维码下载贴吧客户端