'我想到一个办法
Dim i, l As Long
Private Const s = "Hello world!"
Private Sub Command1_Click()
i = 1
Text1.Text=""
Timer1.Interval = 500
End Sub
Private Sub Form_Load()
Text1.Text=""
l = Len(s)
End Sub
Private Sub Timer1_Timer()
Text1.Text = Text1.Text + Mid(s, i, 1)
i = i + 1
If i > l Then Timer1.Interval = 0
End Sub
'在主窗口上放置三个控件Command,Text,Timer
'然后添加如上代码
当然可以。有前提:
1、安装有默认打印机;
2、默认打印机已经连接,并开机。
示例代码如下:
Private Sub Command1_Click()
Printer.Print "hello world"
End Sub
for i =1 to Len("hello world")
xxx.text += Mid("hello world",i,1)
Sleep 1000
Next i
多年不用VB , 不知道写对了没有。
你看一下有没有达到你的效果。
意思就是 text框里,把hello world 的字母一个一个输出,要有视频感觉到的停留
print 'hello world'