[转载] 用文本框实现打字效果

最美我中文

My Cat Has Gone.

最美我中文训练师头像 VIP

管理员

Level 3 Level 3 Level 3 Level 2 Level 2 Level 1

目前的守墓人

帖子: 10688
精华: 19
积分: 7817
PT币: 149444 枚
热度: 899 °C
贡献值: 34 点

发送到消息盒子

其实我是狼 Lv.91

[查看其他宠物]

发短消息

楼主大中小发表于 2007-8-19 18:47 只看该作者

用文本框实现打字效果

--------------------------------------------------------------------------------
作者：梦幻的羽　来源于：中国VB网　发布时间：2004-11-4
Option Explicit

Private Sub Command1_Click()
If Text1.Width < 3000 Then Text1.Width = 3000
Timer1.Enabled = True
Text1.Text = ""
Text1.SetFocus
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 250
End Sub

Private Sub Timer1_Timer()
Static i As Integer
Dim Str1 As String, Str2 As String, Str3 As String, Str4 As String
Dim Len1 As Integer, Len2 As Integer, Len3 As Integer
Str1 = "中国VB网"
Str2 = "E-Mail:chinavb@chinavb.net"
Str3 = "Http://www.chinaVB.net"
Len1 = Len(StrConv(Str1, vbFromUnicode))
Len2 = Len(Str2)
Len3 = Len(Str3)

With Text1
.FontSize = 12
.FontName = "黑体"
.ForeColor = RGB(0, 255, 0)
.BackColor = RGB(0, 0, 0)
End With

Str4 = Mid$(Str1 + Str2 + Str3, i + 1, 1)
SendKeys Str4 '将Str4以键盘输入的形式输出'
i = i + 1
'以下内容和Str1,Str2,Str3字符串的长度有关，不一样的长度，Len + 的值是不一样的'
If i = Len1 + 2 Then '在这里改正一下原作者的失误，原程序输出内容时不太完整。'
Text1.Text = ""
ElseIf i = Len1 + Len2 + 2 Then
Text1.Text = ""
ElseIf i = Len1 + Len2 + Len3 + 2 Then
i = 0
Text1.Text = ""
End If
'其实在这里程序是一个无限循环，不断的重复输出内容'
End Sub

谁不怀念苏联,谁就没有良心;谁想回到苏联,谁就没有头脑.

Woodu.ME--从零开始的博客生活

TOP

«« 上一主题 | 下一主题 »» | 推荐给朋友