form6.frm

一、 设计构想： 为减轻财政局非税收入管理处票据准购薄管理工作量

VERSION 5.00
Object = "{08A1C927-1A11-4A31-BB80-D0A867FE1143}#2.0#0"; "MMouse.ocx"
Begin VB.Form Form6 
   BackColor       =   &H00FFFFFF&
   Caption         =   "依据文件浏览器"
   ClientHeight    =   6225
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8610
   Icon            =   "Form6.frx":0000
   LinkTopic       =   "Form6"
   MDIChild        =   -1  'True
   ScaleHeight     =   6225
   ScaleWidth      =   8610
   Begin VB.PictureBox Picture1 
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   0  'None
      Height          =   615
      Left            =   120
      ScaleHeight     =   615
      ScaleWidth      =   1215
      TabIndex        =   2
      Top             =   120
      Width           =   1215
   End
   Begin MMouse.Mouse Mouse1 
      Left            =   2760
      Top             =   480
      _ExtentX        =   873
      _ExtentY        =   873
   End
   Begin VB.VScrollBar VScroll1 
      Height          =   1575
      Left            =   3720
      TabIndex        =   1
      Top             =   120
      Width           =   255
   End
   Begin VB.HScrollBar HScroll1 
      Height          =   255
      Left            =   0
      TabIndex        =   0
      Top             =   1320
      Width           =   3375
   End
End
Attribute VB_Name = "Form6"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Activate()
On Error Resume Next
Picture1.Picture = LoadPicture(Pub_file, vbLPLarge, vbLPColor)
Call Form_Resize
End Sub

Private Sub Form_Load()
Me.Top = 0
Me.Left = 0
Me.Width = MDIForm1.Width - 250
Me.Height = MDIForm1.Height - 2100
Mouse1.SetWnd Picture1.hWnd
End Sub
Private Sub Form_Resize()
On Error Resume Next
HScroll1.Left = 0
VScroll1.Top = 0
If Picture1.Width > ScaleWidth Then  '如果picture1比Form还宽
   HScroll1.Top = ScaleHeight - HScroll1.Height '使hscroll1水平滚动条显示到窗口底部
Else
   HScroll1.Top = ScaleHeight '如此Hscroll便不会显示出來了
End If
If Picture1.Height > HScroll1.Top Then '如果picture1比form还高
   VScroll1.Left = ScaleWidth - VScroll1.Width '使vscroll竖直滚动条显示到窗口右端
   If Picture1.Width > VScroll1.Left Then '如果picture1的宽度大于窗体减去竖直滚动条的宽度
        HScroll1.Top = ScaleHeight - HScroll1.Height '使hscroll1水平滚动条显示到窗口底部
   End If
Else
   VScroll1.Left = ScaleWidth  '如此Vscroll便不会显示出來了
End If
HScroll1.Width = ScaleWidth
If HScroll1.Top > 0 Then
         VScroll1.Height = HScroll1.Top
         '以下为设定滚动条的各参数范围
         HScroll1.Max = Picture1.Width - VScroll1.Left
         VScroll1.Max = Picture1.Height - HScroll1.Top
         HScroll1.SmallChange = Abs(HScroll1.Max \ 16) + 1
         HScroll1.LargeChange = Abs(HScroll1.Max \ 4) + 1
         VScroll1.SmallChange = Abs(VScroll1.Max \ 16) + 1
         VScroll1.LargeChange = Abs(VScroll1.Max \ 4) + 1
         '以下设置滚动条置前
         HScroll1.ZOrder 0
         VScroll1.ZOrder 0
End If
End Sub
Private Sub HScroll1_Change()
Picture1.Left = -HScroll1.Value '更改Picture1的位置
End Sub
Private Sub VScroll1_Change()
Picture1.Top = -VScroll1.Value '更改Picture1的位置
End Sub
Private Sub Mouse1_MouseWheel(Way As Boolean, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
        If Way = True Then
            If VScroll1.Value <= VScroll1.Max Then
                If VScroll1.Value > VScroll1.Max - 1000 Then
                VScroll1.Value = VScroll1.Max
                Else
                VScroll1.Value = VScroll1.Value + 1000
                End If
            End If
        Else
            If VScroll1.Value >= VScroll1.Min Then
                If VScroll1.Value < VScroll1.Min + 1000 Then
                VScroll1.Value = VScroll1.Min
                Else
                VScroll1.Value = VScroll1.Value - 1000
                End If
            End If
        End If

End Sub