form1.frm

vb电子书籍

   VERSION 5.00
   Begin VB.Form Form1
      BackColor       =   &H80000000&
      Caption         =   "图形滚动"
      ClientHeight    =   1890
      ClientLeft      =   60
      ClientTop       =   345
      ClientWidth     =   3030
      FillColor       =   &H00FF0000&
      BeginProperty Font
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Icon            =   "Form1.frx":0000
      LinkTopic       =   "Form1"
      ScaleHeight     =   1890
      ScaleWidth      =   3030
      StartUpPosition =   2  '屏幕中心
      Begin VB.PictureBox Picture1
         Height          =   4695
         Left            =   0
         Picture         =   "Form1.frx":000C
         ScaleHeight     =   4635
         ScaleWidth      =   6915
         TabIndex        =   0
         Top             =   0
         Width           =   6975
         Begin VB.VScrollBar VScroll1
            Height          =   4335
            LargeChange     =   50
            Left            =   6240
            SmallChange     =   10
            TabIndex        =   2
            Top             =   0
            Width           =   270
         End
         Begin VB.HScrollBar HScroll1
            Height          =   255
            LargeChange     =   50
            Left            =   0
            SmallChange     =   10
            TabIndex        =   1
            Top             =   4320
            Width           =   6495
         End
      End
   End
   Attribute VB_Name = "Form1"
   Attribute VB_GlobalNameSpace = False
   Attribute VB_Creatable = False
   Attribute VB_PredeclaredId = True
   Attribute VB_Exposed = False
'CODE Manger By BcodeXRose
'##################################################################
'## 过程名称：hvscroll
'## 参数： 无
'##################################################################
Private Sub hvscroll()
    HScroll1.Left = 0
    HScroll1.Top = Form1.ScaleHeight - HScroll1.Height
    HScroll1.Width = Form1.ScaleWidth - VScroll1.Width
    HScroll1.Max = Picture1.Width - Form1.ScaleWidth
    HScroll1.Visible = (Picture1.Width > Form1.ScaleWidth)
    VScroll1.Top = 0
    VScroll1.Left = Form1.ScaleWidth - VScroll1.Width
    VScroll1.Height = Form1.ScaleHeight - HScroll1.Height
    VScroll1.Max = (Picture1.Height - Form1.ScaleHeight)
    VScroll1.Visible = (Picture1.Height > Form1.ScaleHeight)
    
End Sub
'##################################################################
'## 过程名称：Form_Load
'## 参数： 无
'##################################################################
Private Sub Form_Load()
    Picture1.Move 0, 0
    hvscroll
    HScroll1.ZOrder 0
    VScroll1.ZOrder 0
    
End Sub
    
'##################################################################
'## 过程名称：Form_Resize
'## 参数： 无
'##################################################################
Private Sub Form_Resize()
    hvscroll
End Sub
    
'##################################################################
'## 过程名称：HScroll1_Change
'## 参数： 无
'##################################################################
Private Sub HScroll1_Change()
    Picture1.Left = -HScroll1.Value
    
End Sub
    
    
'##################################################################
'## 过程名称：HScroll1_Scroll
'## 参数： 无
'##################################################################
Private Sub HScroll1_Scroll()
    Picture1.Left = -HScroll1.Value
End Sub
    
'##################################################################
'## 过程名称：Picture1_Click
'## 参数： 无
'##################################################################
Private Sub Picture1_Click()
    
End Sub
    
'##################################################################
'## 过程名称：VScroll1_Change
'## 参数： 无
'##################################################################
Private Sub VScroll1_Change()
    Picture1.Top = -VScroll1.Value
End Sub
    
'##################################################################
'## 过程名称：VScroll1_Scroll
'## 参数： 无
'##################################################################
Private Sub VScroll1_Scroll()
    Picture1.Top = -VScroll1.Value
End Sub