form1.frm

自制标签文件。可以增加系统的标签没有的功能

VERSION 5.00
Object = "{29DF3D15-D550-466F-82A2-3A90EC53EE75}#4.0#0"; "标签.ocx"
Begin VB.Form Form1 
   BackColor       =   &H00000000&
   Caption         =   "Form1"
   ClientHeight    =   5010
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7365
   ForeColor       =   &H00000000&
   LinkTopic       =   "Form1"
   ScaleHeight     =   5010
   ScaleWidth      =   7365
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command2 
      Caption         =   "Command2"
      Height          =   555
      Left            =   2670
      TabIndex        =   1
      Top             =   660
      Width           =   1395
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   465
      Left            =   690
      TabIndex        =   0
      Top             =   480
      Width           =   1065
   End
   Begin 标签.SuperLabel lbl 
      Height          =   240
      Left            =   3120
      TabIndex        =   2
      Top             =   2850
      Width           =   960
      _ExtentX        =   1693
      _ExtentY        =   423
      BackColor       =   255
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Caption         =   "12121212"
      AutoSize        =   -1  'True
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
 
 

Private Sub Command1_Click()
   Static blnFlag As Boolean
   blnFlag = Not blnFlag
   lbl.FlashBack vbRed, vbBlue, blnFlag
End Sub

Private Sub Command2_Click()
   lbl.BackColor = vbRed
   lbl.Refresh
End Sub

Private Sub lbl_CaptionChanged(OldCaption As String, NewCaption As String)
   Dim i
   i = lbl.Caption
   
End Sub