UserControl1练习

最新推荐文章于 2022-11-25 18:16:16 发布

Hustudent20080101

最新推荐文章于 2022-11-25 18:16:16 发布

阅读量610

点赞数

分类专栏： vb

本文链接：https://blog.csdn.net/autumn20080101/article/details/8276738

版权

vb 专栏收录该内容

32 篇文章 0 订阅

订阅专栏

'缺省属性值:
Const m_def_TimeFormat = "hh-mm-ss"
'属性变量:
Dim m_TimeFormat As String


'注意！不要删除或修改下列被注释的行！
'MappingInfo=Timer1,Timer1,-1,Interval
Public Property Get Interval() As Long
    Interval = Timer1.Interval
End Property

Public Property Let Interval(ByVal New_Interval As Long)
    Timer1.Interval() = New_Interval
    PropertyChanged "Interval"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=13,0,0,hh-mm-ss
Public Property Get TimeFormat() As String
    TimeFormat = m_TimeFormat
End Property

Public Property Let TimeFormat(ByVal New_TimeFormat As String)
    m_TimeFormat = New_TimeFormat
    PropertyChanged "TimeFormat"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=13
Public Function GetTime() As String
    GetTime = Time
End Function

Private Sub Timer1_Timer()
 If Me.TimeFormat <> "" Then
 Label1.Caption = Format(Time, Me.TimeFormat)
 Else
 Label1.Caption = Time
 End If

End Sub

'为用户控件初始化属性
Private Sub UserControl_InitProperties()
    m_TimeFormat = m_def_TimeFormat
End Sub

'从存贮器中加载属性值
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

    Timer1.Interval = PropBag.ReadProperty("Interval", 0)
    m_TimeFormat = PropBag.ReadProperty("TimeFormat", m_def_TimeFormat)
End Sub

'将属性值写到存储器
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)

    Call PropBag.WriteProperty("Interval", Timer1.Interval, 0)
    Call PropBag.WriteProperty("TimeFormat", m_TimeFormat, m_def_TimeFormat)
End Sub