VB中如何用控件实现多个文本框的顺序出现

来源:百度知道 编辑:UC知道 时间:2024/09/28 14:42:45
对于一个界面中多个label,如何用Button实现上一条和下一条的顺序出现

将Label标签设计为数组控件,即:Label1(0)、Label1(1)、Label1(2).....

Dim x As Integer

Private Sub Button1_Click()
If x < 0 Then x = 0
Label1(x).Visible = True
x = x - 1
End Sub

Private Sub Button2_Click()
If x > Label1(Index).Index Then x = Label1(Index).Index
Label1(x).Visible = True
x = x + 1
End Sub

Private Sub Form_Load()
Button1.Caption = "下一条"
Button2.Caption = "上一条"
x = 0
End Sub

把LABEL顺序排好,从上到下分别LABEL1,LABEL2.......
在BUTTON的CLICK函数里面
定义n=0
LABEL(N).VISIBALE=TRUE
N=N+1

呵呵,说了个大概,不知道LZ是不是这个意思。点一次按钮显示一个LABEL