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

📄 framexp.ctl

📁 vb源码之家界面源码,非常详细的说明和代码
💻 CTL
字号:
VERSION 5.00
Begin VB.UserControl Xp_Frame 
   Alignable       =   -1  'True
   Appearance      =   0  'Flat
   AutoRedraw      =   -1  'True
   BackColor       =   &H80000005&
   ClientHeight    =   315
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   930
   ControlContainer=   -1  'True
   ScaleHeight     =   21
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   62
   ToolboxBitmap   =   "FrameXp.ctx":0000
   Begin VB.Image img 
      Height          =   300
      Left            =   0
      Picture         =   "FrameXp.ctx":0312
      Top             =   0
      Visible         =   0   'False
      Width           =   330
   End
   Begin VB.Label lbl 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      Caption         =   " Frame1"
      ForeColor       =   &H00FF0000&
      Height          =   195
      Left            =   360
      TabIndex        =   24
      Top             =   0
      Width           =   570
   End
   Begin VB.Label dot 
      BackStyle       =   0  'Transparent
      Caption         =   "."
      ForeColor       =   &H8000000B&
      Height          =   255
      Index           =   0
      Left            =   9000
      TabIndex        =   23
      Top             =   240
      Width           =   135
   End
   Begin VB.Label dot 
      BackStyle       =   0  'Transparent
      Caption         =   "."
      ForeColor       =   &H8000000B&
      Height          =   255
      Index           =   1
      Left            =   9000
      TabIndex        =   22
      Top             =   0
      Width           =   135
   End
   Begin VB.Label dot 
      BackStyle       =   0  'Transparent
      Caption         =   "."
      ForeColor       =   &H8000000B&
      Height          =   255
      Index           =   2
      Left            =   9000
      TabIndex        =   21
      Top             =   0
      Width           =   135
   End
   Begin VB.Label dot 
      BackStyle       =   0  'Transparent
      Caption         =   "."
      ForeColor       =   &H8000000B&
      Height          =   255
      Index           =   3
      Left            =   9000
      TabIndex        =   20
      Top             =   0
      Width           =   135
   End
   Begin VB.Label dot 
      BackStyle       =   0  'Transparent
      Caption         =   "."
      ForeColor       =   &H8000000B&
      Height          =   255
      Index           =   4
      Left            =   9000
      TabIndex        =   19
      Top             =   0
      Width           =   135
   End
   Begin VB.Label dot 
      BackStyle       =   0  'Transparent
      Caption         =   "."
      ForeColor       =   &H8000000B&
      Height          =   255
      Index           =   5
      Left            =   9000
      TabIndex        =   18
      Top             =   0
      Width           =   135
   End
   Begin VB.Label dot 
      BackStyle       =   0  'Transparent
      Caption         =   "."
      ForeColor       =   &H8000000B&
      Height          =   255
      Index           =   6
      Left            =   9000
      TabIndex        =   17
      Top             =   0
      Width           =   135
   End
   Begin VB.Label dot 
      BackStyle       =   0  'Transparent
      Caption         =   "."
      ForeColor       =   &H8000000B&
      Height          =   255
      Index           =   7
      Left            =   9000
      TabIndex        =   16
      Top             =   0
      Width           =   135
   End
   Begin VB.Label dot 
      BackStyle       =   0  'Transparent
      Caption         =   "."
      ForeColor       =   &H8000000B&
      Height          =   255
      Index           =   8
      Left            =   9000
      TabIndex        =   15
      Top             =   0
      Width           =   135
   End
   Begin VB.Label dot 
      BackStyle       =   0  'Transparent
      Caption         =   "."
      ForeColor       =   &H8000000B&
      Height          =   255
      Index           =   9
      Left            =   9000
      TabIndex        =   14
      Top             =   0
      Width           =   135
   End
   Begin VB.Label dot 
      BackStyle       =   0  'Transparent
      Caption         =   "."
      ForeColor       =   &H8000000B&
      Height          =   255
      Index           =   10
      Left            =   9000
      TabIndex        =   13
      Top             =   0
      Width           =   135
   End
   Begin VB.Label dot 
      BackStyle       =   0  'Transparent
      Caption         =   "."
      ForeColor       =   &H8000000B&
      Height          =   255
      Index           =   11
      Left            =   9000
      TabIndex        =   12
      Top             =   0
      Width           =   135
   End
   Begin VB.Label dot 
      BackStyle       =   0  'Transparent
      Caption         =   "."
      ForeColor       =   &H8000000B&
      Height          =   255
      Index           =   12
      Left            =   9000
      TabIndex        =   11
      Top             =   0
      Width           =   135
   End
   Begin VB.Label dot 
      BackStyle       =   0  'Transparent
      Caption         =   "."
      ForeColor       =   &H8000000B&
      Height          =   255
      Index           =   13
      Left            =   9000
      TabIndex        =   10
      Top             =   0
      Width           =   135
   End
   Begin VB.Label dot 
      BackStyle       =   0  'Transparent
      Caption         =   "."
      ForeColor       =   &H8000000B&
      Height          =   255
      Index           =   14
      Left            =   9000
      TabIndex        =   9
      Top             =   0
      Width           =   135
   End
   Begin VB.Label dot 
      BackStyle       =   0  'Transparent
      Caption         =   "."
      ForeColor       =   &H8000000B&
      Height          =   255
      Index           =   15
      Left            =   9000
      TabIndex        =   8
      Top             =   0
      Width           =   135
   End
   Begin VB.Label dot 
      BackStyle       =   0  'Transparent
      Caption         =   "."
      ForeColor       =   &H8000000B&
      Height          =   255
      Index           =   16
      Left            =   9000
      TabIndex        =   7
      Top             =   0
      Width           =   135
   End
   Begin VB.Label dot 
      BackStyle       =   0  'Transparent
      Caption         =   "."
      ForeColor       =   &H8000000B&
      Height          =   255
      Index           =   17
      Left            =   9000
      TabIndex        =   6
      Top             =   0
      Width           =   135
   End
   Begin VB.Label dot 
      BackStyle       =   0  'Transparent
      Caption         =   "."
      ForeColor       =   &H8000000B&
      Height          =   255
      Index           =   18
      Left            =   9000
      TabIndex        =   5
      Top             =   0
      Width           =   135
   End
   Begin VB.Label dot 
      BackStyle       =   0  'Transparent
      Caption         =   "."
      ForeColor       =   &H8000000B&
      Height          =   255
      Index           =   19
      Left            =   9000
      TabIndex        =   4
      Top             =   0
      Width           =   135
   End
   Begin VB.Label dot 
      BackStyle       =   0  'Transparent
      Caption         =   "."
      ForeColor       =   &H8000000B&
      Height          =   255
      Index           =   20
      Left            =   9000
      TabIndex        =   3
      Top             =   0
      Width           =   135
   End
   Begin VB.Label dot 
      BackStyle       =   0  'Transparent
      Caption         =   "."
      ForeColor       =   &H8000000B&
      Height          =   255
      Index           =   21
      Left            =   9000
      TabIndex        =   2
      Top             =   0
      Width           =   135
   End
   Begin VB.Label dot 
      BackStyle       =   0  'Transparent
      Caption         =   "."
      ForeColor       =   &H8000000B&
      Height          =   255
      Index           =   22
      Left            =   9000
      TabIndex        =   1
      Top             =   0
      Width           =   135
   End
   Begin VB.Label dot 
      BackStyle       =   0  'Transparent
      Caption         =   "."
      ForeColor       =   &H8000000B&
      Height          =   255
      Index           =   23
      Left            =   9000
      TabIndex        =   0
      Top             =   0
      Width           =   135
   End
End
Attribute VB_Name = "Xp_Frame"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
                     'VB 在线
                    'www.VBzx.net

'+------------------------------------------------+
'                http://www.VBzx.net
'+------------------------------------------------+
'*   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *
'  *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *
'*   *  This code is originaly writen by Aleks Kimhi - Aki.                                               *
'  *    As you might have read that this ActiveX control is free,                 O                       *
'*   *  and therefore can be distributed for free as long as you                                              *
'  *    do not sell it for profit and there's still my name on it.                               ____|            *
'*   *  I've spend some time on this project so please                                                            *
'  *    don't just take it, use it and say you wrote it.                                                               *
'*   *  Thank you for your co-operation. Any comments,                           P                          *
'  *    good or bad, would be greatly appreciated.                                                               *
'*   *  E -mail: aniram@ zahav.net.il                                                                               *
'  *    Tel-Aviv, Israel    A & M 

⌨️ 快捷键说明

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