⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 frmview.frm

📁 几个不错的VB例子
💻 FRM
字号:
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
' carles_pv@terra.es
' ==================

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

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -