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

2024年11月23日 00:13
有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'