作者kolkol (接龙JJJ)
看板Visual_Basic
标题[VB6 ] 急问 一个矩阵内的值 让使用者以COMBOX选择
时间Fri Jan 12 16:20:29 2007
不好意思各位大大 我想要请问
我现在所使用的物件 是SSTAB(有三个分页)
我在第一个分页
在一个FRAME内用了10*10 个 COMBOX (组合下拉式) 每个COMBOX有三个选项 让使用者选择
第二个分页
有一个LIST LIST矩阵出来
程式码的部份
每个COMBOX的内容如下
Private Sub Combo1_Change()
If Combo1.Text = "排休" Then '使用者选择排休则在A矩阵1，1的位
a(1, 1) =0 '置上写入0这个值
ElseIf Combo1.Text = "白班 8:00~16:00" Then
a(1, 1) = 1
ElseIf Combo1.Text = "晚班 16:00~24:00" Then
a(1, 1) = 2
ElseIf Combo1.Text = "大夜班 24:00~8:00" Then
a(1, 1) = 3
End If
End Sub
'而FORM1内容如下
Private Sub Form_Load()
Combo1.AddItem "白班 8:00~16:00"
Combo1.AddItem "晚班 16:00~24:00"
Combo1.AddItem "大夜班 24:00~8:00"
Combo1.AddItem "排休"
For i = 1 To 20
A1 = ""
For j = 1 To 7
A1 = A1 + Str(a(i, j))
Next j
List1.AddItem A1 '将A矩阵LIST出来
Next i
end sub
想请问各位大大 为什麽执行的结果再第二分页的LIST出来的结果都是0
请问要如何修改?
请问还有更快的方式 让使用者输入选项 然後对应指定给矩阵内的值吗?
因为实际矩阵有7*20个/_\ 我只好做了140个COMBOX
不好意思 希望各位救救小弟 谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.116.36.68