Question

VB label1复制label1(0)和label1(1)

我输入以下代码时：
dim a as string
a = label1(index)
label1(index) = index + 1
if a = label1(0) then
执行语句
a = label1(1) then
执行语句
a = label1(2) then
执行语句
a = label1(3) then
执行语句
end if
运行时第一遍点每个label控件都是点label1(0),执行的是label1(1)点label1(1)执行的是label1(2),点第二遍就正常了，还有点击后都会在label的caption显示一个数字
请问怎么做能在第一遍点就正常，又不让label caption上显示数字
急！在线等待

Answer 1

dim a as string
a = label1(index).caption
label1(index) = index + 1 '这句不对，把label1(index).caption 置为 数字了
if a = label1(0) then
执行语句
a = label1(1) then
执行语句
a = label1(2) then
执行语句
a = label1(3) then
执行语句
end if

问题描述具体点吧，label1数组控件的初始值是多少，还有你的if条件判断语句好像漏了点东西

追问

就是我现在有label1(0) label1(1) label1(2) label1(3) label1(4)共五个
点label1(0) frame1就为true显示出来，其它为false
点label1(1) frame2就为true显示出来，其它为false
其它同上
点击后label的caption不显示数字
代码怎么写，最好祥细点

追答

Private Sub Label1_Click(Index As Integer)
If Index = 0 Then
Frame1.Visible = True
Frame2.Visible = False
Frame3.Visible = False
Frame4.Visible = False
Frame5.Visible = False
label1(index).caption ="想显示什么自己写，保持原值，就注视掉"
ElseIf Index = 1 Then
Frame1.Visible = False
Frame2.Visible = True
Frame3.Visible = False
Frame4.Visible = False
Frame5.Visible = False
label1(index).caption ="想显示什么自己写，保持原值，就注视掉"
ElseIf Index = 2 Then
Frame1.Visible = False
Frame2.Visible = False
Frame3.Visible = True
Frame4.Visible = False
Frame5.Visible = False
label1(index).caption ="想显示什么自己写，保持原值，就注视掉"
ElseIf Index = 3 Then
Frame1.Visible = False
Frame2.Visible = False
Frame3.Visible = False
Frame4.Visible = True
Frame5.Visible = False
label1(index).caption ="想显示什么自己写，保持原值，就注视掉"
ElseIf Index = 4 Then
Frame1.Visible = False
Frame2.Visible = False
Frame3.Visible = False
Frame4.Visible = False
Frame5.Visible = True
label1(index).caption ="想显示什么自己写，保持原值，就注视掉"
End If

End Sub