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

📄 frmtest.frm

📁 显示XP效果的状态栏程序.希望能和大家一起学习
💻 FRM
📖 第 1 页 / 共 2 页
字号:
VERSION 5.00
Begin VB.Form frmTest 
   BackColor       =   &H00E2FCFE&
   Caption         =   "VeryWellsStatusBarXP Control"
   ClientHeight    =   5970
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7425
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   ScaleHeight     =   5970
   ScaleWidth      =   7425
   StartUpPosition =   3  '窗口缺省
   Begin StatusBarTest.ucVeryWellsStatusBarXP ucVeryWellsStatusBarXP8 
      Height          =   315
      Left            =   975
      TabIndex        =   18
      Top             =   3090
      Width           =   6135
      _ExtentX        =   10821
      _ExtentY        =   556
      BackColor       =   14875902
      ForeColor       =   -2147483630
      ForeColorDissabled=   -2147483631
      MaskColor       =   16711935
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ShowGripper     =   -1  'True
      ShowSeperators  =   -1  'True
      Apperance       =   4
      NumberOfPanels  =   3
      pEnabled1       =   -1  'True
      PWidth1         =   100
      pTTText1        =   ""
      pType1          =   0
      pText1          =   "Idle mode"
      pTextAlignment1 =   1
      PanelPicture1   =   "frmTest.frx":0000
      PanelPicAlignment1=   0
      pBckgColor1     =   0
      pGradient1      =   0
      pEdgeSpacing1   =   0
      pEdgeInner1     =   0
      pEdgeOuter1     =   0
      pEnabled2       =   -1  'True
      PWidth2         =   120
      pTTText2        =   ""
      pType2          =   0
      pText2          =   "XP Diagonal Right"
      pTextAlignment2 =   1
      PanelPicture2   =   "frmTest.frx":0352
      PanelPicAlignment2=   0
      pBckgColor2     =   0
      pGradient2      =   0
      pEdgeSpacing2   =   0
      pEdgeInner2     =   0
      pEdgeOuter2     =   0
      pEnabled3       =   -1  'True
      PWidth3         =   160
      pTTText3        =   ""
      pType3          =   0
      pText3          =   "Tribute to  'LaVolpe button' ;)"
      pTextAlignment3 =   1
      PanelPicture3   =   "frmTest.frx":036E
      PanelPicAlignment3=   0
      pBckgColor3     =   0
      pGradient3      =   0
      pEdgeSpacing3   =   0
      pEdgeInner3     =   0
      pEdgeOuter3     =   0
   End
   Begin VB.VScrollBar VScrollDemo 
      Height          =   1350
      Left            =   795
      Max             =   100
      TabIndex        =   16
      Top             =   1185
      Value           =   100
      Width           =   270
   End
   Begin StatusBarTest.ucVeryWellsStatusBarXP ucVeryWellsStatusBarXP7 
      Height          =   360
      Left            =   975
      TabIndex        =   14
      Top             =   3480
      Width           =   6120
      _ExtentX        =   10795
      _ExtentY        =   635
      BackColor       =   14145495
      ForeColor       =   255
      ForeColorDissabled=   -2147483631
      MaskColor       =   16711935
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ShowGripper     =   -1  'True
      ShowSeperators  =   -1  'True
      Apperance       =   2
      NumberOfPanels  =   3
      pEnabled1       =   -1  'True
      PWidth1         =   100
      pTTText1        =   ""
      pType1          =   0
      pText1          =   "  Computer"
      pTextAlignment1 =   0
      PanelPicture1   =   "frmTest.frx":038A
      PanelPicAlignment1=   0
      pBckgColor1     =   0
      pGradient1      =   0
      pEdgeSpacing1   =   0
      pEdgeInner1     =   0
      pEdgeOuter1     =   0
      pEnabled2       =   -1  'True
      PWidth2         =   100
      pTTText2        =   ""
      pType2          =   0
      pText2          =   "Simple Style"
      pTextAlignment2 =   1
      PanelPicture2   =   "frmTest.frx":06DC
      PanelPicAlignment2=   0
      pBckgColor2     =   0
      pGradient2      =   0
      pEdgeSpacing2   =   0
      pEdgeInner2     =   0
      pEdgeOuter2     =   0
      pEnabled3       =   -1  'True
      PWidth3         =   140
      pTTText3        =   ""
      pType3          =   0
      pText3          =   "  Design as you like"
      pTextAlignment3 =   0
      PanelPicture3   =   "frmTest.frx":06F8
      PanelPicAlignment3=   0
      pBckgColor3     =   9868950
      pGradient3      =   4
      pEdgeSpacing3   =   1
      pEdgeInner3     =   0
      pEdgeOuter3     =   0
   End
   Begin StatusBarTest.ucVeryWellsStatusBarXP ucVeryWellsStatusBarXP6 
      Height          =   330
      Left            =   960
      TabIndex        =   11
      Top             =   3975
      Width           =   6135
      _ExtentX        =   10821
      _ExtentY        =   582
      BackColor       =   12632256
      ForeColor       =   -2147483630
      ForeColorDissabled=   -2147483631
      MaskColor       =   16711935
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ShowGripper     =   -1  'True
      ShowSeperators  =   0   'False
      Apperance       =   0
      NumberOfPanels  =   3
      pEnabled1       =   -1  'True
      PWidth1         =   100
      pTTText1        =   ""
      pType1          =   0
      pText1          =   "  Computer"
      pTextAlignment1 =   0
      PanelPicture1   =   "frmTest.frx":0A4A
      PanelPicAlignment1=   0
      pBckgColor1     =   0
      pGradient1      =   0
      pEdgeSpacing1   =   0
      pEdgeInner1     =   0
      pEdgeOuter1     =   0
      pEnabled2       =   -1  'True
      PWidth2         =   120
      pTTText2        =   ""
      pType2          =   0
      pText2          =   "Office XP Style"
      pTextAlignment2 =   1
      PanelPicture2   =   "frmTest.frx":0D9C
      PanelPicAlignment2=   2
      pBckgColor2     =   0
      pGradient2      =   0
      pEdgeSpacing2   =   0
      pEdgeInner2     =   0
      pEdgeOuter2     =   0
      pEnabled3       =   -1  'True
      PWidth3         =   111
      pTTText3        =   ""
      pType3          =   4
      pText3          =   "  Pure flat frames"
      pTextAlignment3 =   0
      PanelPicture3   =   "frmTest.frx":10EE
      PanelPicAlignment3=   0
      pBckgColor3     =   0
      pGradient3      =   0
      pEdgeSpacing3   =   0
      pEdgeInner3     =   0
      pEdgeOuter3     =   0
   End
   Begin StatusBarTest.ucVeryWellsStatusBarXP ucVeryWellsStatusBarXP5 
      Height          =   480
      Left            =   975
      TabIndex        =   10
      Top             =   4410
      Width           =   6135
      _ExtentX        =   10821
      _ExtentY        =   847
      BackColor       =   14456432
      ForeColor       =   16777215
      ForeColorDissabled=   -2147483631
      MaskColor       =   16711935
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ShowGripper     =   -1  'True
      ShowSeperators  =   -1  'True
      NumberOfPanels  =   3
      pEnabled1       =   -1  'True
      PWidth1         =   100
      pTTText1        =   ""
      pType1          =   0
      pText1          =   "My Computer"
      pTextAlignment1 =   0
      PanelPicture1   =   "frmTest.frx":1440
      PanelPicAlignment1=   0
      pBckgColor1     =   0
      pGradient1      =   0
      pEdgeSpacing1   =   1
      pEdgeInner1     =   0
      pEdgeOuter1     =   4
      pEnabled2       =   -1  'True
      PWidth2         =   140
      pTTText2        =   ""
      pType2          =   0
      pText2          =   "Windows XP Style"
      pTextAlignment2 =   1
      PanelPicture2   =   "frmTest.frx":1792
      PanelPicAlignment2=   0
      pBckgColor2     =   12384957
      pGradient2      =   1
      pEdgeSpacing2   =   0
      pEdgeInner2     =   0
      pEdgeOuter2     =   0
      pEnabled3       =   -1  'True
      PWidth3         =   130
      pTTText3        =   ""
      pType3          =   0
      pText3          =   "Little Color ;)"
      pTextAlignment3 =   1
      PanelPicture3   =   "frmTest.frx":1AE4
      PanelPicAlignment3=   0
      pBckgColor3     =   18655
      pGradient3      =   7
      pEdgeSpacing3   =   0
      pEdgeInner3     =   0
      pEdgeOuter3     =   9
   End
   Begin StatusBarTest.ucVeryWellsStatusBarXP ucStatusBarXP3 
      Height          =   315
      Left            =   3420
      TabIndex        =   5
      Top             =   2670
      Width           =   3675
      _ExtentX        =   6482
      _ExtentY        =   556
      BackColor       =   12888940
      ForeColor       =   -2147483630
      ForeColorDissabled=   14737632
      MaskColor       =   16711935
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ShowGripper     =   0   'False
      ShowSeperators  =   -1  'True
      NumberOfPanels  =   5
      pEnabled1       =   -1  'True
      PWidth1         =   55
      pTTText1        =   ""
      pType1          =   2
      pText1          =   "02:33:19"
      pTextAlignment1 =   1
      PanelPicture1   =   "frmTest.frx":1E36
      PanelPicAlignment1=   0
      pBckgColor1     =   0
      pGradient1      =   0
      pEdgeSpacing1   =   0
      pEdgeInner1     =   0
      pEdgeOuter1     =   0
      pEnabled2       =   -1  'True
      PWidth2         =   60
      pTTText2        =   ""
      pType2          =   3
      pText2          =   "3.6.2003"
      pTextAlignment2 =   1
      PanelPicture2   =   "frmTest.frx":1E52
      PanelPicAlignment2=   0
      pBckgColor2     =   0
      pGradient2      =   0
      pEdgeSpacing2   =   0
      pEdgeInner2     =   0
      pEdgeOuter2     =   0
      pEnabled3       =   -1  'True
      PWidth3         =   40
      pTTText3        =   ""
      pType3          =   5
      pText3          =   "CAPS"
      pTextAlignment3 =   1
      PanelPicture3   =   "frmTest.frx":1E6E
      PanelPicAlignment3=   0
      pBckgColor3     =   0
      pGradient3      =   0
      pEdgeSpacing3   =   0
      pEdgeInner3     =   0
      pEdgeOuter3     =   0
      pEnabled4       =   -1  'True
      PWidth4         =   35
      pTTText4        =   ""
      pType4          =   6
      pText4          =   "NUM"
      pTextAlignment4 =   1
      PanelPicture4   =   "frmTest.frx":1E8A
      PanelPicAlignment4=   0
      pBckgColor4     =   0
      pGradient4      =   0
      pEdgeSpacing4   =   0
      pEdgeInner4     =   0
      pEdgeOuter4     =   0
      pEnabled5       =   -1  'True
      PWidth5         =   58
      pTTText5        =   ""
      pType5          =   7
      pText5          =   "SCROLL"
      pTextAlignment5 =   1
      PanelPicture5   =   "frmTest.frx":1EA6
      PanelPicAlignment5=   0
      pBckgColor5     =   0
      pGradient5      =   0
      pEdgeSpacing5   =   0
      pEdgeInner5     =   0
      pEdgeOuter5     =   0
   End
   Begin StatusBarTest.ucVeryWellsStatusBarXP ucStatusBarXP2 
      Align           =   1  'Align Top
      Height          =   645
      Left            =   0
      TabIndex        =   2
      Top             =   0
      Width           =   7425
      _ExtentX        =   13097
      _ExtentY        =   1138
      BackColor       =   14726307
      ForeColor       =   -2147483630
      ForeColorDissabled=   -2147483631
      MaskColor       =   16711935
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ShowGripper     =   0   'False
      ShowSeperators  =   0   'False
      TopLine         =   0   'False
      NumberOfPanels  =   6
      pEnabled1       =   -1  'True
      PWidth1         =   110
      pTTText1        =   ""
      pType1          =   0
      pText1          =   "Frames !"
      pTextAlignment1 =   1
      PanelPicture1   =   "frmTest.frx":1EC2
      PanelPicAlignment1=   0
      pBckgColor1     =   0
      pGradient1      =   0
      pEdgeSpacing1   =   6
      pEdgeInner1     =   6
      pEdgeOuter1     =   10
      pEnabled2       =   -1  'True
      PWidth2         =   60
      pTTText2        =   ""
      pType2          =   0
      pText2          =   ""
      pTextAlignment2 =   0
      PanelPicture2   =   "frmTest.frx":2214
      PanelPicAlignment2=   0
      pBckgColor2     =   12941503
      pGradient2      =   4
      pEdgeSpacing2   =   0
      pEdgeInner2     =   0
      pEdgeOuter2     =   0
      pEnabled3       =   -1  'True
      PWidth3         =   80
      pTTText3        =   ""
      pType3          =   1
      pText3          =   ""
      pTextAlignment3 =   0
      PanelPicture3   =   "frmTest.frx":2230
      PanelPicAlignment3=   0
      pBckgColor3     =   4486101
      pGradient3      =   4
      pEdgeSpacing3   =   0
      pEdgeInner3     =   0
      pEdgeOuter3     =   0
      pEnabled4       =   -1  'True
      PWidth4         =   50
      pTTText4        =   ""
      pType4          =   0
      pText4          =   " Ok?"
      pTextAlignment4 =   2
      PanelPicture4   =   "frmTest.frx":224C
      PanelPicAlignment4=   0
      pBckgColor4     =   4227072
      pGradient4      =   4
      pEdgeSpacing4   =   0
      pEdgeInner4     =   0
      pEdgeOuter4     =   0
      pEnabled5       =   -1  'True
      PWidth5         =   80
      pTTText5        =   ""
      pType5          =   1
      pText5          =   "Fake text"
      pTextAlignment5 =   1
      PanelPicture5   =   "frmTest.frx":2268
      PanelPicAlignment5=   2
      pBckgColor5     =   12941503

⌨️ 快捷键说明

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