GDI/图象编程

开发平台：

Visual Basic

AeroButton.ctl：源码内容

							VERSION 5.00
Begin VB.UserControl AeroButton 
   AutoRedraw      =   -1  'True
   ClientHeight    =   345
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   1095
   DefaultCancel   =   -1  'True
   EditAtDesignTime=   -1  'True
   BeginProperty Font 
      Name            =   "Segoe UI"
      Size            =   9
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   KeyPreview      =   -1  'True
   MaskColor       =   &H00FF00FF&
   ScaleHeight     =   23
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   73
   ToolboxBitmap   =   "AeroButton.ctx":0000
End
Attribute VB_Name = "AeroButton"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'-----------------------------------------------------------------------------
' AeroCheckBox ActiveX Control
' Based on dcButton by Noel A. Dacara [CodeId=65941]
'-----------------------------------------------------------------------------
' Copyright 

						