yfcommand.ctl

这是好东西南的,大家快来看看呀,对于有C语言编程的的有好大的帮助

VERSION 5.00
Begin VB.UserControl YFCommand 
   BackStyle       =   0  '透明
   ClientHeight    =   630
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   1395
   ScaleHeight     =   630
   ScaleWidth      =   1395
   ToolboxBitmap   =   "YFCommand.ctx":0000
   Begin VB.Image Image1 
      Height          =   405
      Left            =   0
      Picture         =   "YFCommand.ctx":0312
      Stretch         =   -1  'True
      Top             =   0
      Width           =   1035
   End
End
Attribute VB_Name = "YFCommand"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'*************************************************************************
'**模 块 名：YFCommand
'**说    明：YFsoft YFsoft 叶帆Blog:http://blog.csdn.net/yefanqiu/
'**创 建 人：叶帆
'**日    期：2004-12-14 09:35:06
'**修 改 人：
'**日    期：
'**描    述：Command 控件
'**版    本：V1.0.0
'*************************************************************************
Event Click()
Dim m_imgUP As Picture
Dim m_imgMove As Picture
Dim m_imgDown As Picture

Private Sub Image1_Click()
  RaiseEvent Click
End Sub

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
     Image1.Picture = m_imgDown
   
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
     Image1.Picture = m_imgMove
  
End Sub

Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  
     Image1.Picture = m_imgUP
 
End Sub

Private Sub UserControl_Resize()
 Image1.Left = 0
 Image1.Top = 0
 Image1.Width = UserControl.Width
 Image1.Height = UserControl.Height
 Set m_imgUP = Nothing
 Set m_imgDown = Nothing
 Set m_imgMove = Nothing
End Sub

'从PropertyBag中读属性值
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
   '--------------------------------------------------------------
   '取数据
   Set m_imgUP = PropBag.ReadProperty("ImgUP", Nothing)
   Set m_imgDown = PropBag.ReadProperty("ImgDown", Nothing)
   Set m_imgMove = PropBag.ReadProperty("ImgMove", Nothing)
   Image1.Picture = m_imgUP
   
End Sub

'把属性值保存在PropertyBag中
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
   '----------------------------------------------------------------
   '存属性值
   PropBag.WriteProperty "ImgUP", m_imgUP, Nothing
   PropBag.WriteProperty "ImgDown", m_imgDown, Nothing
   PropBag.WriteProperty "ImgMove", m_imgMove, Nothing
End Sub

Public Property Get ImgUP() As Picture
  Set ImgUP = m_imgUP
End Property
Public Property Let ImgUP(ByVal vNewValue As Picture)
  Set m_imgUP = vNewValue
  Image1.Picture = m_imgUP
  PropertyChanged "ImgUP"
End Property
Public Property Get ImgDown() As Picture
   Set ImgDown = m_imgDown
End Property

Public Property Let ImgDown(ByVal vNewValue As Picture)
  Set m_imgDown = vNewValue
  PropertyChanged "ImgDown"
End Property

Public Property Get ImgMove() As Picture
   Set ImgMove = m_imgMove
End Property
Public Property Let ImgMove(ByVal vNewValue As Picture)
  Set m_imgMove = vNewValue
  PropertyChanged "ImgMove"
End Property