textanimation.ctl

vb编程的一个文本动画程序 可以实现动画文字

Attribute Enabled.VB_ProcData.VB_Invoke_Property = "General"
    Enabled = m_Enabled
End Property
Public Property Let Enabled(ByVal New_Enabled As Boolean)
    m_Enabled = New_Enabled
    PropertyChanged "Enabled"
    ReDrawTimer = m_Enabled
End Property


' .Speed
Public Property Get Speed() As Long
Attribute Speed.VB_ProcData.VB_Invoke_Property = "General"
    Speed = m_Speed
End Property
Public Property Let Speed(ByVal New_Speed As Long)
    m_Speed = New_Speed
    PropertyChanged "Speed"
    ReDrawTimer.Interval = m_Speed
End Property


' .MessageCount
Public Property Get MessageCount() As Long
On Error Resume Next
    MessageCount = UBound(m_messages)
    If Err.Number <> 0 Then MessageCount = -1
End Property


' .MessageIndex(MessageID)
Public Property Get MessageIndex(ByVal MessageID As Variant) As Integer
Dim iM As Integer
Dim iIndex As Integer
    
    iIndex = -1
    If (IsNumeric(MessageID)) Then
        iIndex = CInt(MessageID)
    Else
        If MessageCount > 0 Then
           For iM = 0 To MessageCount
              If (m_messages(iM).MessageID = MessageID) Then
                  iIndex = iM
                  Exit For
              End If
           Next iM
        Else
           MessageIndex = -1
        End If
    End If
    If (iIndex > -1) And (iIndex <= MessageCount) Then
        MessageIndex = iIndex
    Else
        MessageIndex = -1
    End If
    
End Property


' .MessageID(MessageIndex)
Public Property Get MessageID(ByVal iMessage As Long) As String
   If (iMessage > -1) And (iMessage <= MessageCount) Then
      MessageID = m_messages(iMessage).MessageID
   End If
End Property


' .MessageWidth(MessageID)
Public Property Get MessageWidth(ByVal MessageID As Variant) As Integer
Dim j As Integer
Dim w As Integer

    j = MessageIndex(MessageID)
    If j < 0 Then
      MessageWidth = 0
    Else
      picBuffer.FontName = m_messages(j).MessageFontName
      w = (m_messages(j).MessageFontSizeStart - (m_messages(j).MessageFontSizeStart - m_messages(j).MessageFontSizeEnd) * (m_counter - m_messages(j).MessageIntervalStart) / m_messages(j).MessageIntervalCount) - 2
      If w < 1 Then w = 1
      picBuffer.FontSize = w
      MessageWidth = picBuffer.TextWidth(m_messages(j).MessageText)
    End If
    
End Property

' .MessageHeight(MessageID)
Public Property Get MessageHeight(ByVal MessageID As Variant) As Integer
Dim j As Integer
    
    j = MessageIndex(MessageID)
    picBuffer.FontName = m_messages(j).MessageFontName
    picBuffer.FontSize = (m_messages(j).MessageFontSizeStart - (m_messages(j).MessageFontSizeStart - m_messages(j).MessageFontSizeEnd) * (m_counter - m_messages(j).MessageIntervalStart) / m_messages(j).MessageIntervalCount)
    MessageHeight = picBuffer.TextHeight(m_messages(j).MessageText)
    
End Property


' .MessageText (MessageID)
Public Property Get MessageText(ByVal MessageID As Variant) As String
Dim j As Integer
    j = MessageIndex(MessageID)
    MessageText = m_messages(j).MessageText
End Property
Public Property Let MessageText(ByVal MessageID As Variant, ByVal New_MessageText As String)
Dim j As Integer
    j = MessageIndex(MessageID)
    m_messages(j).MessageText = New_MessageText
End Property


' .MessageFontName (MessageID)
Public Property Get MessageFontName(ByVal MessageID As Variant) As String
Dim j As Integer
    j = MessageIndex(MessageID)
    MessageFontName = m_messages(j).MessageFontName
End Property
Public Property Let MessageFontName(ByVal MessageID As Variant, ByVal New_MessageFontName As String)
Dim j As Integer
    j = MessageIndex(MessageID)
    m_messages(j).MessageFontName = New_MessageFontName
End Property


' .MessageFontColorStart (MessageID)
Public Property Get MessageFontColorStart(ByVal MessageID As Variant) As OLE_COLOR
Dim j As Integer
    j = MessageIndex(MessageID)
    MessageFontColorStart = m_messages(j).MessageFontColorStart
End Property
Public Property Let MessageFontColorStart(ByVal MessageID As Variant, ByVal New_MessageFontColorStart As OLE_COLOR)
Dim j As Integer
    j = MessageIndex(MessageID)
    m_messages(j).MessageFontColorStart = New_MessageFontColorStart
End Property


' .MessageFontColorEnd (MessageID)
Public Property Get MessageFontColorEnd(ByVal MessageID As Variant) As OLE_COLOR
Dim j As Integer
    j = MessageIndex(MessageID)
    MessageFontColorEnd = m_messages(j).MessageFontColorEnd
End Property
Public Property Let MessageFontColorEnd(ByVal MessageID As Variant, ByVal New_MessageFontColorEnd As OLE_COLOR)
Dim j As Integer
    j = MessageIndex(MessageID)
    m_messages(j).MessageFontColorEnd = New_MessageFontColorEnd
End Property


