UC知道怎么用VB Timer 控件使字体间隔一定时间呈现
来源：百度知道 编辑：UC知道 时间：2024/07/04 01:08:20
Private Sub Timer1_Timer()
Dim font(3) As String, tmp As String, n As Integer
font(0) = "宋体"
font(1) = "仿宋_GB2312"
font(2) = "黑体"
font(3) = "新宋体"
tmp = Timer1.Tag
If tmp = "" Then tmp = 0
If CInt(tmp) + 1 > 3 Then n = 0 Else n = tmp + 1
Timer1.Tag = n
Text1.font.Name = font(n)
End Sub
如果满意我的回答,请采纳.谢谢
<HTML>
<SCRIPT LANGUAGE="vbScript">
<!--
Dim a,i
a = "asdfasdfasrtgregsdfhgfnhorst"
i = 1
Function dis
Document.getElementById("text").innerText = Document.getElementById("text").innerText & Mid(a,i,1)
i = i + 1
If i<=Len(a) then
settimeout "dis",100
End if
End function
-->
</SCRIPT>
<BODY onload="dis">
<div id="text"></div>
</BODY>
</HTML>