高分悬赏VB的COMBO BOX问题

来源：百度知道 编辑：UC知道 时间：2024/05/16 18:21:19
我的frmMain有25个label 按照5*5排列（课程表）

星期一是label1-5，星期二是label6-10，依次类推

frmset有两个Combo BOX

（第一个Monday，Tuesday...，第二个1stClass,2ndClass...）

还有一个Textbox

现希望使用这两个COMBO BOX达到如下效果：

当同时选好两个COMBO BOX时，再点一个Commandbutton即可改变对应的课程的Label的Caption（例如Tuseday，3rdClass，将外面frmMain的星期二第三节课的内容改变）

就是
Private Sub cmdSave_Click()
frmMain.Label8.Caption = (Text1.Text)
End

请教此时Combo Box的语句该如何写

设置label1的index为零,visible为false.

Private Sub Command1_Click()
If Combo1.ListIndex <> -1 And Combo1.ListIndex <> -1 Then
k = (Combo1.ListIndex) + 5 * Combo2.ListIndex + 1
Label1(k).Caption = Text1.Text
End If
End Sub

Private Sub Form_Load()
Frame1.Caption = "framemain"
Frame2.Caption = "frameset"
For i = 1 To 25
Load Label1(i)
Label1(i).Top = Label1(0).Top + ((i - 1) \ 5) * Label1(0).Height
Label1(i).Left = Label1(0).Left + (((i + 4) Mod 5)) * Label1(0).Width
Label1(i).Visible = True
Label1(i).Caption = i
Next i
Combo1.Text = "星期"
Combo2.Text = "节次"
For i = 1 To 5
Combo1.AddItem CStr(i), i - 1
Combo2.AddItem CStr(i), i - 1
Next i
End Sub

你先画一个Label 然后选中它 Ctrl+C Ctrl+V 当问你是否创建控件数组时 你选是
这样25个label会像这样命名
label1(0) - label1(24)

Private Sub Command1_Click()
Label1(Combo1.ListInd