tmcmdbutton.ctl

vb做的看图系统

VERSION 5.00
Object = "{27395F88-0C0C-101B-A3C9-08002B2F49FB}#1.1#0"; "PICCLP32.OCX"
Begin VB.UserControl TMcmdbutton 
   Appearance      =   0  'Flat
   AutoRedraw      =   -1  'True
   BackColor       =   &H80000005&
   ClientHeight    =   255
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   750
   DefaultCancel   =   -1  'True
   FillStyle       =   0  'Solid
   ScaleHeight     =   17
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   50
   ToolboxBitmap   =   "TmCmdbutton.ctx":0000
   Begin VB.PictureBox PicButton 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   315
      Index           =   5
      Left            =   3600
      Picture         =   "TmCmdbutton.ctx":0312
      ScaleHeight     =   315
      ScaleWidth      =   1350
      TabIndex        =   5
      Top             =   1080
      Width           =   1350
   End
   Begin VB.PictureBox PicButton 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   315
      Index           =   4
      Left            =   3480
      Picture         =   "TmCmdbutton.ctx":2DF8
      ScaleHeight     =   315
      ScaleWidth      =   1350
      TabIndex        =   4
      Top             =   840
      Width           =   1350
   End
   Begin VB.PictureBox PicButton 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   315
      Index           =   0
      Left            =   3360
      Picture         =   "TmCmdbutton.ctx":5959
      ScaleHeight     =   315
      ScaleWidth      =   1350
      TabIndex        =   3
      Top             =   480
      Width           =   1350
   End
   Begin VB.PictureBox PicButton 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   315
      Index           =   1
      Left            =   2760
      Picture         =   "TmCmdbutton.ctx":6527
      ScaleHeight     =   315
      ScaleWidth      =   1350
      TabIndex        =   2
      Top             =   2.45745e5
      Width           =   1350
   End
   Begin VB.PictureBox PicButton 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   315
      Index           =   3
      Left            =   3465
      Picture         =   "TmCmdbutton.ctx":6F59
      ScaleHeight     =   315
      ScaleWidth      =   1350
      TabIndex        =   1
      Top             =   90
      Width           =   1350
   End
   Begin VB.PictureBox PicButton 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   600
      Index           =   2
      Left            =   2880
      Picture         =   "TmCmdbutton.ctx":A656
      ScaleHeight     =   600
      ScaleWidth      =   6000
      TabIndex        =   0
      Top             =   2.45745e5
      Width           =   6000
   End
   Begin PicClip.PictureClip pc5 
      Left            =   3120
      Top             =   2.45745e5
      _ExtentX        =   2381
      _ExtentY        =   556
      _Version        =   393216
      Cols            =   5
      Picture         =   "TmCmdbutton.ctx":FE18
   End
   Begin PicClip.PictureClip pc 
      Left            =   0
      Top             =   -1.50000e5
      _ExtentX        =   10583
      _ExtentY        =   1058
      _Version        =   393216
      Cols            =   5
      Picture         =   "TmCmdbutton.ctx":109F6
   End
   Begin PicClip.PictureClip pc2 
      Left            =   1680
      Top             =   2.45745e5
      _ExtentX        =   10583
      _ExtentY        =   1058
      _Version        =   393216
      Cols            =   5
      Picture         =   "TmCmdbutton.ctx":1C5C8
   End
End
Attribute VB_Name = "TMcmdbutton"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：2007/10/12
'描    述：极速数码照片查看播放工具 Ver 2.02
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************

Option Explicit
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Private Type POINT_API
    x As Long
    y As Long
End Type
Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hDC As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long
Private Declare Function DrawEdge Lib "user32" (ByVal hDC As Long, qrc As RECT, ByVal edge As Long, ByVal grfFlags As Long) As Long
Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Const BDR_INNER = &HC
Private Const BDR_OUTER = &H3
Private Const BDR_RAISED = &H5
Private Const BDR_RAISEDINNER = &H4
Private Const BDR_RAISEDOUTER = &H1
Private Const BDR_SUNKEN = &HA
Private Const BDR_SUNKENINNER = &H8
Private Const BDR_SUNKENOUTER = &H2
Private Const BF_LEFT = &H1
Private Const BF_RIGHT = &H4
Private Const BF_TOP = &H2
Private Const BF_BOTTOM = &H8
Private Const BF_RECT = (BF_LEFT Or BF_TOP Or BF_RIGHT Or BF_BOTTOM)
Const DT_CENTER = &H1
Const DT_SINGLELINE = &H20
Const DT_VCENTER = &H4
Public Enum ButtonStyle
    Xp_Normal = 0
    Xp_Metallic = 1
    CrystalRed = 2
    Xp_Met_Green = 3
    Gold = 4
    Apple = 5
    Custom = 6
End Enum
Dim m_Font As Font
Dim m_ForeColor As OLE_COLOR
Dim m_XpButton As ButtonStyle
Private m_txtRect  As RECT
Dim m_Picture As Picture
Dim m_PictureOriginal As Picture
Private m_sCaption  As String
Event Click()
Attribute Click.VB_UserMemId = -600
Event KeyDown(KeyCode As Integer, Shift As Integer)
Attribute KeyDown.VB_UserMemId = -602
Event KeyPress(KeyAscii As Integer)