marquee.cls

一套经典的asp教程 本人受益颇多 特推荐之 直接解压无密码

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Marquee"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Public Function StatusBarMarquee(ByVal mType As Integer, ByVal msg As String, ByVal Interval As Integer) As String
    If mType > 4 Or mType < 1 Then
        StatusBarMarquee = "<FONT Color=Red>参数设定错误!</FONT>"
        Exit Function
    End If
    
    StatusBarMarquee = StrConv(LoadResData("Status" & mType, "TextFile"), vbUnicode)
    StatusBarMarquee = Replace(StatusBarMarquee, "@msg", msg)
    StatusBarMarquee = Replace(StatusBarMarquee, "@interval", Interval)
End Function

Public Function FormTextMarquee(ByVal mType As Integer, ByVal msg As String, ByVal Interval As Integer, Optional ByVal f As String = "kjMarqueeForm", Optional ByVal txt As String = "kjMarqueeText") As String
    Dim Size As Integer
    If mType > 4 Or mType < 1 Then
        FormTextMarquee = "<FONT Color=Red>参数设定错误!</FONT>"
        Exit Function
    End If
    
    FormTextMarquee = StrConv(LoadResData("Text" & mType, "TextFile"), vbUnicode)
    FormTextMarquee = Replace(FormTextMarquee, "@msg", msg)
    FormTextMarquee = Replace(FormTextMarquee, "@interval", Interval)
    FormTextMarquee = Replace(FormTextMarquee, "@Form", f)
    FormTextMarquee = Replace(FormTextMarquee, "@Text", txt)
    
    Size = Len(msg) * 2
    FormTextMarquee = Replace(FormTextMarquee, "@Size", Size)
End Function