Question

VB中关于用一个label控件来控制另一个label控件组的问题。

如图所示，左上方的检修线路短路器是一个label控件，下方的检修I段母线而是一个label控件，当点击左上方检修线路短路器的label控件时候，会出现右方的下一步按钮以及下方的用于解释说明的label控件组，每单击一次下一步，下方的内容就会改变。与此同时，当单击下一步的过程中，单击左上方的检修线路短路器的时候，会使下一步按钮下方的内容重新返回第一次输出的内容。
疑惑得地方就在于我不知道怎么在左上方的label控件里边怎么编写代码使下一步下边的内容返回初始内容。望解答。
图中控件的名称已经写明，望用程序尽量做详细的说明，谢谢





Answer 1

1，设置一个字符串数组，例如：有5个步骤，就是：而且是模块级变量
Private MsgStr(1 To 5) As String
Private CurNum As Integer
2，思路；
每次单击：“检修线路短路器：对应的Label控件，就在该控件的单击事件里，编写代码：
CurNum = 1 '设置显示提示文字的数组的下标
同时显示[下一步]按钮
使得[下一步]按钮下面的标签显示 MsgStr(CurNum)的文本
3，每单击1次[下一步]按钮
CurNum = CurNum + 1
标签显示 MsgStr(CurNum)的文本

追问

非常谢谢，谢谢码这么多字，我认真看了也挺不错，可惜没办法再给您财富值，真的很谢谢您

追答

别客气，我对财富无所谓！
对你有帮助就好！

Answer 2

Public i As Integer '定义个公共变量，控制输出解释的字符
Private Sub Command4_Click()
i = i + 1
Call Out(i)
End Sub
Private Sub Form_Load()
Label1.Visible = False
Command4.Visible = False
End Sub
Private Sub Label2_Click()
Command4.Visible = True
i = 0
Call Out(i)
End Sub
Sub Out(ByVal n As Integer)
Label1.Visible = True
Label1.AutoSize = True
Select Case n
Case 0
Label1.Caption = "检修断路器过程请先断开断路器"
Case 1
Label1.Caption = "请确认断路器已断开"
Case 2
Label1.Caption = "检修开始"
End Select
End Sub
因为我不知道你的下一步有多少说明，只帮你列了三个，如果多的话你可以将sub out 里面的case 结构按我的格式往下多下几个，本人亲测可用，望楼主采纳！

追问

太感谢您的回答了，初步实现了所要的功能。这里还有几个问题望给解答下。

问题一、通过以上代码实行了八步，我想在case》7的时候从新开始返回执行case=0的内容，该如何写下面的代码。

问题二、我想在label3内也执行于label2大致相同的内容过程，在label显示于上一次不一样的文字，该如何声明变量，以及有那些需要注意的地方，望用程序详解之，不胜感激，在下拜谢！

追答

Call Out2(i)
Else
Call Out1(i)
End If
End Sub
Private Sub Form_Load()
Label1.Visible = False
Command4.Visible = False
End Sub
Private Sub Label2_Click()
Command4.Visible = True
blnst = True
i = 0
Call Out1(i)
End Sub
Private Sub Label3_Click()
Command4.Visible = True
blnst = False
i = 0
Call Out2(i)
End Sub
Sub Out1(ByVal n As Integer)
Label1.Visible = True
Label1.AutoSize = True
Select Case n
Case 0
Label1.Caption = "检修断路器过程请先断开断路器"
Case 1
Label1.Caption = "请确认断路器已断开"
Case 2
Label1.Caption = "检修开始"
End Select
End Sub
Sub Out2(ByVal n As Integer)
Label1.Visible = True
Label1.AutoSize = True
Select Case n
Case 0
Label1.Caption = "检修母线过程请先断开母线相关部件"
Case 1
Label1.Caption = "请确认相关部件已断开"
Case 2
Label1.Caption = "检修开始"
End Select
End Sub

追问

大神，崇拜死你了，可否有您的qq号码，想跟您长期探讨一下编程方面的问题，您看可以吗

追答

我代码不知道怎么发不完，问题解决了吗