如何在窗体Form1的中间每隔1秒钟动态地显示“我是菜鸟”？

Question

如何在窗体Form1的中间每隔1秒钟动态地显示“我是菜鸟”？

Answer 1

用定时器定时1秒
在定时器启动的代码段
加me.currentx=me.width/2
  me.currenty=me.height/2
  me.print "..."

Answer 2

添加一个timer控件，设置interval=1000
然后
用cls和print清楚和显示

Answer 3

先设timer1的Interval=1000
Dim i As Boolean
Private Sub Timer1_Timer()  If i = False Then
    Me.CurrentX = Me.ScaleWidth / 2
    Me.CurrentY = Me.ScaleHeight / 2
    Me.Print "我是菜鸟"
    i = Not i
  Else
    Me.Cls
    i = Not i
  End If
End Sub

Answer 4

:D建议用sleep延时。用doevents释放对系统的占用。

Answer 5

在窗体里加入一个timer和一个label
Private Sub form_load()
   With Label1
      .Caption = "我他妈是菜鸟!"
      .BackStyle = 0
   End With
   Randomize
   Timer1.Interval = 1000
   Timer1.Enabled = True
End Sub
Private Sub Timer1_timer()
   Label1.Move Rnd * (Me.Width - Label1.Width), Rnd * (Me.Height - Label1.Height)
End Sub

Answer 6

通
过一个时钟控件在里面加入  把它的时间间隔设成是1000
lable1.caption="我是菜鸟" Public a As Integer
Private Sub Form_Load()
a = 1
Label1.Caption = "我是菜鸟"
End SubPrivate Sub Timer1_Timer()
If a = 1 ThenLabel1.Visible = True
Else
Label1.Visible = False
End If
a = -a
End Sub

Answer 7

Private Sub Form_Load()
Label1.Caption = "我是菜鸟"
End SubPrivate Sub Timer1_Timer()
If a = 1 ThenLabel1.Visible = True
Else
Label1.Visible = False
End If
a = -a
End Sub

Answer 8

设置Timer1的Interval=1000，（一秒）
Dim i As Boolean‘定义一个全局变量Private Sub Timer1_Timer()’在Timer1中写入以下代码。  If i = False Then
    Me.CurrentX = Me.ScaleWidth / 2
    Me.CurrentY = Me.ScaleHeight / 2
    Me.Print "我是菜鸟"
    i = Not i
  Else
    Me.Cls‘清屏
    i = Not i
  End If
End Sub
对huwei78(hw)老兄的代码加了注释，希望对你有帮助。

Answer 9

增加一个label控件
一个timer控件
timer 的属性自己设置 
在timer 的事件中写
Label1.Visible = Not Label1.Visible