frmview.frm

管理电子相片 可以进行上传 评价 浏览 等操作

VERSION 5.00
Begin VB.Form frmView 
   BorderStyle     =   5  'Sizable ToolWindow
   Caption         =   "图片查看"
   ClientHeight    =   4500
   ClientLeft      =   60
   ClientTop       =   285
   ClientWidth     =   4725
   ClipControls    =   0   'False
   ControlBox      =   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  '窗口缺省
   Begin Thumb_DB.ucPicScroll View 
      Height          =   4500
      Left            =   0
      TabIndex        =   0
      TabStop         =   0   'False
      Top             =   0
      Width           =   4500
      _ExtentX        =   7938
      _ExtentY        =   7938
      BackColor       =   -2147483643
      BackColor       =   -2147483643
      Picture         =   "frmView.frx":030A
   End
End
Attribute VB_Name = "frmView"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit



Private Sub Form_Resize()
    
    '-- 窗体的大小控制
    With View
        '-- 宽度为窗体的宽度
        .Width = Me.ScaleWidth
         '-- 高度为窗体的高度
        .Height = Me.ScaleHeight
         '-- 可见
        .Visible = False
         '-- 最合适大小
        .BestFit
         '-- 不可见
        .Visible = True
    End With
End Sub

Private Sub View_Click()
     '-- 隐藏
    Me.Hide
End Sub