' .MessageFontSizeStart (MessageID)
Public Property Get MessageFontSizeStart(ByVal MessageID As Variant) As Integer
Dim j As Integer
    j = MessageIndex(MessageID)
    MessageFontSizeStart = m_messages(j).MessageFontSizeStart
End Property
Public Property Let MessageFontSizeStart(ByVal MessageID As Variant, ByVal New_MessageFontSizeStart As Integer)
Dim j As Integer
    j = MessageIndex(MessageID)
    m_messages(j).MessageFontSizeStart = New_MessageFontSizeStart
End Property


' .MessageFontSizeEnd (MessageID)
Public Property Get MessageFontSizeEnd(ByVal MessageID As Variant) As Integer
Dim j As Integer
    j = MessageIndex(MessageID)
    MessageFontSizeEnd = m_messages(j).MessageFontSizeEnd
End Property
Public Property Let MessageFontSizeEnd(ByVal MessageID As Variant, ByVal New_MessageFontSizeEnd As Integer)
Dim j As Integer
    j = MessageIndex(MessageID)
    m_messages(j).MessageFontSizeEnd = New_MessageFontSizeEnd
End Property


' .MessageLeftStart (MessageID)
Public Property Get MessageLeftStart(ByVal MessageID As Variant) As Integer
Dim j As Integer
    j = MessageIndex(MessageID)
    MessageLeftStart = m_messages(j).MessageLeftStart
End Property
Public Property Let MessageLeftStart(ByVal MessageID As Variant, ByVal New_MessageLeftStart As Integer)
Dim j As Integer
    j = MessageIndex(MessageID)
    m_messages(j).MessageLeftStart = New_MessageLeftStart
End Property


' .MessageLeftEnd (MessageID)
Public Property Get MessageLeftEnd(ByVal MessageID As Variant) As Integer
Dim j As Integer
    j = MessageIndex(MessageID)
    MessageLeftEnd = m_messages(j).MessageLeftEnd
End Property
Public Property Let MessageLeftEnd(ByVal MessageID As Variant, ByVal New_MessageLeftEnd As Integer)
Dim j As Integer
    j = MessageIndex(MessageID)
    m_messages(j).MessageLeftEnd = New_MessageLeftEnd
End Property


' .MessageTopStart (MessageID)
Public Property Get MessageTopStart(ByVal MessageID As Variant) As Integer
Dim j As Integer
    j = MessageIndex(MessageID)
    MessageTopStart = m_messages(j).MessageTopStart
End Property
Public Property Let MessageTopStart(ByVal MessageID As Variant, ByVal New_MessageTopStart As Integer)
Dim j As Integer
    j = MessageIndex(MessageID)
    m_messages(j).MessageTopStart = New_MessageTopStart
End Property


' .MessageTopEnd (MessageID)
Public Property Get MessageTopEnd(ByVal MessageID As Variant) As Integer
Dim j As Integer
    j = MessageIndex(MessageID)
    MessageTopEnd = m_messages(j).MessageTopEnd
End Property
Public Property Let MessageTopEnd(ByVal MessageID As Variant, ByVal New_MessageTopEnd As Integer)
Dim j As Integer
    j = MessageIndex(MessageID)
    m_messages(j).MessageTopEnd = New_MessageTopEnd
End Property


' .MessageFontRotationStart (MessageID)
Public Property Get MessageFontRotationStart(ByVal MessageID As Variant) As Integer
Dim j As Integer
    j = MessageIndex(MessageID)
    MessageFontRotationStart = m_messages(j).MessageFontRotationStart
End Property
Public Property Let MessageFontRotationStart(ByVal MessageID As Variant, ByVal New_MessageFontRotationStart As Integer)
Dim j As Integer
    j = MessageIndex(MessageID)
    m_messages(j).MessageFontRotationStart = New_MessageFontRotationStart
End Property


' .MessageFontRotationEnd (MessageID)
Public Property Get MessageFontRotationEnd(ByVal MessageID As Variant) As Integer
Dim j As Integer
    j = MessageIndex(MessageID)
    MessageFontRotationEnd = m_messages(j).MessageFontRotationEnd
End Property
Public Property Let MessageFontRotationEnd(ByVal MessageID As Variant, ByVal New_MessageFontRotationEnd As Integer)
Dim j As Integer
    j = MessageIndex(MessageID)
    m_messages(j).MessageFontRotationEnd = New_MessageFontRotationEnd
End Property


' .MessageIntervalStart (MessageID)
Public Property Get MessageIntervalStart(ByVal MessageID As Variant) As Long
Dim j As Integer
    j = MessageIndex(MessageID)
    MessageIntervalStart = m_messages(j).MessageIntervalStart
End Property
Public Property Let MessageIntervalStart(ByVal MessageID As Variant, ByVal New_MessageIntervalStart As Long)
Dim j As Integer
    j = MessageIndex(MessageID)
    m_messages(j).MessageIntervalStart = New_MessageIntervalStart
End Property


' .MessageIntervalCount (MessageID)
Public Property Get MessageIntervalCount(ByVal MessageID As Variant) As Long
Dim j As Integer
    j = MessageIndex(MessageID)
    MessageIntervalCount = m_messages(j).MessageIntervalCount
End Property
Public Property Let MessageIntervalCount(ByVal MessageID As Variant, ByVal New_MessageIntervalCount As Long)
Dim j As Integer
    j = MessageIndex(MessageID)
    m_messages(j).MessageIntervalCount = New_MessageIntervalCount
End Property