frmview.frm

几个不错的VB例子

VERSION 5.00
Begin VB.Form frmView 
   BorderStyle     =   5  'Sizable ToolWindow
   Caption         =   "View"
   ClientHeight    =   4500
   ClientLeft      =   60
   ClientTop       =   285
   ClientWidth     =   4725
   ClipControls    =   0   'False
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   MouseIcon       =   "frmView.frx":0000
   MousePointer    =   99  'Custom
   ScaleHeight     =   300
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   315
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin Thumb_DB.ucPicScroll View 
      Height          =   4500
      Left            =   0
      TabIndex        =   0
      TabStop         =   0   'False
      Top             =   0
      Width           =   4500
      _ExtentX        =   7938
      _ExtentY        =   7938
      Appearance      =   0
      BackColor       =   -2147483643
      BackColor       =   -2147483643
      BorderStyle     =   1
   End
End
Attribute VB_Name = "frmView"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' ==================
'    Thumb DB 1.5
' ==================
' Carles P.V. - 2001
' [e-mail]
' ==================

Option Explicit





Private Sub Form_Resize()
    
    '## Resize control to form
    View.Width = Me.ScaleWidth
    View.Height = Me.ScaleHeight
    View.Visible = False
    View.BestFit
    View.Visible = True
End Sub

Private Sub View_Click()

    Me.Hide
    
End Sub