frmpreview.frm

几个不错的VB例子

VERSION 5.00
Begin VB.Form frmPreview 
   BorderStyle     =   5  'Sizable ToolWindow
   Caption         =   "View"
   ClientHeight    =   4500
   ClientLeft      =   60
   ClientTop       =   285
   ClientWidth     =   4725
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4500
   ScaleWidth      =   4725
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin Thumb_DB.ucPicScroll Preview 
      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 = "frmPreview"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private Sub Form_Resize()
    
    Preview.Width = Me.ScaleWidth
    Preview.Height = Me.ScaleHeight
    
End Sub

Private Sub Preview_DblClick()
    
    Me.Hide
    
End Sub