form1.frm

一款非常适用的按钮控件

      _ExtentX        =   3942
      _ExtentY        =   873
      Caption         =   "hello world"
      ForeGroundColor =   16777152
      ForePressedColor=   16777152
      ForeLineColor   =   12582912
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BackColor       =   16777152
   End
   Begin 工程1.XnButton XnButton7 
      Height          =   495
      Index           =   2
      Left            =   2370
      Top             =   2820
      Width           =   2235
      _ExtentX        =   3942
      _ExtentY        =   873
      Caption         =   "hello world"
      ForeLineColor   =   12632064
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BackColor       =   12640511
   End
   Begin 工程1.XnButton XnButton7 
      Height          =   495
      Index           =   3
      Left            =   2370
      Top             =   3360
      Width           =   2235
      _ExtentX        =   3942
      _ExtentY        =   873
      Caption         =   "hello world"
      ForeLineColor   =   12632064
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BackColor       =   12640511
   End
   Begin 工程1.XnButton XnButton7 
      Height          =   495
      Index           =   4
      Left            =   2370
      Top             =   3870
      Width           =   2235
      _ExtentX        =   3942
      _ExtentY        =   873
      Caption         =   "hello world"
      ForeLineColor   =   12632064
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BackColor       =   12640511
   End
   Begin 工程1.XnButton XnButton10 
      Height          =   465
      Index           =   1
      Left            =   4590
      Top             =   2280
      Width           =   1905
      _ExtentX        =   3360
      _ExtentY        =   820
      Caption         =   "XnButton"
      Style           =   1
      ForeLineColor   =   65280
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BackColor       =   16744576
   End
   Begin 工程1.XnButton XnButton10 
      Height          =   465
      Index           =   2
      Left            =   4650
      Top             =   2790
      Width           =   1905
      _ExtentX        =   3360
      _ExtentY        =   820
      Caption         =   "XnButton"
      Style           =   1
      ForeLineColor   =   49152
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BackColor       =   16744576
   End
   Begin 工程1.XnButton XnButton11 
      Height          =   945
      Index           =   1
      Left            =   6660
      Top             =   2670
      Width           =   2295
      _ExtentX        =   4048
      _ExtentY        =   1667
      Caption         =   "XnButton"
      ForeStyle       =   1
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BackColor       =   8421376
   End
   Begin 工程1.XnButton XnButton11 
      Height          =   945
      Index           =   2
      Left            =   6630
      Top             =   3630
      Width           =   2295
      _ExtentX        =   4048
      _ExtentY        =   1667
      Caption         =   "XnButton"
      ForeStyle       =   1
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BackColor       =   16777152
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H0080FF80&
      Caption         =   "Label1"
      Height          =   345
      Left            =   2940
      TabIndex        =   2
      Top             =   150
      Width           =   1455
   End
   Begin VB.Menu aa 
      Caption         =   "aa"
   End
   Begin VB.Menu bb 
      Caption         =   "bb"
   End
   Begin VB.Menu cc 
      Caption         =   "cc"
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
XnButton1.Enabled = False
End Sub
Private Sub Command2_Click()
 XnButton1.Enabled = True
End Sub
Private Sub Command3_Click()
 XnButton10.PressValue = True
End Sub

Private Sub Command4_Click()
 XnButton10.PressValue = False
End Sub
'Private Sub XnButton10_Click()
'Me.Caption = "hello world"
'End Sub
'
'Private Sub XnButton10_DblClick()
'Me.Caption = "dbl_clicked"
'End Sub
'
''    Dim i As Long
''    MsgBox "请选择您要删除的电能表记录!", vbInformation
''           Screen.MousePointer = 11
''           For i = 0 To 100
''           Next i
''           Screen.MousePointer = 0
'''MsgBox "hello world and happy yourself"
'
'
'Private Sub XnButton9_Click()
'For i = 0 To 5000
' Me.Caption = i
''DoEvents
' Next
'
'End Sub
Private Sub Command5_Click()
 XnButton10.Style = Pressed
End Sub
Private Sub XnButton7_Click(Index As Integer)
  Dim i As Long
  For i = 1 To 50000
  Me.Caption = i
  Next i

End Sub
Private Sub XnButton9_Click()
  MsgBox "hello world"
End Sub