isbutton.ctl

一个电表行业专用的基于645规约的电表485通讯抄表程序

VERSION 5.00
Begin VB.UserControl isButton 
   AutoRedraw      =   -1  'True
   BackColor       =   &H00FFFFFF&
   ClientHeight    =   1455
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   3435
   BeginProperty Font 
      Name            =   "Verdana"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   ScaleHeight     =   97
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   229
   Begin VB.PictureBox m_About 
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   2175
      Left            =   7440
      ScaleHeight     =   2175
      ScaleWidth      =   5655
      TabIndex        =   0
      Top             =   6240
      Visible         =   0   'False
      Width           =   5655
   End
End
Attribute VB_Name = "isButton"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：05/04/19
'描  述：苹果风格按钮控件
'网  站：http://www.mndsoft.com/blog/
'e-mail：[e-mail]
'OICQ  : 88382850
'****************************************************************************
'*************************************************************
'
' Control Name: isButton
'
' Author:       Fred.cpp
'               [e-mail]
'
' Page:         http://mx.geocities.com/fred_cpp/
'
' Current
' Version:      3.0
'
' Description:  Multy Style Command Button. Made from scratch,
'               API drawn.
'               I started this project almost 4 years ago, I've
'               learned a lot since then, I think this version
'               Is the first one that can be used In real world,
'               I've keep this control for my own use for a
'               long Time, But I've used It for personal
'               projects, The only one public release was here:
'               http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=51271&lngWId=1
'               I Used It here cuz there was not too much to
'               show then. Afther some months I feel like I
'               could make the final Version, So Here I am.
'               I hope you like It And If you find It useful
'               please vote, leave comments and suggestions,
'               Everything Is wellcome.
'               Best Regards.
'
' Started on:   6-6-2004
'
' 2004-12-6
' Added Soft, Flat, java and Office XP Style
'
' 2004-18-6
' Added Windows XP style
'
' 2004-20-6
' Enhanced Office XP Style
'
' 2004-2-7
' Code Clean Up. Removed Timer, Now Uses the
' Paul Caton's self subclaser
'
' 2004-3-7
' Added Windows Themed Style
'
' 2004-4-7
' Added Galaxy style
'
' 2004-7-7
' Added Enabled/ShowFocus and Custom Colors
'
' 2004-8-7
' Added Plastik Style
'
' 2004-14-7
' Added Keramik Style
'
' 2004-15-7
' Added Multyple styles for Tooltips!
'
' 2004-19-7
' Added Custom WinXP Colors, Disabled State
' for the WinXP style(Normal and custom colors)
'
' 2004-20-7
' Added Mac OSX Style
'
' 2004-24-7
' Keramik Rewritten from scratch
'
' 2004-3-9
' Afther some weeks of inactivity added disabled state for
' plastik and keramik styles
'
' 2004-6-9
' Added a nice About box without a extra form!
' Also some corrections to the MAc OSX Style, But still
' needs more work.
'
' 2004-7-9
' PSC downloads are down. The post was deleted when I tried
' to update. I'm trying to make some improvements to the
' MAc OSX Style, but Nothing too important. just a bugfix
' with the disabled state.
'
' 2004-8-9
' Added font property, also tooltips info is not reseted
' each run. Thanks to the comments of the PSC users I have
' lot of things to improve!
'
' 2004-10-9
' OK, Lot, I mean LOT of suggestions, I would love to be at
' school when I had enought time to code (And I was young
' and was able to sleep one or two hours per day=( )
'
' 2004-12-9
' added font and small offsets for each button style. Also
' Enum names are fixed.
'
' 2004-15-9
' Version 3.0 The last one. added CheckBox Type and value
' property. maybe some Other smal fixes will be made
' soon...maybe.
' Have fun
'
' the code starts Here!

Option Explicit

'*************************************************************
'
'   Control Version:
'
Private Const strCurrentVersion = "3.0"
'**************************************


