一個矩陣內的值 讓使用者以COMBOX選擇
不好意思各位大大 我想要請問
我現在所使用的物件 是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
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
