关于VB编程的问题

怎么实现 打字效果啊！ 就是动态的 隔一会显示一个字 那个应该用什么编写啊！ 用FOR 语句 还是要用那个 TIME控件啊！ 那个高手会 讲一下啊！

贴个简单的代码

Dim a As String, i As Integer

Private Sub Form_Load()
Timer1.Interval = 1000
a = "动态打字效果"
End Sub

Private Sub Timer1_Timer()
i = i + 1
Print Mid(a, i, 1)
End Sub
每过一秒窗口上出现一个字

如有问题，请追问

补充

Image1.Picture = LoadPicture("D:\" & a & ".jpg") 能解释一下吗？这里不是只是装载了一张吗？

下一次运行的时候 还不是这一张吗？

回答人的补充 2009-10-17 22:13

中间有a

a每次是变化的

提问人的追问 2009-10-17 22:18

还是不懂 a循环一次加一嘛！ 但是我 image1的图片链接路径还是 以前的那个啊！我就是看不懂 Timer 空间里面的那个语句 而且图片的链接路径我们只是链接了一张的啊！ 为什么会一秒换一次

在图片命名时命名为 1开始的连续的数字

在么么的程序里，a 是图片名

它是累加的 从1开始

当程序执行时 就会在 D盘下找到对应的图片

而且每一次都是不一样的，关键是在你的图片的命名。

你可以用timer控件是遮盖控件逐渐变小，但是，我一般都是做一个flash,然后播放flash，要是你需要，我可以给你做flash

我猜你是想做网页的吧！

http://www.jscode.cn/jave_text/330510430.htm

你想要的。

Dim a As Integer Private Sub Timer1_Timer() a = a + 1 Print a End Sub

time控件