'*************************************************************
'
'   Private Constants
'
'**************************************
'Auxiliar Constants
Private Const COLOR_ACTIVEBORDER        As Long = 10
Private Const COLOR_ACTIVECAPTION       As Long = 2
Private Const COLOR_ADJ_MAX             As Long = 100
Private Const COLOR_ADJ_MIN             As Long = -100
Private Const COLOR_APPWORKSPACE        As Long = 12
Private Const COLOR_BACKGROUND          As Long = 1
Private Const COLOR_BTNFACE             As Long = 15
Private Const COLOR_BTNHIGHLIGHT        As Long = 20
Private Const COLOR_BTNSHADOW           As Long = 16
Private Const COLOR_BTNTEXT             As Long = 18
Private Const COLOR_CAPTIONTEXT         As Long = 9
Private Const COLOR_GRAYTEXT            As Long = 17
Private Const COLOR_HIGHLIGHT           As Long = 13
Private Const COLOR_HIGHLIGHTTEXT       As Long = 14
Private Const COLOR_INACTIVEBORDER      As Long = 11
Private Const COLOR_INACTIVECAPTION     As Long = 3
Private Const COLOR_INACTIVECAPTIONTEXT As Long = 19
Private Const COLOR_MENU                As Long = 4
Private Const COLOR_MENUTEXT            As Long = 7
Private Const COLOR_SCROLLBAR           As Long = 0
Private Const COLOR_WINDOW              As Long = 5
Private Const COLOR_WINDOWFRAME         As Long = 6
Private Const COLOR_WINDOWTEXT          As Long = 8
Private Const COLOR_INFOTEXT            As Long = 23
Private Const COLOR_INFOBK              As Long = 24

'Gradient Constants
Private Const GRADIENT_FILL_RECT_H      As Long = &H0
Private Const GRADIENT_FILL_RECT_V      As Long = &H1
Private Const GRADIENT_FILL_TRIANGLE    As Long = &H2
Private Const GRADIENT_FILL_OP_FLAG     As Long = &HFF

'  flags for DrawFrameControl
Private Const DFC_CAPTION               As Long = 1         'Title bar
Private Const DFC_MENU                  As Long = 2         'Menu
Private Const DFC_SCROLL                As Long = 3         'Scroll bar
Private Const DFC_BUTTON                As Long = 4         'Standard button
Private Const DFCS_CAPTIONCLOSE         As Long = &H0       'Close button
Private Const DFCS_CAPTIONMIN           As Long = &H1       'Minimize button
Private Const DFCS_CAPTIONMAX           As Long = &H2       'Maximize button
Private Const DFCS_CAPTIONRESTORE       As Long = &H3       'Restore button
Private Const DFCS_CAPTIONHELP          As Long = &H4       'Windows 95 only: Help button
Private Const DFCS_MENUARROW            As Long = &H0       'Submenu arrow
Private Const DFCS_MENUCHECK            As Long = &H1       'Check mark
Private Const DFCS_MENUBULLET           As Long = &H2       'Bullet
Private Const DFCS_MENUARROWRIGHT       As Long = &H4
Private Const DFCS_SCROLLUP             As Long = &H0       'Up arrow of scroll bar
Private Const DFCS_SCROLLDOWN           As Long = &H1       'Down arrow of scroll bar
Private Const DFCS_SCROLLLEFT           As Long = &H2       'Left arrow of scroll bar
Private Const DFCS_SCROLLRIGHT          As Long = &H3       'Right arrow of scroll bar
Private Const DFCS_SCROLLCOMBOBOX       As Long = &H5       'Combo box scroll bar
Private Const DFCS_SCROLLSIZEGRIP       As Long = &H8       'Size grip
Private Const DFCS_SCROLLSIZEGRIPRIGHT  As Long = &H10      'Size grip in bottom-right corner of window
Private Const DFCS_BUTTONCHECK          As Long = &H0       'Check box
Private Const DFCS_BUTTONRADIO          As Long = &H4       'Radio button
Private Const DFCS_BUTTON3STATE         As Long = &H8       'Three-state button
Private Const DFCS_BUTTONPUSH           As Long = &H10      'Push button
Private Const DFCS_INACTIVE             As Long = &H100     'Button is inactive (grayed)
Private Const DFCS_PUSHED               As Long = &H200     'Button is pushed
Private Const DFCS_CHECKED              As Long = &H400     'Button is checked
Private Const DFCS_ADJUSTRECT           As Long = &H2000    'Bounding rectangle is adjusted to exclude the surrounding edge of the push button
Private Const DFCS_FLAT                 As Long = &H4000    'Button has a flat border
Private Const DFCS_MONO                 As Long = &H8000    'Button has a monochrome border


Private Const BDR_RAISEDOUTER           As Long = &H1
Private Const BDR_SUNKENOUTER           As Long = &H2
Private Const BDR_RAISEDINNER           As Long = &H4
Private Const BDR_SUNKENINNER           As Long = &H8
Private Const BDR_OUTER                 As Long = &H3
Private Const BDR_INNER                 As Long = &HC
Private Const BDR_RAISED                As Long = &H5
Private Const BDR_SUNKEN                As Long = &HA

Private Const EDGE_RAISED = (BDR_RAISEDOUTER Or BDR_RAISEDINNER)