Question

VB6.0初级操作问题（文字变换），跟timer和循环有关

前提问题是：先做两个标签，然后第一个标签调整BackStyle=0or Transparent。第二个标签的字设置的淡一点。。然后就是说出现字体阴影的效果。。然后主要问题是：根据前提问题的那个文字效果做一个动态展示。就是出现这样的效果：首先出来文字 欢迎来临 。然后过个1秒后文字变为 VB世界 。然后在变成 欢迎来临 再。。。就这样一直循环下去。当然这些文字得用上面所说的阴影效果。。。。。大哥大姐。。求发个可以用的代码给我啊。。。
前提问题说的标签是指 label。。。

Answer 1

用Timer控件的用法弄清楚就好办了，我把主要的列列，你自己研究试试
除了你说的两个label，还得加一个timer控件，Enabled设为true,Interval设为1000，就是1秒
Dim a As Boolean

Private Sub Timer1_Timer()
if a then
a = false
label1.Visible = True
label2.Visible = false
else
a =true
label1.Visible = false
label2.Visible = true
End Sub

追问

那那些字该加在哪里啊，，因为要有阴影一段字就要两个label了。。然后有两段字。。这样不就是4个label了么。。

追答

这是你的程序主要代码，加控件不用代码，直接把需要的控件拖到窗体上

追问

不好意思哈。。。但我还是没明白你之前输的代码只涉及两个label。。。但做出阴影效果的文字不就得4个label了么

追答

你可以先做两个试试，两个会做，四个无非是加一个变量，四个值循环。举二反四。^_^