yfframe.ctl

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

VERSION 5.00
Begin VB.UserControl YFFrame 
   BackColor       =   &H00FCBD6C&
   ClientHeight    =   2850
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   3480
   ControlContainer=   -1  'True
   ScaleHeight     =   2850
   ScaleWidth      =   3480
   ToolboxBitmap   =   "YFFrame.ctx":0000
   Begin VB.Shape Shape2 
      BorderColor     =   &H00FFC0C0&
      FillColor       =   &H00FF8080&
      Height          =   2775
      Left            =   30
      Top             =   30
      Width           =   3345
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00FF8080&
      FillColor       =   &H00FFC0C0&
      Height          =   2805
      Left            =   30
      Top             =   30
      Width           =   3435
   End
End
Attribute VB_Name = "YFFrame"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'*************************************************************************
'**模 块 名：YFFrame
'**说    明：YFsoft 叶帆Blog:http://blog.csdn.net/yefanqiu/
'**创 建 人：叶帆
'**日    期：2004-12-14 09:40:51
'**修 改 人：
'**日    期：
'**描    述：Frame 控件
'**版    本：V1.0.0
'*************************************************************************
Option Explicit
Dim m_BackStyle As Integer
Event MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Event MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Event MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Event KeyPress(KeyAscii As Integer)
Event KeyDown(KeyCode As Integer, Shift As Integer)
Event KeyUp(KeyCode As Integer, Shift As Integer)
Event Click()


Private Sub UserControl_Initialize()
  UserControl.BackStyle = m_BackStyle
End Sub

Private Sub UserControl_InitProperties()
 m_BackStyle = 1
End Sub

Private Sub UserControl_Resize()
  Shape1.Left = 0
  Shape1.Top = 0
  Shape1.Width = UserControl.Width - 10
  Shape1.Height = UserControl.Height - 10
  
  Shape2.Left = 10
  Shape2.Top = 10
  Shape2.Width = UserControl.Width - 10
  Shape2.Height = UserControl.Height - 10
End Sub
'从PropertyBag中读属性值
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
   '--------------------------------------------------------------
   '取数据
       m_BackStyle = PropBag.ReadProperty("BackStyle", 1)
       UserControl.BackStyle = m_BackStyle
End Sub
'把属性值保存在PropertyBag中
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
   '----------------------------------------------------------------
   '存属性值
   PropBag.WriteProperty "BackStyle", m_BackStyle, 1
End Sub
Public Property Get BackStyle() As Integer
  BackStyle = m_BackStyle
End Property

Public Property Let BackStyle(ByVal vNewValue As Integer)
   m_BackStyle = vNewValue
   UserControl.BackStyle = m_BackStyle
   PropertyChanged "BackStyle"
End Property


Private Sub UserControl_Click()
  RaiseEvent Click
End Sub

Private Sub UserControl_KeyDown(KeyCode As Integer, Shift As Integer)
  RaiseEvent KeyDown(KeyCode, Shift)
End Sub

Private Sub UserControl_KeyPress(KeyAscii As Integer)
 RaiseEvent KeyPress(KeyAscii)
End Sub

Private Sub UserControl_KeyUp(KeyCode As Integer, Shift As Integer)
 RaiseEvent KeyUp(KeyCode, Shift)
End Sub

Private Sub UserControl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   RaiseEvent MouseDown(Button, Shift, X, Y)
 End Sub

Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 RaiseEvent MouseMove(Button, Shift, X, Y)
End Sub

Private Sub UserControl_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
 RaiseEvent MouseUp(Button, Shift, X, Y)
End Sub