你想在picture1中做飞字技术吗?(我认为没有必要,可直接在form上做) '//关闭Timer1 Private Sub Command2_Click(Index As Integer) Timer1.Interval=全局变量 Command2.Enabled = False Command1.Enabled = True End SubPrivate Sub HScroll1_Change() 全局变量= HScroll1.Value End Sub '//激活Timer1 Private Sub Command1_Click(Index As Integer) Command1.Caption = "继续" Timer1.Interval=全局变量 Command1.Enabled = False Command2.Enabled = True End Sub
command1和command2你定义成了不同的控件,而不是一个控件数组的两个元素.
'//关闭Timer1
Private Sub Command2_Click(Index As Integer)
Timer1.Interval=全局变量
Command2.Enabled = False
Command1.Enabled = True
End SubPrivate Sub HScroll1_Change()
全局变量= HScroll1.Value
End Sub
'//激活Timer1
Private Sub Command1_Click(Index As Integer)
Command1.Caption = "继续"
Timer1.Interval=全局变量
Command1.Enabled = False
Command2.Enabled = True
End Sub
1个是楼上大家说的要么用command1(0)、command(1)控件数组,要么不用控件数组!
第2个问题是,picturebox控件是属于重型控件,必定在label之类的轻型控件之上,会早成无法看到label控件的问题,只要用image控件代替picturebox就可以了