VB 在VB中,怎么实现点击按钮后自己打出这段话"hello world"(是打出来,不是显示哦)

2024-11-23 00:13:44
推荐回答(4个)
回答1:

'我想到一个办法

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
'然后添加如上代码

回答2:

当然可以。有前提:
1、安装有默认打印机;
2、默认打印机已经连接,并开机。
示例代码如下:
Private Sub Command1_Click()
Printer.Print "hello world"
End Sub

回答3:

for i =1 to Len("hello world")
xxx.text += Mid("hello world",i,1)
Sleep 1000
Next i

多年不用VB , 不知道写对了没有。
你看一下有没有达到你的效果。
意思就是 text框里,把hello world 的字母一个一个输出,要有视频感觉到的停留

回答4:

print 'hello world'