VB怎么实现单击一个键后自己显示文字？

Question

问题一：比如：点击确定键后自动显示文字，而且设定时间显示、比如隔三秒显示。（请说下代码，谢谢） 问题二：ico怎么无效了？我用的是6.0版本…上传ico老是无效。 问题三：保存什么文件，下次可以继续编辑了？ 谢谢了，帮帮忙啊…

Answer 1

一、在窗体上添加一个按钮和一个定时器控件
Dim a(1 To 3)
Dim s As Integer

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
a(1) = "你": a(2) = "好": a(3) = "吗"
Timer1.Interval = 3000 '三秒
s = 1
End Sub

Private Sub Timer1_Timer()
Cls
Print a(s)
s = s + 1: If s > 3 Then s = 1
End Sub

二、在“工程－工程属性”中的“生成”选项卡中选择图标文件。如果还不行，说明你的图标文件不标准。

三、按“文件－保存工作”，取个名字，确定。即可保存，下次可以编辑。