By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
424,665 Members | 1,478 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 424,665 IT Pros & Developers. It's quick & easy.

Switch contents of Listbox using Combobox?

P: 7
I'm trying to write a program to keep track of the wines in my wine racks. I want the contents of the Listbox to display the contents of the Rack chosen from a ComboBox. I've got a form with Command Buttons to add and remove from the list and add new racks to the ComboBox. Google searches weren't very helpful (most search results just showed list and combo box stuff that didn't relate to what I'm trying to do) except using an ADO database as a DataSource (which I know nothing about and would like to confirm there is no easier option before trying to figure it out)

Could someone please tell me if there is another way to display a different list for each combobox selection?

I Do have some experience writing and loading values from an excel spreadsheet. Is there a way to make the listbox display a specific row or column from a speadsheet? (Then I just have to figure out how to easily add and remove from that speadsheet (preferably without creating gaps)

The little code I have is below

Expand|Select|Wrap|Line Numbers
  1. Private Sub Command1_Click() 'Add to ListBox
  2. List1.AddItem Text1.Text
  3. Text1.Text = ""
  4. End Sub
  5.  
  6. Private Sub Command2_Click() 'Remove from ListBox
  7. If List1.ListIndex > -1 Then
  8. List1.RemoveItem List1.ListIndex
  9. End If
  10. End Sub
  11.  
  12. Private Sub Command3_Click() 'Add to Combo
  13. Combo1.AddItem Text2.Text
  14. Text2.Text = ""
  15. End Sub
  16.  
  17. Private Sub Command4_Click() 'Exit
  18. End
  19. End Sub
  20.  
  21. Private Sub Form_Load()
  22. Combo1.AddItem "Rack 1"
  23. Combo1.AddItem "Rack 2"
  24. End Sub
2 Weeks Ago #1

✓ answered by AnotherNovice

Update if anyone is interested. I added the ability to save the listboxs to text files and load them again when form loads.

Command 1 add contents of text box to current listbox
Command 2 Removes from listbox
Command 3 saves all listboxes to text files.

Expand|Select|Wrap|Line Numbers
  1. Private Sub Command1_Click()
  2. If List1.Visible = True Then
  3. List1.AddItem Text1.Text
  4. Text1.Text = ""
  5. ElseIf List2.Visible = True Then
  6. List2.AddItem Text1.Text
  7. Text1.Text = ""
  8. ElseIf List3.Visible = True Then
  9. List3.AddItem Text1.Text
  10. Text1.Text = ""
  11. ElseIf List4.Visible = True Then
  12. List4.AddItem Text1.Text
  13. Text1.Text = ""
  14. ElseIf List5.Visible = True Then
  15. List5.AddItem Text1.Text
  16. Text1.Text = ""
  17. ElseIf List6.Visible = True Then
  18. List6.AddItem Text1.Text
  19. Text1.Text = ""
  20. ElseIf List7.Visible = True Then
  21. List7.AddItem Text1.Text
  22. Text1.Text = ""
  23. ElseIf List8.Visible = True Then
  24. List8.AddItem Text1.Text
  25. Text1.Text = ""
  26. ElseIf List9.Visible = True Then
  27. List9.AddItem Text1.Text
  28. Text1.Text = ""
  29. ElseIf List10.Visible = True Then
  30. List10.AddItem Text1.Text
  31. Text1.Text = ""
  32. ElseIf List11.Visible = True Then
  33. List11.AddItem Text1.Text
  34. Text1.Text = ""
  35. ElseIf List12.Visible = True Then
  36. List12.AddItem Text1.Text
  37. Text1.Text = ""
  38. ElseIf List13.Visible = True Then
  39. List13.AddItem Text1.Text
  40. Text1.Text = ""
  41. ElseIf List14.Visible = True Then
  42. List14.AddItem Text1.Text
  43. Text1.Text = ""
  44. ElseIf List15.Visible = True Then
  45. List15.AddItem Text1.Text
  46. Text1.Text = ""
  47. ElseIf List16.Visible = True Then
  48. List16.AddItem Text1.Text
  49. Text1.Text = ""
  50. ElseIf List17.Visible = True Then
  51. List17.AddItem Text1.Text
  52. Text1.Text = ""
  53. ElseIf List18.Visible = True Then
  54. List18.AddItem Text1.Text
  55. Text1.Text = ""
  56. ElseIf List19.Visible = True Then
  57. List19.AddItem Text1.Text
  58. Text1.Text = ""
  59. ElseIf List20.Visible = True Then
  60. List20.AddItem Text1.Text
  61. Text1.Text = ""
  62. ElseIf List21.Visible = True Then
  63. List21.AddItem Text1.Text
  64. Text1.Text = ""
  65. ElseIf List22.Visible = True Then
  66. List22.AddItem Text1.Text
  67. Text1.Text = ""
  68. ElseIf List23.Visible = True Then
  69. List23.AddItem Text1.Text
  70. Text1.Text = ""
  71. ElseIf List24.Visible = True Then
  72. List24.AddItem Text1.Text
  73. Text1.Text = ""
  74. ElseIf List25.Visible = True Then
  75. List25.AddItem Text1.Text
  76. Text1.Text = ""
  77. End If
  78. End Sub
  79.  
  80. Private Sub Command2_Click()
  81. If List1.Visible And List1.ListIndex > -1 Then
  82. List1.RemoveItem List1.ListIndex
  83. ElseIf List2.Visible And List2.ListIndex > -1 Then
  84. List2.RemoveItem List2.ListIndex
  85. ElseIf List3.Visible And List3.ListIndex > -1 Then
  86. List3.RemoveItem List3.ListIndex
  87. ElseIf List4.Visible And List4.ListIndex > -1 Then
  88. List4.RemoveItem List4.ListIndex
  89. ElseIf List5.Visible And List5.ListIndex > -1 Then
  90. List5.RemoveItem List5.ListIndex
  91. ElseIf List6.Visible And List6.ListIndex > -1 Then
  92. List6.RemoveItem List6.ListIndex
  93. ElseIf List7.Visible And List7.ListIndex > -1 Then
  94. List7.RemoveItem List7.ListIndex
  95. ElseIf List8.Visible And List8.ListIndex > -1 Then
  96. List8.RemoveItem List8.ListIndex
  97. ElseIf List9.Visible And List9.ListIndex > -1 Then
  98. List9.RemoveItem List9.ListIndex
  99. ElseIf List10.Visible And List10.ListIndex > -1 Then
  100. List10.RemoveItem List10.ListIndex
  101. ElseIf List11.Visible And List11.ListIndex > -1 Then
  102. List11.RemoveItem List11.ListIndex
  103. ElseIf List12.Visible And List12.ListIndex > -1 Then
  104. List12.RemoveItem List12.ListIndex
  105. ElseIf List13.Visible And List13.ListIndex > -1 Then
  106. List13.RemoveItem List13.ListIndex
  107. ElseIf List14.Visible And List14.ListIndex > -1 Then
  108. List14.RemoveItem List14.ListIndex
  109. ElseIf List15.Visible And List15.ListIndex > -1 Then
  110. List15.RemoveItem List15.ListIndex
  111. ElseIf List16.Visible And List16.ListIndex > -1 Then
  112. List16.RemoveItem List16.ListIndex
  113. ElseIf List17.Visible And List17.ListIndex > -1 Then
  114. List17.RemoveItem List17.ListIndex
  115. ElseIf List18.Visible And List18.ListIndex > -1 Then
  116. List18.RemoveItem List18.ListIndex
  117. ElseIf List19.Visible And List19.ListIndex > -1 Then
  118. List19.RemoveItem List19.ListIndex
  119. ElseIf List20.Visible And List20.ListIndex > -1 Then
  120. List20.RemoveItem List20.ListIndex
  121. ElseIf List21.Visible And List21.ListIndex > -1 Then
  122. List21.RemoveItem List21.ListIndex
  123. ElseIf List22.Visible And List22.ListIndex > -1 Then
  124. List22.RemoveItem List22.ListIndex
  125. ElseIf List23.Visible And List23.ListIndex > -1 Then
  126. List23.RemoveItem List23.ListIndex
  127. ElseIf List24.Visible And List24.ListIndex > -1 Then
  128. List24.RemoveItem List24.ListIndex
  129. ElseIf List25.Visible And List25.ListIndex > -1 Then
  130. List25.RemoveItem List25.ListIndex
  131. End If
  132. End Sub
  133.  
  134. Private Sub Command3_Click()
  135.     Dim fn As Long
  136.     Dim i As Integer
  137.     fn = FreeFile
  138.     Open "\\Remote\WeatherArray\WineRacks\WineRack1.txt" For Output As fn
  139.     For i = 0 To List1.ListCount - 1
  140.       Print #fn, List1.list(i)
  141.     Next
  142.     Close #fn
  143.     Open "\\Remote\WeatherArray\WineRacks\WineRack2.txt" For Output As fn
  144.     For i = 0 To List2.ListCount - 1
  145.       Print #fn, List2.list(i)
  146.     Next
  147.     Close #fn
  148.     Open "\\Remote\WeatherArray\WineRacks\WineRack3.txt" For Output As fn
  149.     For i = 0 To List3.ListCount - 1
  150.       Print #fn, List3.list(i)
  151.     Next
  152.     Close #fn
  153.     Open "\\Remote\WeatherArray\WineRacks\WineRack4.txt" For Output As fn
  154.     For i = 0 To List4.ListCount - 1
  155.       Print #fn, List4.list(i)
  156.     Next
  157.     Close #fn
  158.     Open "\\Remote\WeatherArray\WineRacks\WineRack5.txt" For Output As fn
  159.     For i = 0 To List5.ListCount - 1
  160.       Print #fn, List5.list(i)
  161.     Next
  162.     Close #fn
  163.     Open "\\Remote\WeatherArray\WineRacks\WineRack6.txt" For Output As fn
  164.     For i = 0 To List6.ListCount - 1
  165.       Print #fn, List6.list(i)
  166.     Next
  167.     Close #fn
  168.     Open "\\Remote\WeatherArray\WineRacks\WineRack7.txt" For Output As fn
  169.     For i = 0 To List7.ListCount - 1
  170.       Print #fn, List7.list(i)
  171.     Next
  172.     Close #fn
  173.     Open "\\Remote\WeatherArray\WineRacks\WineRack8.txt" For Output As fn
  174.     For i = 0 To List8.ListCount - 1
  175.       Print #fn, List8.list(i)
  176.     Next
  177.     Close #fn
  178.     Open "\\Remote\WeatherArray\WineRacks\WineRack9.txt" For Output As fn
  179.     For i = 0 To List9.ListCount - 1
  180.       Print #fn, List9.list(i)
  181.     Next
  182.     Close #fn
  183.     Open "\\Remote\WeatherArray\WineRacks\WineRack10.txt" For Output As fn
  184.     For i = 0 To List10.ListCount - 1
  185.       Print #fn, List10.list(i)
  186.     Next
  187.     Close #fn
  188.     Open "\\Remote\WeatherArray\WineRacks\WineRack11.txt" For Output As fn
  189.     For i = 0 To List11.ListCount - 1
  190.       Print #fn, List11.list(i)
  191.     Next
  192.     Close #fn
  193.     Open "\\Remote\WeatherArray\WineRacks\WineRack12.txt" For Output As fn
  194.     For i = 0 To List12.ListCount - 1
  195.       Print #fn, List12.list(i)
  196.     Next
  197.     Close #fn
  198.     Open "\\Remote\WeatherArray\WineRacks\WineRack13.txt" For Output As fn
  199.     For i = 0 To List13.ListCount - 1
  200.       Print #fn, List13.list(i)
  201.     Next
  202.     Close #fn
  203.     Open "\\Remote\WeatherArray\WineRacks\WineRack14.txt" For Output As fn
  204.     For i = 0 To List14.ListCount - 1
  205.       Print #fn, List14.list(i)
  206.     Next
  207.     Close #fn
  208.     Open "\\Remote\WeatherArray\WineRacks\WineRack15.txt" For Output As fn
  209.     For i = 0 To List15.ListCount - 1
  210.       Print #fn, List15.list(i)
  211.     Next
  212.     Close #fn
  213.     Open "\\Remote\WeatherArray\WineRacks\WineRack16.txt" For Output As fn
  214.     For i = 0 To List16.ListCount - 1
  215.       Print #fn, List16.list(i)
  216.     Next
  217.     Close #fn
  218.     Open "\\Remote\WeatherArray\WineRacks\WineRack17.txt" For Output As fn
  219.     For i = 0 To List17.ListCount - 1
  220.       Print #fn, List17.list(i)
  221.     Next
  222.     Close #fn
  223.     Open "\\Remote\WeatherArray\WineRacks\WineRack18.txt" For Output As fn
  224.     For i = 0 To List18.ListCount - 1
  225.       Print #fn, List18.list(i)
  226.     Next
  227.     Close #fn
  228.     Open "\\Remote\WeatherArray\WineRacks\WineRack19.txt" For Output As fn
  229.     For i = 0 To List19.ListCount - 1
  230.       Print #fn, List19.list(i)
  231.     Next
  232.     Close #fn
  233.     Open "\\Remote\WeatherArray\WineRacks\WineRack20.txt" For Output As fn
  234.     For i = 0 To List20.ListCount - 1
  235.       Print #fn, List20.list(i)
  236.     Next
  237.     Close #fn
  238.     Open "\\Remote\WeatherArray\WineRacks\WineRack21.txt" For Output As fn
  239.     For i = 0 To List21.ListCount - 1
  240.       Print #fn, List21.list(i)
  241.     Next
  242.     Close #fn
  243.     Open "\\Remote\WeatherArray\WineRacks\WineRack22.txt" For Output As fn
  244.     For i = 0 To List22.ListCount - 1
  245.       Print #fn, List22.list(i)
  246.     Next
  247.     Close #fn
  248.     Open "\\Remote\WeatherArray\WineRacks\WineRack23.txt" For Output As fn
  249.     For i = 0 To List23.ListCount - 1
  250.       Print #fn, List23.list(i)
  251.     Next
  252.     Close #fn
  253.     Open "\\Remote\WeatherArray\WineRacks\WineRack24.txt" For Output As fn
  254.     For i = 0 To List24.ListCount - 1
  255.       Print #fn, List24.list(i)
  256.     Next
  257.     Close #fn
  258.     Open "\\Remote\WeatherArray\WineRacks\WineRack25.txt" For Output As fn
  259.     For i = 0 To List25.ListCount - 1
  260.       Print #fn, List25.list(i)
  261.     Next
  262.     Close #fn
  263.  
  264. End Sub
  265.  
  266. Private Sub Command4_Click()
  267. Me.Hide
  268. End Sub
  269.  
  270. Private Sub Form_Load()
  271. WinePage.Left = (Screen.Width / 2) - (InfoMain.Width / 2)
  272. WinePage.Top = (Screen.Height / 2) - (InfoMain.Height / 2)
  273. Combo1.AddItem "Rack 1"
  274. Combo1.AddItem "Rack 2"
  275. Combo1.AddItem "Rack 3"
  276. Combo1.AddItem "Rack 4"
  277. Combo1.AddItem "Rack 5"
  278. Combo1.AddItem "Rack 6"
  279. Combo1.AddItem "Rack 7"
  280. Combo1.AddItem "Rack 8"
  281. Combo1.AddItem "Rack 9"
  282. Combo1.AddItem "Rack 10"
  283. Combo1.AddItem "Rack 11"
  284. Combo1.AddItem "Rack 12"
  285. Combo1.AddItem "Rack 13"
  286. Combo1.AddItem "Rack 14"
  287. Combo1.AddItem "Rack 15"
  288. Combo1.AddItem "Rack 16"
  289. Combo1.AddItem "Rack 17"
  290. Combo1.AddItem "Rack 18"
  291. Combo1.AddItem "Rack 19"
  292. Combo1.AddItem "Rack 20"
  293. Combo1.AddItem "Rack 21"
  294. Combo1.AddItem "Rack 22"
  295. Combo1.AddItem "Rack 23"
  296. Combo1.AddItem "Rack 24"
  297. Combo1.AddItem "Rack 25"
  298. Combo1.ListIndex = 0
  299.  
  300. Dim ff As Long
  301. Dim line As String
  302. ff = FreeFile
  303. Open "\\Remote\WeatherArray\WineRacks\WineRack1.txt" For Input As #ff
  304. Do While Not EOF(ff)
  305. Line Input #ff, line
  306. If Len(line) Then List1.AddItem line
  307. Loop
  308. Close #ff
  309. Open "\\Remote\WeatherArray\WineRacks\WineRack2.txt" For Input As #ff
  310. Do While Not EOF(ff)
  311. Line Input #ff, line
  312. If Len(line) Then List2.AddItem line
  313. Loop
  314. Close #ff
  315. Open "\\Remote\WeatherArray\WineRacks\WineRack3.txt" For Input As #ff
  316. Do While Not EOF(ff)
  317. Line Input #ff, line
  318. If Len(line) Then List3.AddItem line
  319. Loop
  320. Close #ff
  321. Open "\\Remote\WeatherArray\WineRacks\WineRack4.txt" For Input As #ff
  322. Do While Not EOF(ff)
  323. Line Input #ff, line
  324. If Len(line) Then List4.AddItem line
  325. Loop
  326. Close #ff
  327. Open "\\Remote\WeatherArray\WineRacks\WineRack5.txt" For Input As #ff
  328. Do While Not EOF(ff)
  329. Line Input #ff, line
  330. If Len(line) Then List5.AddItem line
  331. Loop
  332. Close #ff
  333. Open "\\Remote\WeatherArray\WineRacks\WineRack6.txt" For Input As #ff
  334. Do While Not EOF(ff)
  335. Line Input #ff, line
  336. If Len(line) Then List6.AddItem line
  337. Loop
  338. Close #ff
  339. Open "\\Remote\WeatherArray\WineRacks\WineRack7.txt" For Input As #ff
  340. Do While Not EOF(ff)
  341. Line Input #ff, line
  342. If Len(line) Then List7.AddItem line
  343. Loop
  344. Close #ff
  345. Open "\\Remote\WeatherArray\WineRacks\WineRack8.txt" For Input As #ff
  346. Do While Not EOF(ff)
  347. Line Input #ff, line
  348. If Len(line) Then List8.AddItem line
  349. Loop
  350. Close #ff
  351. Open "\\Remote\WeatherArray\WineRacks\WineRack9.txt" For Input As #ff
  352. Do While Not EOF(ff)
  353. Line Input #ff, line
  354. If Len(line) Then List9.AddItem line
  355. Loop
  356. Close #ff
  357. Open "\\Remote\WeatherArray\WineRacks\WineRack10.txt" For Input As #ff
  358. Do While Not EOF(ff)
  359. Line Input #ff, line
  360. If Len(line) Then List10.AddItem line
  361. Loop
  362. Close #ff
  363. Open "\\Remote\WeatherArray\WineRacks\WineRack11.txt" For Input As #ff
  364. Do While Not EOF(ff)
  365. Line Input #ff, line
  366. If Len(line) Then List11.AddItem line
  367. Loop
  368. Close #ff
  369. Open "\\Remote\WeatherArray\WineRacks\WineRack12.txt" For Input As #ff
  370. Do While Not EOF(ff)
  371. Line Input #ff, line
  372. If Len(line) Then List12.AddItem line
  373. Loop
  374. Close #ff
  375. Open "\\Remote\WeatherArray\WineRacks\WineRack13.txt" For Input As #ff
  376. Do While Not EOF(ff)
  377. Line Input #ff, line
  378. If Len(line) Then List13.AddItem line
  379. Loop
  380. Close #ff
  381. Open "\\Remote\WeatherArray\WineRacks\WineRack14.txt" For Input As #ff
  382. Do While Not EOF(ff)
  383. Line Input #ff, line
  384. If Len(line) Then List14.AddItem line
  385. Loop
  386. Close #ff
  387. Open "\\Remote\WeatherArray\WineRacks\WineRack15.txt" For Input As #ff
  388. Do While Not EOF(ff)
  389. Line Input #ff, line
  390. If Len(line) Then List15.AddItem line
  391. Loop
  392. Close #ff
  393. Open "\\Remote\WeatherArray\WineRacks\WineRack16.txt" For Input As #ff
  394. Do While Not EOF(ff)
  395. Line Input #ff, line
  396. If Len(line) Then List16.AddItem line
  397. Loop
  398. Close #ff
  399. Open "\\Remote\WeatherArray\WineRacks\WineRack17.txt" For Input As #ff
  400. Do While Not EOF(ff)
  401. Line Input #ff, line
  402. If Len(line) Then List17.AddItem line
  403. Loop
  404. Close #ff
  405. Open "\\Remote\WeatherArray\WineRacks\WineRack18.txt" For Input As #ff
  406. Do While Not EOF(ff)
  407. Line Input #ff, line
  408. If Len(line) Then List18.AddItem line
  409. Loop
  410. Close #ff
  411. Open "\\Remote\WeatherArray\WineRacks\WineRack19.txt" For Input As #ff
  412. Do While Not EOF(ff)
  413. Line Input #ff, line
  414. If Len(line) Then List19.AddItem line
  415. Loop
  416. Close #ff
  417. Open "\\Remote\WeatherArray\WineRacks\WineRack20.txt" For Input As #ff
  418. Do While Not EOF(ff)
  419. Line Input #ff, line
  420. If Len(line) Then List20.AddItem line
  421. Loop
  422. Close #ff
  423. Open "\\Remote\WeatherArray\WineRacks\WineRack21.txt" For Input As #ff
  424. Do While Not EOF(ff)
  425. Line Input #ff, line
  426. If Len(line) Then List21.AddItem line
  427. Loop
  428. Close #ff
  429. Open "\\Remote\WeatherArray\WineRacks\WineRack22.txt" For Input As #ff
  430. Do While Not EOF(ff)
  431. Line Input #ff, line
  432. If Len(line) Then List22.AddItem line
  433. Loop
  434. Close #ff
  435. Open "\\Remote\WeatherArray\WineRacks\WineRack23.txt" For Input As #ff
  436. Do While Not EOF(ff)
  437. Line Input #ff, line
  438. If Len(line) Then List23.AddItem line
  439. Loop
  440. Close #ff
  441. Open "\\Remote\WeatherArray\WineRacks\WineRack24.txt" For Input As #ff
  442. Do While Not EOF(ff)
  443. Line Input #ff, line
  444. If Len(line) Then List24.AddItem line
  445. Loop
  446. Close #ff
  447. Open "\\Remote\WeatherArray\WineRacks\WineRack25.txt" For Input As #ff
  448. Do While Not EOF(ff)
  449. Line Input #ff, line
  450. If Len(line) Then List25.AddItem line
  451. Loop
  452. Close #ff
  453.  
  454. End Sub
  455.  
  456.  
  457. Private Sub Timer1_Timer()
  458. If Combo1.ListIndex = 0 Then
  459. List1.Visible = True
  460. List2.Visible = False
  461. List3.Visible = False
  462. List4.Visible = False
  463. List5.Visible = False
  464. List6.Visible = False
  465. List7.Visible = False
  466. List8.Visible = False
  467. List9.Visible = False
  468. List10.Visible = False
  469. List11.Visible = False
  470. List12.Visible = False
  471. List13.Visible = False
  472. List14.Visible = False
  473. List15.Visible = False
  474. List16.Visible = False
  475. List17.Visible = False
  476. List18.Visible = False
  477. List19.Visible = False
  478. List20.Visible = False
  479. List21.Visible = False
  480. List22.Visible = False
  481. List23.Visible = False
  482. List24.Visible = False
  483. List25.Visible = False
  484. ElseIf Combo1.ListIndex = 1 Then
  485. List1.Visible = False
  486. List2.Visible = True
  487. List3.Visible = False
  488. List4.Visible = False
  489. List5.Visible = False
  490. List6.Visible = False
  491. List7.Visible = False
  492. List8.Visible = False
  493. List9.Visible = False
  494. List10.Visible = False
  495. List11.Visible = False
  496. List12.Visible = False
  497. List13.Visible = False
  498. List14.Visible = False
  499. List15.Visible = False
  500. List16.Visible = False
  501. List17.Visible = False
  502. List18.Visible = False
  503. List19.Visible = False
  504. List20.Visible = False
  505. List21.Visible = False
  506. List22.Visible = False
  507. List23.Visible = False
  508. List24.Visible = False
  509. List25.Visible = False
  510. ElseIf Combo1.ListIndex = 2 Then
  511. List1.Visible = False
  512. List2.Visible = False
  513. List3.Visible = True
  514. List4.Visible = False
  515. List5.Visible = False
  516. List6.Visible = False
  517. List7.Visible = False
  518. List8.Visible = False
  519. List9.Visible = False
  520. List10.Visible = False
  521. List11.Visible = False
  522. List12.Visible = False
  523. List13.Visible = False
  524. List14.Visible = False
  525. List15.Visible = False
  526. List16.Visible = False
  527. List17.Visible = False
  528. List18.Visible = False
  529. List19.Visible = False
  530. List20.Visible = False
  531. List21.Visible = False
  532. List22.Visible = False
  533. List23.Visible = False
  534. List24.Visible = False
  535. List25.Visible = False
  536. ElseIf Combo1.ListIndex = 3 Then
  537. List1.Visible = False
  538. List2.Visible = False
  539. List3.Visible = False
  540. List4.Visible = True
  541. List5.Visible = False
  542. List6.Visible = False
  543. List7.Visible = False
  544. List8.Visible = False
  545. List9.Visible = False
  546. List10.Visible = False
  547. List11.Visible = False
  548. List12.Visible = False
  549. List13.Visible = False
  550. List14.Visible = False
  551. List15.Visible = False
  552. List16.Visible = False
  553. List17.Visible = False
  554. List18.Visible = False
  555. List19.Visible = False
  556. List20.Visible = False
  557. List21.Visible = False
  558. List22.Visible = False
  559. List23.Visible = False
  560. List24.Visible = False
  561. List25.Visible = False
  562. ElseIf Combo1.ListIndex = 4 Then
  563. List1.Visible = False
  564. List2.Visible = False
  565. List3.Visible = False
  566. List4.Visible = False
  567. List5.Visible = True
  568. List6.Visible = False
  569. List7.Visible = False
  570. List8.Visible = False
  571. List9.Visible = False
  572. List10.Visible = False
  573. List11.Visible = False
  574. List12.Visible = False
  575. List13.Visible = False
  576. List14.Visible = False
  577. List15.Visible = False
  578. List16.Visible = False
  579. List17.Visible = False
  580. List18.Visible = False
  581. List19.Visible = False
  582. List20.Visible = False
  583. List21.Visible = False
  584. List22.Visible = False
  585. List23.Visible = False
  586. List24.Visible = False
  587. List25.Visible = False
  588. ElseIf Combo1.ListIndex = 5 Then
  589. List1.Visible = False
  590. List2.Visible = False
  591. List3.Visible = False
  592. List4.Visible = False
  593. List5.Visible = False
  594. List6.Visible = True
  595. List7.Visible = False
  596. List8.Visible = False
  597. List9.Visible = False
  598. List10.Visible = False
  599. List11.Visible = False
  600. List12.Visible = False
  601. List13.Visible = False
  602. List14.Visible = False
  603. List15.Visible = False
  604. List16.Visible = False
  605. List17.Visible = False
  606. List18.Visible = False
  607. List19.Visible = False
  608. List20.Visible = False
  609. List21.Visible = False
  610. List22.Visible = False
  611. List23.Visible = False
  612. List24.Visible = False
  613. List25.Visible = False
  614. ElseIf Combo1.ListIndex = 6 Then
  615. List1.Visible = False
  616. List2.Visible = False
  617. List3.Visible = False
  618. List4.Visible = False
  619. List5.Visible = False
  620. List6.Visible = False
  621. List7.Visible = True
  622. List8.Visible = False
  623. List9.Visible = False
  624. List10.Visible = False
  625. List11.Visible = False
  626. List12.Visible = False
  627. List13.Visible = False
  628. List14.Visible = False
  629. List15.Visible = False
  630. List16.Visible = False
  631. List17.Visible = False
  632. List18.Visible = False
  633. List19.Visible = False
  634. List20.Visible = False
  635. List21.Visible = False
  636. List22.Visible = False
  637. List23.Visible = False
  638. List24.Visible = False
  639. List25.Visible = False
  640. ElseIf Combo1.ListIndex = 7 Then
  641. List1.Visible = False
  642. List2.Visible = False
  643. List3.Visible = False
  644. List4.Visible = False
  645. List5.Visible = False
  646. List6.Visible = False
  647. List7.Visible = False
  648. List8.Visible = True
  649. List9.Visible = False
  650. List10.Visible = False
  651. List11.Visible = False
  652. List12.Visible = False
  653. List13.Visible = False
  654. List14.Visible = False
  655. List15.Visible = False
  656. List16.Visible = False
  657. List17.Visible = False
  658. List18.Visible = False
  659. List19.Visible = False
  660. List20.Visible = False
  661. List21.Visible = False
  662. List22.Visible = False
  663. List23.Visible = False
  664. List24.Visible = False
  665. List25.Visible = False
  666. ElseIf Combo1.ListIndex = 8 Then
  667. List1.Visible = False
  668. List2.Visible = False
  669. List3.Visible = False
  670. List4.Visible = False
  671. List5.Visible = False
  672. List6.Visible = False
  673. List7.Visible = False
  674. List8.Visible = False
  675. List9.Visible = True
  676. List10.Visible = False
  677. List11.Visible = False
  678. List12.Visible = False
  679. List13.Visible = False
  680. List14.Visible = False
  681. List15.Visible = False
  682. List16.Visible = False
  683. List17.Visible = False
  684. List18.Visible = False
  685. List19.Visible = False
  686. List20.Visible = False
  687. List21.Visible = False
  688. List22.Visible = False
  689. List23.Visible = False
  690. List24.Visible = False
  691. List25.Visible = False
  692. ElseIf Combo1.ListIndex = 9 Then
  693. List1.Visible = False
  694. List2.Visible = False
  695. List3.Visible = False
  696. List4.Visible = False
  697. List5.Visible = False
  698. List6.Visible = False
  699. List7.Visible = False
  700. List8.Visible = False
  701. List9.Visible = False
  702. List10.Visible = True
  703. List11.Visible = False
  704. List12.Visible = False
  705. List13.Visible = False
  706. List14.Visible = False
  707. List15.Visible = False
  708. List16.Visible = False
  709. List17.Visible = False
  710. List18.Visible = False
  711. List19.Visible = False
  712. List20.Visible = False
  713. List21.Visible = False
  714. List22.Visible = False
  715. List23.Visible = False
  716. List24.Visible = False
  717. List25.Visible = False
  718. ElseIf Combo1.ListIndex = 10 Then
  719. List1.Visible = False
  720. List2.Visible = False
  721. List3.Visible = False
  722. List4.Visible = False
  723. List5.Visible = False
  724. List6.Visible = False
  725. List7.Visible = False
  726. List8.Visible = False
  727. List9.Visible = False
  728. List10.Visible = False
  729. List11.Visible = True
  730. List12.Visible = False
  731. List13.Visible = False
  732. List14.Visible = False
  733. List15.Visible = False
  734. List16.Visible = False
  735. List17.Visible = False
  736. List18.Visible = False
  737. List19.Visible = False
  738. List20.Visible = False
  739. List21.Visible = False
  740. List22.Visible = False
  741. List23.Visible = False
  742. List24.Visible = False
  743. List25.Visible = False
  744. ElseIf Combo1.ListIndex = 11 Then
  745. List1.Visible = False
  746. List2.Visible = False
  747. List3.Visible = False
  748. List4.Visible = False
  749. List5.Visible = False
  750. List6.Visible = False
  751. List7.Visible = False
  752. List8.Visible = False
  753. List9.Visible = False
  754. List10.Visible = False
  755. List11.Visible = False
  756. List12.Visible = True
  757. List13.Visible = False
  758. List14.Visible = False
  759. List15.Visible = False
  760. List16.Visible = False
  761. List17.Visible = False
  762. List18.Visible = False
  763. List19.Visible = False
  764. List20.Visible = False
  765. List21.Visible = False
  766. List22.Visible = False
  767. List23.Visible = False
  768. List24.Visible = False
  769. List25.Visible = False
  770. ElseIf Combo1.ListIndex = 12 Then
  771. List1.Visible = False
  772. List2.Visible = False
  773. List3.Visible = False
  774. List4.Visible = False
  775. List5.Visible = False
  776. List6.Visible = False
  777. List7.Visible = False
  778. List8.Visible = False
  779. List9.Visible = False
  780. List10.Visible = False
  781. List11.Visible = False
  782. List12.Visible = False
  783. List13.Visible = True
  784. List14.Visible = False
  785. List15.Visible = False
  786. List16.Visible = False
  787. List17.Visible = False
  788. List18.Visible = False
  789. List19.Visible = False
  790. List20.Visible = False
  791. List21.Visible = False
  792. List22.Visible = False
  793. List23.Visible = False
  794. List24.Visible = False
  795. List25.Visible = False
  796. ElseIf Combo1.ListIndex = 13 Then
  797. List1.Visible = False
  798. List2.Visible = False
  799. List3.Visible = False
  800. List4.Visible = False
  801. List5.Visible = False
  802. List6.Visible = False
  803. List7.Visible = False
  804. List8.Visible = False
  805. List9.Visible = False
  806. List10.Visible = False
  807. List11.Visible = False
  808. List12.Visible = False
  809. List13.Visible = False
  810. List14.Visible = True
  811. List15.Visible = False
  812. List16.Visible = False
  813. List17.Visible = False
  814. List18.Visible = False
  815. List19.Visible = False
  816. List20.Visible = False
  817. List21.Visible = False
  818. List22.Visible = False
  819. List23.Visible = False
  820. List24.Visible = False
  821. List25.Visible = False
  822. ElseIf Combo1.ListIndex = 14 Then
  823. List1.Visible = False
  824. List2.Visible = False
  825. List3.Visible = False
  826. List4.Visible = False
  827. List5.Visible = False
  828. List6.Visible = False
  829. List7.Visible = False
  830. List8.Visible = False
  831. List9.Visible = False
  832. List10.Visible = False
  833. List11.Visible = False
  834. List12.Visible = False
  835. List13.Visible = False
  836. List14.Visible = False
  837. List15.Visible = True
  838. List16.Visible = False
  839. List17.Visible = False
  840. List18.Visible = False
  841. List19.Visible = False
  842. List20.Visible = False
  843. List21.Visible = False
  844. List22.Visible = False
  845. List23.Visible = False
  846. List24.Visible = False
  847. List25.Visible = False
  848. ElseIf Combo1.ListIndex = 15 Then
  849. List1.Visible = False
  850. List2.Visible = False
  851. List3.Visible = False
  852. List4.Visible = False
  853. List5.Visible = False
  854. List6.Visible = False
  855. List7.Visible = False
  856. List8.Visible = False
  857. List9.Visible = False
  858. List10.Visible = False
  859. List11.Visible = False
  860. List12.Visible = False
  861. List13.Visible = False
  862. List14.Visible = False
  863. List15.Visible = False
  864. List16.Visible = True
  865. List17.Visible = False
  866. List18.Visible = False
  867. List19.Visible = False
  868. List20.Visible = False
  869. List21.Visible = False
  870. List22.Visible = False
  871. List23.Visible = False
  872. List24.Visible = False
  873. List25.Visible = False
  874. ElseIf Combo1.ListIndex = 16 Then
  875. List1.Visible = False
  876. List2.Visible = False
  877. List3.Visible = False
  878. List4.Visible = False
  879. List5.Visible = False
  880. List6.Visible = False
  881. List7.Visible = False
  882. List8.Visible = False
  883. List9.Visible = False
  884. List10.Visible = False
  885. List11.Visible = False
  886. List12.Visible = False
  887. List13.Visible = False
  888. List14.Visible = False
  889. List15.Visible = False
  890. List16.Visible = False
  891. List17.Visible = True
  892. List18.Visible = False
  893. List19.Visible = False
  894. List20.Visible = False
  895. List21.Visible = False
  896. List22.Visible = False
  897. List23.Visible = False
  898. List24.Visible = False
  899. List25.Visible = False
  900. ElseIf Combo1.ListIndex = 17 Then
  901. List1.Visible = False
  902. List2.Visible = False
  903. List3.Visible = False
  904. List4.Visible = False
  905. List5.Visible = False
  906. List6.Visible = False
  907. List7.Visible = False
  908. List8.Visible = False
  909. List9.Visible = False
  910. List10.Visible = False
  911. List11.Visible = False
  912. List12.Visible = False
  913. List13.Visible = False
  914. List14.Visible = False
  915. List15.Visible = False
  916. List16.Visible = False
  917. List17.Visible = False
  918. List18.Visible = True
  919. List19.Visible = False
  920. List20.Visible = False
  921. List21.Visible = False
  922. List22.Visible = False
  923. List23.Visible = False
  924. List24.Visible = False
  925. List25.Visible = False
  926. ElseIf Combo1.ListIndex = 18 Then
  927. List1.Visible = False
  928. List2.Visible = False
  929. List3.Visible = False
  930. List4.Visible = False
  931. List5.Visible = False
  932. List6.Visible = False
  933. List7.Visible = False
  934. List8.Visible = False
  935. List9.Visible = False
  936. List10.Visible = False
  937. List11.Visible = False
  938. List12.Visible = False
  939. List13.Visible = False
  940. List14.Visible = False
  941. List15.Visible = False
  942. List16.Visible = False
  943. List17.Visible = False
  944. List18.Visible = False
  945. List19.Visible = True
  946. List20.Visible = False
  947. List21.Visible = False
  948. List22.Visible = False
  949. List23.Visible = False
  950. List24.Visible = False
  951. List25.Visible = False
  952. ElseIf Combo1.ListIndex = 19 Then
  953. List1.Visible = False
  954. List2.Visible = False
  955. List3.Visible = False
  956. List4.Visible = False
  957. List5.Visible = False
  958. List6.Visible = False
  959. List7.Visible = False
  960. List8.Visible = False
  961. List9.Visible = False
  962. List10.Visible = False
  963. List11.Visible = False
  964. List12.Visible = False
  965. List13.Visible = False
  966. List14.Visible = False
  967. List15.Visible = False
  968. List16.Visible = False
  969. List17.Visible = False
  970. List18.Visible = False
  971. List19.Visible = False
  972. List20.Visible = True
  973. List21.Visible = False
  974. List22.Visible = False
  975. List23.Visible = False
  976. List24.Visible = False
  977. List25.Visible = False
  978. ElseIf Combo1.ListIndex = 20 Then
  979. List1.Visible = False
  980. List2.Visible = False
  981. List3.Visible = False
  982. List4.Visible = False
  983. List5.Visible = False
  984. List6.Visible = False
  985. List7.Visible = False
  986. List8.Visible = False
  987. List9.Visible = False
  988. List10.Visible = False
  989. List11.Visible = False
  990. List12.Visible = False
  991. List13.Visible = False
  992. List14.Visible = False
  993. List15.Visible = False
  994. List16.Visible = False
  995. List17.Visible = False
  996. List18.Visible = False
  997. List19.Visible = False
  998. List20.Visible = False
  999. List21.Visible = True
  1000. List22.Visible = False
  1001. List23.Visible = False
  1002. List24.Visible = False
  1003. List25.Visible = False
  1004. ElseIf Combo1.ListIndex = 21 Then
  1005. List1.Visible = False
  1006. List2.Visible = False
  1007. List3.Visible = False
  1008. List4.Visible = False
  1009. List5.Visible = False
  1010. List6.Visible = False
  1011. List7.Visible = False
  1012. List8.Visible = False
  1013. List9.Visible = False
  1014. List10.Visible = False
  1015. List11.Visible = False
  1016. List12.Visible = False
  1017. List13.Visible = False
  1018. List14.Visible = False
  1019. List15.Visible = False
  1020. List16.Visible = False
  1021. List17.Visible = False
  1022. List18.Visible = False
  1023. List19.Visible = False
  1024. List20.Visible = False
  1025. List21.Visible = False
  1026. List22.Visible = True
  1027. List23.Visible = False
  1028. List24.Visible = False
  1029. List25.Visible = False
  1030. ElseIf Combo1.ListIndex = 22 Then
  1031. List1.Visible = False
  1032. List2.Visible = False
  1033. List3.Visible = False
  1034. List4.Visible = False
  1035. List5.Visible = False
  1036. List6.Visible = False
  1037. List7.Visible = False
  1038. List8.Visible = False
  1039. List9.Visible = False
  1040. List10.Visible = False
  1041. List11.Visible = False
  1042. List12.Visible = False
  1043. List13.Visible = False
  1044. List14.Visible = False
  1045. List15.Visible = False
  1046. List16.Visible = False
  1047. List17.Visible = False
  1048. List18.Visible = False
  1049. List19.Visible = False
  1050. List20.Visible = False
  1051. List21.Visible = False
  1052. List22.Visible = False
  1053. List23.Visible = True
  1054. List24.Visible = False
  1055. List25.Visible = False
  1056. ElseIf Combo1.ListIndex = 23 Then
  1057. List1.Visible = False
  1058. List2.Visible = False
  1059. List3.Visible = False
  1060. List4.Visible = False
  1061. List5.Visible = False
  1062. List6.Visible = False
  1063. List7.Visible = False
  1064. List8.Visible = False
  1065. List9.Visible = False
  1066. List10.Visible = False
  1067. List11.Visible = False
  1068. List12.Visible = False
  1069. List13.Visible = False
  1070. List14.Visible = False
  1071. List15.Visible = False
  1072. List16.Visible = False
  1073. List17.Visible = False
  1074. List18.Visible = False
  1075. List19.Visible = False
  1076. List20.Visible = False
  1077. List21.Visible = False
  1078. List22.Visible = False
  1079. List23.Visible = False
  1080. List24.Visible = True
  1081. List25.Visible = False
  1082. ElseIf Combo1.ListIndex = 24 Then
  1083. List1.Visible = False
  1084. List2.Visible = False
  1085. List3.Visible = False
  1086. List4.Visible = False
  1087. List5.Visible = False
  1088. List6.Visible = False
  1089. List7.Visible = False
  1090. List8.Visible = False
  1091. List9.Visible = False
  1092. List10.Visible = False
  1093. List11.Visible = False
  1094. List12.Visible = False
  1095. List13.Visible = False
  1096. List14.Visible = False
  1097. List15.Visible = False
  1098. List16.Visible = False
  1099. List17.Visible = False
  1100. List18.Visible = False
  1101. List19.Visible = False
  1102. List20.Visible = False
  1103. List21.Visible = False
  1104. List22.Visible = False
  1105. List23.Visible = False
  1106. List24.Visible = False
  1107. List25.Visible = True
  1108. End If
  1109.  
  1110. End Sub
  1111.  
  1112.  

Share this Question
Share on Google+
6 Replies


P: 7
Any help would be appreciated here. Not asking someone to do the work for me, I'm just looking to be pointed in the right direction.
Google isn't helpful and just gives me unrelated listbox links.
closest I could find was a youtube video titled "VB Listbox Example 4: Working with multiple lists - syncronising them" but it doesn't help me as it is for .net not VB6.
2 Weeks Ago #2

P: 7
perhaps a control array? layer a bunch of listboxes on top of each other and use the combobox to change the index and which one is visible and being altered?

guess I'll trying tinkering with that idea since I can't get any help.
2 Weeks Ago #3

P: 7
So far no luck. An array doesn't seem to work. Seems a listbox array shares data. Adding seems to add to the same listbox and removing doesn't seem to work. (Timer is on 10ms)

Expand|Select|Wrap|Line Numbers
  1. Private Sub Command1_Click()
  2. List1(Index).AddItem Text1.Text
  3. Text1.Text = ""
  4. End Sub
  5.  
  6. Private Sub Command2_Click()
  7. If List1(Index).ListIndex > -1 Then
  8. List1(Index).RemoveItem List1(Index).ListIndex
  9. End If
  10. End Sub
  11.  
  12. Private Sub Command4_Click()
  13. Me.Hide
  14. End Sub
  15.  
  16. Private Sub Form_Load()
  17. Combo1.AddItem "Rack 1"
  18. Combo1.AddItem "Rack 2"
  19. Combo1.AddItem "Rack 3"
  20. Combo1.AddItem "Rack 4"
  21. Combo1.AddItem "Rack 5"
  22. Combo1.AddItem "Rack 6"
  23. Combo1.AddItem "Rack 7"
  24. Combo1.AddItem "Rack 8"
  25. Combo1.AddItem "Rack 9"
  26. Combo1.AddItem "Rack 10"
  27. Combo1.AddItem "Rack 11"
  28. Combo1.AddItem "Rack 12"
  29. Combo1.AddItem "Rack 13"
  30. Combo1.AddItem "Rack 14"
  31. Combo1.AddItem "Rack 15"
  32. Combo1.AddItem "Rack 16"
  33. Combo1.AddItem "Rack 17"
  34. Combo1.AddItem "Rack 18"
  35. Combo1.AddItem "Rack 19"
  36. Combo1.AddItem "Rack 20"
  37. Combo1.AddItem "Rack 21"
  38. Combo1.AddItem "Rack 22"
  39. Combo1.AddItem "Rack 23"
  40. Combo1.AddItem "Rack 24"
  41. Combo1.AddItem "Rack 25"
  42. Combo1.ListIndex = 1
  43. List1(Index) = Combo1.ListIndex
  44. List1(Index).Visible = True
  45. End Sub
  46.  
  47. Private Sub Timer1_Timer()
  48. List1(Index) = Combo1.ListIndex
  49. List1(Index).Visible = True
  50. If List1(0).Visible = True Then
  51. List1(1).Visible = False
  52. List1(2).Visible = False
  53. List1(3).Visible = False
  54. List1(4).Visible = False
  55. List1(5).Visible = False
  56. List1(6).Visible = False
  57. List1(7).Visible = False
  58. List1(8).Visible = False
  59. List1(9).Visible = False
  60. List1(10).Visible = False
  61. List1(11).Visible = False
  62. List1(12).Visible = False
  63. List1(13).Visible = False
  64. List1(14).Visible = False
  65. List1(15).Visible = False
  66. List1(16).Visible = False
  67. List1(17).Visible = False
  68. List1(18).Visible = False
  69. List1(19).Visible = False
  70. List1(20).Visible = False
  71. List1(21).Visible = False
  72. List1(22).Visible = False
  73. List1(23).Visible = False
  74. List1(24).Visible = False
  75. ElseIf List1(1).Visible = True Then
  76. List1(0).Visible = False
  77. List1(2).Visible = False
  78. List1(3).Visible = False
  79. List1(4).Visible = False
  80. List1(5).Visible = False
  81. List1(6).Visible = False
  82. List1(7).Visible = False
  83. List1(8).Visible = False
  84. List1(9).Visible = False
  85. List1(10).Visible = False
  86. List1(11).Visible = False
  87. List1(12).Visible = False
  88. List1(13).Visible = False
  89. List1(14).Visible = False
  90. List1(15).Visible = False
  91. List1(16).Visible = False
  92. List1(17).Visible = False
  93. List1(18).Visible = False
  94. List1(19).Visible = False
  95. List1(20).Visible = False
  96. List1(21).Visible = False
  97. List1(22).Visible = False
  98. List1(23).Visible = False
  99. List1(24).Visible = False
  100. ElseIf List1(2).Visible = True Then
  101. List1(0).Visible = False
  102. List1(1).Visible = False
  103. List1(3).Visible = False
  104. List1(4).Visible = False
  105. List1(5).Visible = False
  106. List1(6).Visible = False
  107. List1(7).Visible = False
  108. List1(8).Visible = False
  109. List1(9).Visible = False
  110. List1(10).Visible = False
  111. List1(11).Visible = False
  112. List1(12).Visible = False
  113. List1(13).Visible = False
  114. List1(14).Visible = False
  115. List1(15).Visible = False
  116. List1(16).Visible = False
  117. List1(17).Visible = False
  118. List1(18).Visible = False
  119. List1(19).Visible = False
  120. List1(20).Visible = False
  121. List1(21).Visible = False
  122. List1(22).Visible = False
  123. List1(23).Visible = False
  124. List1(24).Visible = False
  125. ElseIf List1(3).Visible = True Then
  126. List1(0).Visible = False
  127. List1(1).Visible = False
  128. List1(2).Visible = False
  129. List1(4).Visible = False
  130. List1(5).Visible = False
  131. List1(6).Visible = False
  132. List1(7).Visible = False
  133. List1(8).Visible = False
  134. List1(9).Visible = False
  135. List1(10).Visible = False
  136. List1(11).Visible = False
  137. List1(12).Visible = False
  138. List1(13).Visible = False
  139. List1(14).Visible = False
  140. List1(15).Visible = False
  141. List1(16).Visible = False
  142. List1(17).Visible = False
  143. List1(18).Visible = False
  144. List1(19).Visible = False
  145. List1(20).Visible = False
  146. List1(21).Visible = False
  147. List1(22).Visible = False
  148. List1(23).Visible = False
  149. List1(24).Visible = False
  150. ElseIf List1(4).Visible = True Then
  151. List1(0).Visible = False
  152. List1(1).Visible = False
  153. List1(2).Visible = False
  154. List1(3).Visible = False
  155. List1(5).Visible = False
  156. List1(6).Visible = False
  157. List1(7).Visible = False
  158. List1(8).Visible = False
  159. List1(9).Visible = False
  160. List1(10).Visible = False
  161. List1(11).Visible = False
  162. List1(12).Visible = False
  163. List1(13).Visible = False
  164. List1(14).Visible = False
  165. List1(15).Visible = False
  166. List1(16).Visible = False
  167. List1(17).Visible = False
  168. List1(18).Visible = False
  169. List1(19).Visible = False
  170. List1(20).Visible = False
  171. List1(21).Visible = False
  172. List1(22).Visible = False
  173. List1(23).Visible = False
  174. List1(24).Visible = False
  175. ElseIf List1(5).Visible = True Then
  176. List1(0).Visible = False
  177. List1(1).Visible = False
  178. List1(2).Visible = False
  179. List1(3).Visible = False
  180. List1(4).Visible = False
  181. List1(6).Visible = False
  182. List1(7).Visible = False
  183. List1(8).Visible = False
  184. List1(9).Visible = False
  185. List1(10).Visible = False
  186. List1(11).Visible = False
  187. List1(12).Visible = False
  188. List1(13).Visible = False
  189. List1(14).Visible = False
  190. List1(15).Visible = False
  191. List1(16).Visible = False
  192. List1(17).Visible = False
  193. List1(18).Visible = False
  194. List1(19).Visible = False
  195. List1(20).Visible = False
  196. List1(21).Visible = False
  197. List1(22).Visible = False
  198. List1(23).Visible = False
  199. List1(24).Visible = False
  200. ElseIf List1(6).Visible = True Then
  201. List1(0).Visible = False
  202. List1(1).Visible = False
  203. List1(2).Visible = False
  204. List1(3).Visible = False
  205. List1(4).Visible = False
  206. List1(5).Visible = False
  207. List1(7).Visible = False
  208. List1(8).Visible = False
  209. List1(9).Visible = False
  210. List1(10).Visible = False
  211. List1(11).Visible = False
  212. List1(12).Visible = False
  213. List1(13).Visible = False
  214. List1(14).Visible = False
  215. List1(15).Visible = False
  216. List1(16).Visible = False
  217. List1(17).Visible = False
  218. List1(18).Visible = False
  219. List1(19).Visible = False
  220. List1(20).Visible = False
  221. List1(21).Visible = False
  222. List1(22).Visible = False
  223. List1(23).Visible = False
  224. List1(24).Visible = False
  225. ElseIf List1(7).Visible = True Then
  226. List1(0).Visible = False
  227. List1(1).Visible = False
  228. List1(2).Visible = False
  229. List1(3).Visible = False
  230. List1(4).Visible = False
  231. List1(5).Visible = False
  232. List1(6).Visible = False
  233. List1(8).Visible = False
  234. List1(9).Visible = False
  235. List1(10).Visible = False
  236. List1(11).Visible = False
  237. List1(12).Visible = False
  238. List1(13).Visible = False
  239. List1(14).Visible = False
  240. List1(15).Visible = False
  241. List1(16).Visible = False
  242. List1(17).Visible = False
  243. List1(18).Visible = False
  244. List1(19).Visible = False
  245. List1(20).Visible = False
  246. List1(21).Visible = False
  247. List1(22).Visible = False
  248. List1(23).Visible = False
  249. List1(24).Visible = False
  250. ElseIf List1(8).Visible = True Then
  251. List1(0).Visible = False
  252. List1(1).Visible = False
  253. List1(2).Visible = False
  254. List1(3).Visible = False
  255. List1(4).Visible = False
  256. List1(5).Visible = False
  257. List1(6).Visible = False
  258. List1(7).Visible = False
  259. List1(9).Visible = False
  260. List1(10).Visible = False
  261. List1(11).Visible = False
  262. List1(12).Visible = False
  263. List1(13).Visible = False
  264. List1(14).Visible = False
  265. List1(15).Visible = False
  266. List1(16).Visible = False
  267. List1(17).Visible = False
  268. List1(18).Visible = False
  269. List1(19).Visible = False
  270. List1(20).Visible = False
  271. List1(21).Visible = False
  272. List1(22).Visible = False
  273. List1(23).Visible = False
  274. List1(24).Visible = False
  275. ElseIf List1(9).Visible = True Then
  276. List1(0).Visible = False
  277. List1(1).Visible = False
  278. List1(2).Visible = False
  279. List1(3).Visible = False
  280. List1(4).Visible = False
  281. List1(5).Visible = False
  282. List1(6).Visible = False
  283. List1(7).Visible = False
  284. List1(8).Visible = False
  285. List1(10).Visible = False
  286. List1(11).Visible = False
  287. List1(12).Visible = False
  288. List1(13).Visible = False
  289. List1(14).Visible = False
  290. List1(15).Visible = False
  291. List1(16).Visible = False
  292. List1(17).Visible = False
  293. List1(18).Visible = False
  294. List1(19).Visible = False
  295. List1(20).Visible = False
  296. List1(21).Visible = False
  297. List1(22).Visible = False
  298. List1(23).Visible = False
  299. List1(24).Visible = False
  300. ElseIf List1(10).Visible = True Then
  301. List1(0).Visible = False
  302. List1(1).Visible = False
  303. List1(2).Visible = False
  304. List1(3).Visible = False
  305. List1(4).Visible = False
  306. List1(5).Visible = False
  307. List1(6).Visible = False
  308. List1(7).Visible = False
  309. List1(8).Visible = False
  310. List1(9).Visible = False
  311. List1(11).Visible = False
  312. List1(12).Visible = False
  313. List1(13).Visible = False
  314. List1(14).Visible = False
  315. List1(15).Visible = False
  316. List1(16).Visible = False
  317. List1(17).Visible = False
  318. List1(18).Visible = False
  319. List1(19).Visible = False
  320. List1(20).Visible = False
  321. List1(21).Visible = False
  322. List1(22).Visible = False
  323. List1(23).Visible = False
  324. List1(24).Visible = False
  325. ElseIf List1(11).Visible = True Then
  326. List1(0).Visible = False
  327. List1(1).Visible = False
  328. List1(2).Visible = False
  329. List1(3).Visible = False
  330. List1(4).Visible = False
  331. List1(5).Visible = False
  332. List1(6).Visible = False
  333. List1(7).Visible = False
  334. List1(8).Visible = False
  335. List1(9).Visible = False
  336. List1(10).Visible = False
  337. List1(12).Visible = False
  338. List1(13).Visible = False
  339. List1(14).Visible = False
  340. List1(15).Visible = False
  341. List1(16).Visible = False
  342. List1(17).Visible = False
  343. List1(18).Visible = False
  344. List1(19).Visible = False
  345. List1(20).Visible = False
  346. List1(21).Visible = False
  347. List1(22).Visible = False
  348. List1(23).Visible = False
  349. List1(24).Visible = False
  350. ElseIf List1(12).Visible = True Then
  351. List1(0).Visible = False
  352. List1(1).Visible = False
  353. List1(2).Visible = False
  354. List1(3).Visible = False
  355. List1(4).Visible = False
  356. List1(5).Visible = False
  357. List1(6).Visible = False
  358. List1(7).Visible = False
  359. List1(8).Visible = False
  360. List1(9).Visible = False
  361. List1(10).Visible = False
  362. List1(11).Visible = False
  363. List1(13).Visible = False
  364. List1(14).Visible = False
  365. List1(15).Visible = False
  366. List1(16).Visible = False
  367. List1(17).Visible = False
  368. List1(18).Visible = False
  369. List1(19).Visible = False
  370. List1(20).Visible = False
  371. List1(21).Visible = False
  372. List1(22).Visible = False
  373. List1(23).Visible = False
  374. List1(24).Visible = False
  375. ElseIf List1(13).Visible = True Then
  376. List1(0).Visible = False
  377. List1(1).Visible = False
  378. List1(2).Visible = False
  379. List1(3).Visible = False
  380. List1(4).Visible = False
  381. List1(5).Visible = False
  382. List1(6).Visible = False
  383. List1(7).Visible = False
  384. List1(8).Visible = False
  385. List1(9).Visible = False
  386. List1(10).Visible = False
  387. List1(11).Visible = False
  388. List1(12).Visible = False
  389. List1(14).Visible = False
  390. List1(15).Visible = False
  391. List1(16).Visible = False
  392. List1(17).Visible = False
  393. List1(18).Visible = False
  394. List1(19).Visible = False
  395. List1(20).Visible = False
  396. List1(21).Visible = False
  397. List1(22).Visible = False
  398. List1(23).Visible = False
  399. List1(24).Visible = False
  400. ElseIf List1(14).Visible = True Then
  401. List1(0).Visible = False
  402. List1(1).Visible = False
  403. List1(2).Visible = False
  404. List1(3).Visible = False
  405. List1(4).Visible = False
  406. List1(5).Visible = False
  407. List1(6).Visible = False
  408. List1(7).Visible = False
  409. List1(8).Visible = False
  410. List1(9).Visible = False
  411. List1(10).Visible = False
  412. List1(11).Visible = False
  413. List1(12).Visible = False
  414. List1(13).Visible = False
  415. List1(15).Visible = False
  416. List1(16).Visible = False
  417. List1(17).Visible = False
  418. List1(18).Visible = False
  419. List1(19).Visible = False
  420. List1(20).Visible = False
  421. List1(21).Visible = False
  422. List1(22).Visible = False
  423. List1(23).Visible = False
  424. List1(24).Visible = False
  425. ElseIf List1(15).Visible = True Then
  426. List1(0).Visible = False
  427. List1(1).Visible = False
  428. List1(2).Visible = False
  429. List1(3).Visible = False
  430. List1(4).Visible = False
  431. List1(5).Visible = False
  432. List1(6).Visible = False
  433. List1(7).Visible = False
  434. List1(8).Visible = False
  435. List1(9).Visible = False
  436. List1(10).Visible = False
  437. List1(11).Visible = False
  438. List1(12).Visible = False
  439. List1(13).Visible = False
  440. List1(14).Visible = False
  441. List1(16).Visible = False
  442. List1(17).Visible = False
  443. List1(18).Visible = False
  444. List1(19).Visible = False
  445. List1(20).Visible = False
  446. List1(21).Visible = False
  447. List1(22).Visible = False
  448. List1(23).Visible = False
  449. List1(24).Visible = False
  450. ElseIf List1(16).Visible = True Then
  451. List1(0).Visible = False
  452. List1(1).Visible = False
  453. List1(2).Visible = False
  454. List1(3).Visible = False
  455. List1(4).Visible = False
  456. List1(5).Visible = False
  457. List1(6).Visible = False
  458. List1(7).Visible = False
  459. List1(8).Visible = False
  460. List1(9).Visible = False
  461. List1(10).Visible = False
  462. List1(11).Visible = False
  463. List1(12).Visible = False
  464. List1(13).Visible = False
  465. List1(14).Visible = False
  466. List1(15).Visible = False
  467. List1(17).Visible = False
  468. List1(18).Visible = False
  469. List1(19).Visible = False
  470. List1(20).Visible = False
  471. List1(21).Visible = False
  472. List1(22).Visible = False
  473. List1(23).Visible = False
  474. List1(24).Visible = False
  475. ElseIf List1(17).Visible = True Then
  476. List1(0).Visible = False
  477. List1(1).Visible = False
  478. List1(2).Visible = False
  479. List1(3).Visible = False
  480. List1(4).Visible = False
  481. List1(5).Visible = False
  482. List1(6).Visible = False
  483. List1(7).Visible = False
  484. List1(8).Visible = False
  485. List1(9).Visible = False
  486. List1(10).Visible = False
  487. List1(11).Visible = False
  488. List1(12).Visible = False
  489. List1(13).Visible = False
  490. List1(14).Visible = False
  491. List1(15).Visible = False
  492. List1(16).Visible = False
  493. List1(18).Visible = False
  494. List1(19).Visible = False
  495. List1(20).Visible = False
  496. List1(21).Visible = False
  497. List1(22).Visible = False
  498. List1(23).Visible = False
  499. List1(24).Visible = False
  500. ElseIf List1(18).Visible = True Then
  501. List1(0).Visible = False
  502. List1(1).Visible = False
  503. List1(2).Visible = False
  504. List1(3).Visible = False
  505. List1(4).Visible = False
  506. List1(5).Visible = False
  507. List1(6).Visible = False
  508. List1(7).Visible = False
  509. List1(8).Visible = False
  510. List1(9).Visible = False
  511. List1(10).Visible = False
  512. List1(11).Visible = False
  513. List1(12).Visible = False
  514. List1(13).Visible = False
  515. List1(14).Visible = False
  516. List1(15).Visible = False
  517. List1(16).Visible = False
  518. List1(17).Visible = False
  519. List1(19).Visible = False
  520. List1(20).Visible = False
  521. List1(21).Visible = False
  522. List1(22).Visible = False
  523. List1(23).Visible = False
  524. List1(24).Visible = False
  525. ElseIf List1(19).Visible = True Then
  526. List1(0).Visible = False
  527. List1(1).Visible = False
  528. List1(2).Visible = False
  529. List1(3).Visible = False
  530. List1(4).Visible = False
  531. List1(5).Visible = False
  532. List1(6).Visible = False
  533. List1(7).Visible = False
  534. List1(8).Visible = False
  535. List1(9).Visible = False
  536. List1(10).Visible = False
  537. List1(11).Visible = False
  538. List1(12).Visible = False
  539. List1(13).Visible = False
  540. List1(14).Visible = False
  541. List1(15).Visible = False
  542. List1(16).Visible = False
  543. List1(17).Visible = False
  544. List1(18).Visible = False
  545. List1(20).Visible = False
  546. List1(21).Visible = False
  547. List1(22).Visible = False
  548. List1(23).Visible = False
  549. List1(24).Visible = False
  550. ElseIf List1(20).Visible = True Then
  551. List1(0).Visible = False
  552. List1(1).Visible = False
  553. List1(2).Visible = False
  554. List1(3).Visible = False
  555. List1(4).Visible = False
  556. List1(5).Visible = False
  557. List1(6).Visible = False
  558. List1(7).Visible = False
  559. List1(8).Visible = False
  560. List1(9).Visible = False
  561. List1(10).Visible = False
  562. List1(11).Visible = False
  563. List1(12).Visible = False
  564. List1(13).Visible = False
  565. List1(14).Visible = False
  566. List1(15).Visible = False
  567. List1(16).Visible = False
  568. List1(17).Visible = False
  569. List1(18).Visible = False
  570. List1(19).Visible = False
  571. List1(21).Visible = False
  572. List1(22).Visible = False
  573. List1(23).Visible = False
  574. List1(24).Visible = False
  575. ElseIf List1(21).Visible = True Then
  576. List1(0).Visible = False
  577. List1(1).Visible = False
  578. List1(2).Visible = False
  579. List1(3).Visible = False
  580. List1(4).Visible = False
  581. List1(5).Visible = False
  582. List1(6).Visible = False
  583. List1(7).Visible = False
  584. List1(8).Visible = False
  585. List1(9).Visible = False
  586. List1(10).Visible = False
  587. List1(11).Visible = False
  588. List1(12).Visible = False
  589. List1(13).Visible = False
  590. List1(14).Visible = False
  591. List1(15).Visible = False
  592. List1(16).Visible = False
  593. List1(17).Visible = False
  594. List1(18).Visible = False
  595. List1(19).Visible = False
  596. List1(20).Visible = False
  597. List1(22).Visible = False
  598. List1(23).Visible = False
  599. List1(24).Visible = False
  600. ElseIf List1(22).Visible = True Then
  601. List1(0).Visible = False
  602. List1(1).Visible = False
  603. List1(2).Visible = False
  604. List1(3).Visible = False
  605. List1(4).Visible = False
  606. List1(5).Visible = False
  607. List1(6).Visible = False
  608. List1(7).Visible = False
  609. List1(8).Visible = False
  610. List1(9).Visible = False
  611. List1(10).Visible = False
  612. List1(11).Visible = False
  613. List1(12).Visible = False
  614. List1(13).Visible = False
  615. List1(14).Visible = False
  616. List1(15).Visible = False
  617. List1(16).Visible = False
  618. List1(17).Visible = False
  619. List1(18).Visible = False
  620. List1(19).Visible = False
  621. List1(20).Visible = False
  622. List1(21).Visible = False
  623. List1(23).Visible = False
  624. List1(24).Visible = False
  625. ElseIf List1(23).Visible = True Then
  626. List1(0).Visible = False
  627. List1(1).Visible = False
  628. List1(2).Visible = False
  629. List1(3).Visible = False
  630. List1(4).Visible = False
  631. List1(5).Visible = False
  632. List1(6).Visible = False
  633. List1(7).Visible = False
  634. List1(8).Visible = False
  635. List1(9).Visible = False
  636. List1(10).Visible = False
  637. List1(11).Visible = False
  638. List1(12).Visible = False
  639. List1(13).Visible = False
  640. List1(14).Visible = False
  641. List1(15).Visible = False
  642. List1(16).Visible = False
  643. List1(17).Visible = False
  644. List1(18).Visible = False
  645. List1(19).Visible = False
  646. List1(20).Visible = False
  647. List1(21).Visible = False
  648. List1(22).Visible = False
  649. List1(24).Visible = False
  650. ElseIf List1(24).Visible = True Then
  651. List1(0).Visible = False
  652. List1(1).Visible = False
  653. List1(2).Visible = False
  654. List1(3).Visible = False
  655. List1(4).Visible = False
  656. List1(5).Visible = False
  657. List1(6).Visible = False
  658. List1(7).Visible = False
  659. List1(8).Visible = False
  660. List1(9).Visible = False
  661. List1(10).Visible = False
  662. List1(11).Visible = False
  663. List1(12).Visible = False
  664. List1(13).Visible = False
  665. List1(14).Visible = False
  666. List1(15).Visible = False
  667. List1(16).Visible = False
  668. List1(17).Visible = False
  669. List1(18).Visible = False
  670. List1(19).Visible = False
  671. List1(20).Visible = False
  672. List1(21).Visible = False
  673. List1(22).Visible = False
  674. List1(23).Visible = False
  675. End If
  676. End Sub
  677.  
  678.  
1 Week Ago #4

P: 7
Also, Already tried using the Excel insert-able object on the form, however to be able to edit it required the xls document to be displayed on the form in an OLE window on the frame and if you wanted to edit it, it would open an instance of Excel instead of being able to edit it on the VB form so I scrapped that idea and tried the Array idea.
1 Week Ago #5

P: 7
If anyone is interested, The array didn't work, but separate listboxes stacked on each other, changing the visibility with the combo index worked.
required a ton of If Then copy and paste. Code Follows

Expand|Select|Wrap|Line Numbers
  1. Private Sub Command1_Click()
  2. If List1.Visible = True Then
  3. List1.AddItem Text1.Text
  4. Text1.Text = ""
  5. ElseIf List2.Visible = True Then
  6. List2.AddItem Text1.Text
  7. Text1.Text = ""
  8. ElseIf List3.Visible = True Then
  9. List3.AddItem Text1.Text
  10. Text1.Text = ""
  11. ElseIf List4.Visible = True Then
  12. List4.AddItem Text1.Text
  13. Text1.Text = ""
  14. ElseIf List5.Visible = True Then
  15. List5.AddItem Text1.Text
  16. Text1.Text = ""
  17. ElseIf List6.Visible = True Then
  18. List6.AddItem Text1.Text
  19. Text1.Text = ""
  20. ElseIf List7.Visible = True Then
  21. List7.AddItem Text1.Text
  22. Text1.Text = ""
  23. ElseIf List8.Visible = True Then
  24. List8.AddItem Text1.Text
  25. Text1.Text = ""
  26. ElseIf List9.Visible = True Then
  27. List9.AddItem Text1.Text
  28. Text1.Text = ""
  29. ElseIf List10.Visible = True Then
  30. List10.AddItem Text1.Text
  31. Text1.Text = ""
  32. ElseIf List11.Visible = True Then
  33. List11.AddItem Text1.Text
  34. Text1.Text = ""
  35. ElseIf List12.Visible = True Then
  36. List12.AddItem Text1.Text
  37. Text1.Text = ""
  38. ElseIf List13.Visible = True Then
  39. List13.AddItem Text1.Text
  40. Text1.Text = ""
  41. ElseIf List14.Visible = True Then
  42. List14.AddItem Text1.Text
  43. Text1.Text = ""
  44. ElseIf List15.Visible = True Then
  45. List15.AddItem Text1.Text
  46. Text1.Text = ""
  47. ElseIf List16.Visible = True Then
  48. List16.AddItem Text1.Text
  49. Text1.Text = ""
  50. ElseIf List17.Visible = True Then
  51. List17.AddItem Text1.Text
  52. Text1.Text = ""
  53. ElseIf List18.Visible = True Then
  54. List18.AddItem Text1.Text
  55. Text1.Text = ""
  56. ElseIf List19.Visible = True Then
  57. List19.AddItem Text1.Text
  58. Text1.Text = ""
  59. ElseIf List20.Visible = True Then
  60. List20.AddItem Text1.Text
  61. Text1.Text = ""
  62. ElseIf List21.Visible = True Then
  63. List21.AddItem Text1.Text
  64. Text1.Text = ""
  65. ElseIf List22.Visible = True Then
  66. List22.AddItem Text1.Text
  67. Text1.Text = ""
  68. ElseIf List23.Visible = True Then
  69. List23.AddItem Text1.Text
  70. Text1.Text = ""
  71. ElseIf List24.Visible = True Then
  72. List24.AddItem Text1.Text
  73. Text1.Text = ""
  74. ElseIf List25.Visible = True Then
  75. List25.AddItem Text1.Text
  76. Text1.Text = ""
  77. End If
  78. End Sub
  79.  
  80. Private Sub Command2_Click()
  81. If List1.Visible And List1.ListIndex > -1 Then
  82. List1.RemoveItem List1.ListIndex
  83. ElseIf List2.Visible And List2.ListIndex > -1 Then
  84. List2.RemoveItem List2.ListIndex
  85. ElseIf List3.Visible And List3.ListIndex > -1 Then
  86. List3.RemoveItem List3.ListIndex
  87. ElseIf List4.Visible And List4.ListIndex > -1 Then
  88. List4.RemoveItem List4.ListIndex
  89. ElseIf List5.Visible And List5.ListIndex > -1 Then
  90. List5.RemoveItem List5.ListIndex
  91. ElseIf List6.Visible And List6.ListIndex > -1 Then
  92. List6.RemoveItem List6.ListIndex
  93. ElseIf List7.Visible And List7.ListIndex > -1 Then
  94. List7.RemoveItem List7.ListIndex
  95. ElseIf List8.Visible And List8.ListIndex > -1 Then
  96. List8.RemoveItem List8.ListIndex
  97. ElseIf List9.Visible And List9.ListIndex > -1 Then
  98. List9.RemoveItem List9.ListIndex
  99. ElseIf List10.Visible And List10.ListIndex > -1 Then
  100. List10.RemoveItem List10.ListIndex
  101. ElseIf List11.Visible And List11.ListIndex > -1 Then
  102. List11.RemoveItem List11.ListIndex
  103. ElseIf List12.Visible And List12.ListIndex > -1 Then
  104. List12.RemoveItem List12.ListIndex
  105. ElseIf List13.Visible And List13.ListIndex > -1 Then
  106. List13.RemoveItem List13.ListIndex
  107. ElseIf List14.Visible And List14.ListIndex > -1 Then
  108. List14.RemoveItem List14.ListIndex
  109. ElseIf List15.Visible And List15.ListIndex > -1 Then
  110. List15.RemoveItem List15.ListIndex
  111. ElseIf List16.Visible And List16.ListIndex > -1 Then
  112. List16.RemoveItem List16.ListIndex
  113. ElseIf List17.Visible And List17.ListIndex > -1 Then
  114. List17.RemoveItem List17.ListIndex
  115. ElseIf List18.Visible And List18.ListIndex > -1 Then
  116. List18.RemoveItem List18.ListIndex
  117. ElseIf List19.Visible And List19.ListIndex > -1 Then
  118. List19.RemoveItem List19.ListIndex
  119. ElseIf List20.Visible And List20.ListIndex > -1 Then
  120. List20.RemoveItem List20.ListIndex
  121. ElseIf List21.Visible And List21.ListIndex > -1 Then
  122. List21.RemoveItem List21.ListIndex
  123. ElseIf List22.Visible And List22.ListIndex > -1 Then
  124. List22.RemoveItem List22.ListIndex
  125. ElseIf List23.Visible And List23.ListIndex > -1 Then
  126. List23.RemoveItem List23.ListIndex
  127. ElseIf List24.Visible And List24.ListIndex > -1 Then
  128. List24.RemoveItem List24.ListIndex
  129. ElseIf List25.Visible And List25.ListIndex > -1 Then
  130. List25.RemoveItem List25.ListIndex
  131. End If
  132. End Sub
  133.  
  134. Private Sub Command4_Click()
  135. Me.Hide
  136. End Sub
  137.  
  138. Private Sub Form_Load()
  139. Combo1.AddItem "Rack 1"
  140. Combo1.AddItem "Rack 2"
  141. Combo1.AddItem "Rack 3"
  142. Combo1.AddItem "Rack 4"
  143. Combo1.AddItem "Rack 5"
  144. Combo1.AddItem "Rack 6"
  145. Combo1.AddItem "Rack 7"
  146. Combo1.AddItem "Rack 8"
  147. Combo1.AddItem "Rack 9"
  148. Combo1.AddItem "Rack 10"
  149. Combo1.AddItem "Rack 11"
  150. Combo1.AddItem "Rack 12"
  151. Combo1.AddItem "Rack 13"
  152. Combo1.AddItem "Rack 14"
  153. Combo1.AddItem "Rack 15"
  154. Combo1.AddItem "Rack 16"
  155. Combo1.AddItem "Rack 17"
  156. Combo1.AddItem "Rack 18"
  157. Combo1.AddItem "Rack 19"
  158. Combo1.AddItem "Rack 20"
  159. Combo1.AddItem "Rack 21"
  160. Combo1.AddItem "Rack 22"
  161. Combo1.AddItem "Rack 23"
  162. Combo1.AddItem "Rack 24"
  163. Combo1.AddItem "Rack 25"
  164. Combo1.ListIndex = 0
  165.  
  166. End Sub
  167.  
  168.  
  169. Private Sub Timer1_Timer()
  170. If Combo1.ListIndex = 0 Then
  171. List1.Visible = True
  172. List2.Visible = False
  173. List3.Visible = False
  174. List4.Visible = False
  175. List5.Visible = False
  176. List6.Visible = False
  177. List7.Visible = False
  178. List8.Visible = False
  179. List9.Visible = False
  180. List10.Visible = False
  181. List11.Visible = False
  182. List12.Visible = False
  183. List13.Visible = False
  184. List14.Visible = False
  185. List15.Visible = False
  186. List16.Visible = False
  187. List17.Visible = False
  188. List18.Visible = False
  189. List19.Visible = False
  190. List20.Visible = False
  191. List21.Visible = False
  192. List22.Visible = False
  193. List23.Visible = False
  194. List24.Visible = False
  195. List25.Visible = False
  196. ElseIf Combo1.ListIndex = 1 Then
  197. List1.Visible = False
  198. List2.Visible = True
  199. List3.Visible = False
  200. List4.Visible = False
  201. List5.Visible = False
  202. List6.Visible = False
  203. List7.Visible = False
  204. List8.Visible = False
  205. List9.Visible = False
  206. List10.Visible = False
  207. List11.Visible = False
  208. List12.Visible = False
  209. List13.Visible = False
  210. List14.Visible = False
  211. List15.Visible = False
  212. List16.Visible = False
  213. List17.Visible = False
  214. List18.Visible = False
  215. List19.Visible = False
  216. List20.Visible = False
  217. List21.Visible = False
  218. List22.Visible = False
  219. List23.Visible = False
  220. List24.Visible = False
  221. List25.Visible = False
  222. ElseIf Combo1.ListIndex = 2 Then
  223. List1.Visible = False
  224. List2.Visible = False
  225. List3.Visible = True
  226. List4.Visible = False
  227. List5.Visible = False
  228. List6.Visible = False
  229. List7.Visible = False
  230. List8.Visible = False
  231. List9.Visible = False
  232. List10.Visible = False
  233. List11.Visible = False
  234. List12.Visible = False
  235. List13.Visible = False
  236. List14.Visible = False
  237. List15.Visible = False
  238. List16.Visible = False
  239. List17.Visible = False
  240. List18.Visible = False
  241. List19.Visible = False
  242. List20.Visible = False
  243. List21.Visible = False
  244. List22.Visible = False
  245. List23.Visible = False
  246. List24.Visible = False
  247. List25.Visible = False
  248. ElseIf Combo1.ListIndex = 3 Then
  249. List1.Visible = False
  250. List2.Visible = False
  251. List3.Visible = False
  252. List4.Visible = True
  253. List5.Visible = False
  254. List6.Visible = False
  255. List7.Visible = False
  256. List8.Visible = False
  257. List9.Visible = False
  258. List10.Visible = False
  259. List11.Visible = False
  260. List12.Visible = False
  261. List13.Visible = False
  262. List14.Visible = False
  263. List15.Visible = False
  264. List16.Visible = False
  265. List17.Visible = False
  266. List18.Visible = False
  267. List19.Visible = False
  268. List20.Visible = False
  269. List21.Visible = False
  270. List22.Visible = False
  271. List23.Visible = False
  272. List24.Visible = False
  273. List25.Visible = False
  274. ElseIf Combo1.ListIndex = 4 Then
  275. List1.Visible = False
  276. List2.Visible = False
  277. List3.Visible = False
  278. List4.Visible = False
  279. List5.Visible = True
  280. List6.Visible = False
  281. List7.Visible = False
  282. List8.Visible = False
  283. List9.Visible = False
  284. List10.Visible = False
  285. List11.Visible = False
  286. List12.Visible = False
  287. List13.Visible = False
  288. List14.Visible = False
  289. List15.Visible = False
  290. List16.Visible = False
  291. List17.Visible = False
  292. List18.Visible = False
  293. List19.Visible = False
  294. List20.Visible = False
  295. List21.Visible = False
  296. List22.Visible = False
  297. List23.Visible = False
  298. List24.Visible = False
  299. List25.Visible = False
  300. ElseIf Combo1.ListIndex = 5 Then
  301. List1.Visible = False
  302. List2.Visible = False
  303. List3.Visible = False
  304. List4.Visible = False
  305. List5.Visible = False
  306. List6.Visible = True
  307. List7.Visible = False
  308. List8.Visible = False
  309. List9.Visible = False
  310. List10.Visible = False
  311. List11.Visible = False
  312. List12.Visible = False
  313. List13.Visible = False
  314. List14.Visible = False
  315. List15.Visible = False
  316. List16.Visible = False
  317. List17.Visible = False
  318. List18.Visible = False
  319. List19.Visible = False
  320. List20.Visible = False
  321. List21.Visible = False
  322. List22.Visible = False
  323. List23.Visible = False
  324. List24.Visible = False
  325. List25.Visible = False
  326. ElseIf Combo1.ListIndex = 6 Then
  327. List1.Visible = False
  328. List2.Visible = False
  329. List3.Visible = False
  330. List4.Visible = False
  331. List5.Visible = False
  332. List6.Visible = False
  333. List7.Visible = True
  334. List8.Visible = False
  335. List9.Visible = False
  336. List10.Visible = False
  337. List11.Visible = False
  338. List12.Visible = False
  339. List13.Visible = False
  340. List14.Visible = False
  341. List15.Visible = False
  342. List16.Visible = False
  343. List17.Visible = False
  344. List18.Visible = False
  345. List19.Visible = False
  346. List20.Visible = False
  347. List21.Visible = False
  348. List22.Visible = False
  349. List23.Visible = False
  350. List24.Visible = False
  351. List25.Visible = False
  352. ElseIf Combo1.ListIndex = 7 Then
  353. List1.Visible = False
  354. List2.Visible = False
  355. List3.Visible = False
  356. List4.Visible = False
  357. List5.Visible = False
  358. List6.Visible = False
  359. List7.Visible = False
  360. List8.Visible = True
  361. List9.Visible = False
  362. List10.Visible = False
  363. List11.Visible = False
  364. List12.Visible = False
  365. List13.Visible = False
  366. List14.Visible = False
  367. List15.Visible = False
  368. List16.Visible = False
  369. List17.Visible = False
  370. List18.Visible = False
  371. List19.Visible = False
  372. List20.Visible = False
  373. List21.Visible = False
  374. List22.Visible = False
  375. List23.Visible = False
  376. List24.Visible = False
  377. List25.Visible = False
  378. ElseIf Combo1.ListIndex = 8 Then
  379. List1.Visible = False
  380. List2.Visible = False
  381. List3.Visible = False
  382. List4.Visible = False
  383. List5.Visible = False
  384. List6.Visible = False
  385. List7.Visible = False
  386. List8.Visible = False
  387. List9.Visible = True
  388. List10.Visible = False
  389. List11.Visible = False
  390. List12.Visible = False
  391. List13.Visible = False
  392. List14.Visible = False
  393. List15.Visible = False
  394. List16.Visible = False
  395. List17.Visible = False
  396. List18.Visible = False
  397. List19.Visible = False
  398. List20.Visible = False
  399. List21.Visible = False
  400. List22.Visible = False
  401. List23.Visible = False
  402. List24.Visible = False
  403. List25.Visible = False
  404. ElseIf Combo1.ListIndex = 9 Then
  405. List1.Visible = False
  406. List2.Visible = False
  407. List3.Visible = False
  408. List4.Visible = False
  409. List5.Visible = False
  410. List6.Visible = False
  411. List7.Visible = False
  412. List8.Visible = False
  413. List9.Visible = False
  414. List10.Visible = True
  415. List11.Visible = False
  416. List12.Visible = False
  417. List13.Visible = False
  418. List14.Visible = False
  419. List15.Visible = False
  420. List16.Visible = False
  421. List17.Visible = False
  422. List18.Visible = False
  423. List19.Visible = False
  424. List20.Visible = False
  425. List21.Visible = False
  426. List22.Visible = False
  427. List23.Visible = False
  428. List24.Visible = False
  429. List25.Visible = False
  430. ElseIf Combo1.ListIndex = 10 Then
  431. List1.Visible = False
  432. List2.Visible = False
  433. List3.Visible = False
  434. List4.Visible = False
  435. List5.Visible = False
  436. List6.Visible = False
  437. List7.Visible = False
  438. List8.Visible = False
  439. List9.Visible = False
  440. List10.Visible = False
  441. List11.Visible = True
  442. List12.Visible = False
  443. List13.Visible = False
  444. List14.Visible = False
  445. List15.Visible = False
  446. List16.Visible = False
  447. List17.Visible = False
  448. List18.Visible = False
  449. List19.Visible = False
  450. List20.Visible = False
  451. List21.Visible = False
  452. List22.Visible = False
  453. List23.Visible = False
  454. List24.Visible = False
  455. List25.Visible = False
  456. ElseIf Combo1.ListIndex = 11 Then
  457. List1.Visible = False
  458. List2.Visible = False
  459. List3.Visible = False
  460. List4.Visible = False
  461. List5.Visible = False
  462. List6.Visible = False
  463. List7.Visible = False
  464. List8.Visible = False
  465. List9.Visible = False
  466. List10.Visible = False
  467. List11.Visible = False
  468. List12.Visible = True
  469. List13.Visible = False
  470. List14.Visible = False
  471. List15.Visible = False
  472. List16.Visible = False
  473. List17.Visible = False
  474. List18.Visible = False
  475. List19.Visible = False
  476. List20.Visible = False
  477. List21.Visible = False
  478. List22.Visible = False
  479. List23.Visible = False
  480. List24.Visible = False
  481. List25.Visible = False
  482. ElseIf Combo1.ListIndex = 12 Then
  483. List1.Visible = False
  484. List2.Visible = False
  485. List3.Visible = False
  486. List4.Visible = False
  487. List5.Visible = False
  488. List6.Visible = False
  489. List7.Visible = False
  490. List8.Visible = False
  491. List9.Visible = False
  492. List10.Visible = False
  493. List11.Visible = False
  494. List12.Visible = False
  495. List13.Visible = True
  496. List14.Visible = False
  497. List15.Visible = False
  498. List16.Visible = False
  499. List17.Visible = False
  500. List18.Visible = False
  501. List19.Visible = False
  502. List20.Visible = False
  503. List21.Visible = False
  504. List22.Visible = False
  505. List23.Visible = False
  506. List24.Visible = False
  507. List25.Visible = False
  508. ElseIf Combo1.ListIndex = 13 Then
  509. List1.Visible = False
  510. List2.Visible = False
  511. List3.Visible = False
  512. List4.Visible = False
  513. List5.Visible = False
  514. List6.Visible = False
  515. List7.Visible = False
  516. List8.Visible = False
  517. List9.Visible = False
  518. List10.Visible = False
  519. List11.Visible = False
  520. List12.Visible = False
  521. List13.Visible = False
  522. List14.Visible = True
  523. List15.Visible = False
  524. List16.Visible = False
  525. List17.Visible = False
  526. List18.Visible = False
  527. List19.Visible = False
  528. List20.Visible = False
  529. List21.Visible = False
  530. List22.Visible = False
  531. List23.Visible = False
  532. List24.Visible = False
  533. List25.Visible = False
  534. ElseIf Combo1.ListIndex = 14 Then
  535. List1.Visible = False
  536. List2.Visible = False
  537. List3.Visible = False
  538. List4.Visible = False
  539. List5.Visible = False
  540. List6.Visible = False
  541. List7.Visible = False
  542. List8.Visible = False
  543. List9.Visible = False
  544. List10.Visible = False
  545. List11.Visible = False
  546. List12.Visible = False
  547. List13.Visible = False
  548. List14.Visible = False
  549. List15.Visible = True
  550. List16.Visible = False
  551. List17.Visible = False
  552. List18.Visible = False
  553. List19.Visible = False
  554. List20.Visible = False
  555. List21.Visible = False
  556. List22.Visible = False
  557. List23.Visible = False
  558. List24.Visible = False
  559. List25.Visible = False
  560. ElseIf Combo1.ListIndex = 15 Then
  561. List1.Visible = False
  562. List2.Visible = False
  563. List3.Visible = False
  564. List4.Visible = False
  565. List5.Visible = False
  566. List6.Visible = False
  567. List7.Visible = False
  568. List8.Visible = False
  569. List9.Visible = False
  570. List10.Visible = False
  571. List11.Visible = False
  572. List12.Visible = False
  573. List13.Visible = False
  574. List14.Visible = False
  575. List15.Visible = False
  576. List16.Visible = True
  577. List17.Visible = False
  578. List18.Visible = False
  579. List19.Visible = False
  580. List20.Visible = False
  581. List21.Visible = False
  582. List22.Visible = False
  583. List23.Visible = False
  584. List24.Visible = False
  585. List25.Visible = False
  586. ElseIf Combo1.ListIndex = 16 Then
  587. List1.Visible = False
  588. List2.Visible = False
  589. List3.Visible = False
  590. List4.Visible = False
  591. List5.Visible = False
  592. List6.Visible = False
  593. List7.Visible = False
  594. List8.Visible = False
  595. List9.Visible = False
  596. List10.Visible = False
  597. List11.Visible = False
  598. List12.Visible = False
  599. List13.Visible = False
  600. List14.Visible = False
  601. List15.Visible = False
  602. List16.Visible = False
  603. List17.Visible = True
  604. List18.Visible = False
  605. List19.Visible = False
  606. List20.Visible = False
  607. List21.Visible = False
  608. List22.Visible = False
  609. List23.Visible = False
  610. List24.Visible = False
  611. List25.Visible = False
  612. ElseIf Combo1.ListIndex = 17 Then
  613. List1.Visible = False
  614. List2.Visible = False
  615. List3.Visible = False
  616. List4.Visible = False
  617. List5.Visible = False
  618. List6.Visible = False
  619. List7.Visible = False
  620. List8.Visible = False
  621. List9.Visible = False
  622. List10.Visible = False
  623. List11.Visible = False
  624. List12.Visible = False
  625. List13.Visible = False
  626. List14.Visible = False
  627. List15.Visible = False
  628. List16.Visible = False
  629. List17.Visible = False
  630. List18.Visible = True
  631. List19.Visible = False
  632. List20.Visible = False
  633. List21.Visible = False
  634. List22.Visible = False
  635. List23.Visible = False
  636. List24.Visible = False
  637. List25.Visible = False
  638. ElseIf Combo1.ListIndex = 18 Then
  639. List1.Visible = False
  640. List2.Visible = False
  641. List3.Visible = False
  642. List4.Visible = False
  643. List5.Visible = False
  644. List6.Visible = False
  645. List7.Visible = False
  646. List8.Visible = False
  647. List9.Visible = False
  648. List10.Visible = False
  649. List11.Visible = False
  650. List12.Visible = False
  651. List13.Visible = False
  652. List14.Visible = False
  653. List15.Visible = False
  654. List16.Visible = False
  655. List17.Visible = False
  656. List18.Visible = False
  657. List19.Visible = True
  658. List20.Visible = False
  659. List21.Visible = False
  660. List22.Visible = False
  661. List23.Visible = False
  662. List24.Visible = False
  663. List25.Visible = False
  664. ElseIf Combo1.ListIndex = 19 Then
  665. List1.Visible = False
  666. List2.Visible = False
  667. List3.Visible = False
  668. List4.Visible = False
  669. List5.Visible = False
  670. List6.Visible = False
  671. List7.Visible = False
  672. List8.Visible = False
  673. List9.Visible = False
  674. List10.Visible = False
  675. List11.Visible = False
  676. List12.Visible = False
  677. List13.Visible = False
  678. List14.Visible = False
  679. List15.Visible = False
  680. List16.Visible = False
  681. List17.Visible = False
  682. List18.Visible = False
  683. List19.Visible = False
  684. List20.Visible = True
  685. List21.Visible = False
  686. List22.Visible = False
  687. List23.Visible = False
  688. List24.Visible = False
  689. List25.Visible = False
  690. ElseIf Combo1.ListIndex = 20 Then
  691. List1.Visible = False
  692. List2.Visible = False
  693. List3.Visible = False
  694. List4.Visible = False
  695. List5.Visible = False
  696. List6.Visible = False
  697. List7.Visible = False
  698. List8.Visible = False
  699. List9.Visible = False
  700. List10.Visible = False
  701. List11.Visible = False
  702. List12.Visible = False
  703. List13.Visible = False
  704. List14.Visible = False
  705. List15.Visible = False
  706. List16.Visible = False
  707. List17.Visible = False
  708. List18.Visible = False
  709. List19.Visible = False
  710. List20.Visible = False
  711. List21.Visible = True
  712. List22.Visible = False
  713. List23.Visible = False
  714. List24.Visible = False
  715. List25.Visible = False
  716. ElseIf Combo1.ListIndex = 21 Then
  717. List1.Visible = False
  718. List2.Visible = False
  719. List3.Visible = False
  720. List4.Visible = False
  721. List5.Visible = False
  722. List6.Visible = False
  723. List7.Visible = False
  724. List8.Visible = False
  725. List9.Visible = False
  726. List10.Visible = False
  727. List11.Visible = False
  728. List12.Visible = False
  729. List13.Visible = False
  730. List14.Visible = False
  731. List15.Visible = False
  732. List16.Visible = False
  733. List17.Visible = False
  734. List18.Visible = False
  735. List19.Visible = False
  736. List20.Visible = False
  737. List21.Visible = False
  738. List22.Visible = True
  739. List23.Visible = False
  740. List24.Visible = False
  741. List25.Visible = False
  742. ElseIf Combo1.ListIndex = 22 Then
  743. List1.Visible = False
  744. List2.Visible = False
  745. List3.Visible = False
  746. List4.Visible = False
  747. List5.Visible = False
  748. List6.Visible = False
  749. List7.Visible = False
  750. List8.Visible = False
  751. List9.Visible = False
  752. List10.Visible = False
  753. List11.Visible = False
  754. List12.Visible = False
  755. List13.Visible = False
  756. List14.Visible = False
  757. List15.Visible = False
  758. List16.Visible = False
  759. List17.Visible = False
  760. List18.Visible = False
  761. List19.Visible = False
  762. List20.Visible = False
  763. List21.Visible = False
  764. List22.Visible = False
  765. List23.Visible = True
  766. List24.Visible = False
  767. List25.Visible = False
  768. ElseIf Combo1.ListIndex = 23 Then
  769. List1.Visible = False
  770. List2.Visible = False
  771. List3.Visible = False
  772. List4.Visible = False
  773. List5.Visible = False
  774. List6.Visible = False
  775. List7.Visible = False
  776. List8.Visible = False
  777. List9.Visible = False
  778. List10.Visible = False
  779. List11.Visible = False
  780. List12.Visible = False
  781. List13.Visible = False
  782. List14.Visible = False
  783. List15.Visible = False
  784. List16.Visible = False
  785. List17.Visible = False
  786. List18.Visible = False
  787. List19.Visible = False
  788. List20.Visible = False
  789. List21.Visible = False
  790. List22.Visible = False
  791. List23.Visible = False
  792. List24.Visible = True
  793. List25.Visible = False
  794. ElseIf Combo1.ListIndex = 24 Then
  795. List1.Visible = False
  796. List2.Visible = False
  797. List3.Visible = False
  798. List4.Visible = False
  799. List5.Visible = False
  800. List6.Visible = False
  801. List7.Visible = False
  802. List8.Visible = False
  803. List9.Visible = False
  804. List10.Visible = False
  805. List11.Visible = False
  806. List12.Visible = False
  807. List13.Visible = False
  808. List14.Visible = False
  809. List15.Visible = False
  810. List16.Visible = False
  811. List17.Visible = False
  812. List18.Visible = False
  813. List19.Visible = False
  814. List20.Visible = False
  815. List21.Visible = False
  816. List22.Visible = False
  817. List23.Visible = False
  818. List24.Visible = False
  819. List25.Visible = True
  820. End If
  821.  
  822. End Sub
  823.  
  824.  
1 Week Ago #6

P: 7
Update if anyone is interested. I added the ability to save the listboxs to text files and load them again when form loads.

Command 1 add contents of text box to current listbox
Command 2 Removes from listbox
Command 3 saves all listboxes to text files.

Expand|Select|Wrap|Line Numbers
  1. Private Sub Command1_Click()
  2. If List1.Visible = True Then
  3. List1.AddItem Text1.Text
  4. Text1.Text = ""
  5. ElseIf List2.Visible = True Then
  6. List2.AddItem Text1.Text
  7. Text1.Text = ""
  8. ElseIf List3.Visible = True Then
  9. List3.AddItem Text1.Text
  10. Text1.Text = ""
  11. ElseIf List4.Visible = True Then
  12. List4.AddItem Text1.Text
  13. Text1.Text = ""
  14. ElseIf List5.Visible = True Then
  15. List5.AddItem Text1.Text
  16. Text1.Text = ""
  17. ElseIf List6.Visible = True Then
  18. List6.AddItem Text1.Text
  19. Text1.Text = ""
  20. ElseIf List7.Visible = True Then
  21. List7.AddItem Text1.Text
  22. Text1.Text = ""
  23. ElseIf List8.Visible = True Then
  24. List8.AddItem Text1.Text
  25. Text1.Text = ""
  26. ElseIf List9.Visible = True Then
  27. List9.AddItem Text1.Text
  28. Text1.Text = ""
  29. ElseIf List10.Visible = True Then
  30. List10.AddItem Text1.Text
  31. Text1.Text = ""
  32. ElseIf List11.Visible = True Then
  33. List11.AddItem Text1.Text
  34. Text1.Text = ""
  35. ElseIf List12.Visible = True Then
  36. List12.AddItem Text1.Text
  37. Text1.Text = ""
  38. ElseIf List13.Visible = True Then
  39. List13.AddItem Text1.Text
  40. Text1.Text = ""
  41. ElseIf List14.Visible = True Then
  42. List14.AddItem Text1.Text
  43. Text1.Text = ""
  44. ElseIf List15.Visible = True Then
  45. List15.AddItem Text1.Text
  46. Text1.Text = ""
  47. ElseIf List16.Visible = True Then
  48. List16.AddItem Text1.Text
  49. Text1.Text = ""
  50. ElseIf List17.Visible = True Then
  51. List17.AddItem Text1.Text
  52. Text1.Text = ""
  53. ElseIf List18.Visible = True Then
  54. List18.AddItem Text1.Text
  55. Text1.Text = ""
  56. ElseIf List19.Visible = True Then
  57. List19.AddItem Text1.Text
  58. Text1.Text = ""
  59. ElseIf List20.Visible = True Then
  60. List20.AddItem Text1.Text
  61. Text1.Text = ""
  62. ElseIf List21.Visible = True Then
  63. List21.AddItem Text1.Text
  64. Text1.Text = ""
  65. ElseIf List22.Visible = True Then
  66. List22.AddItem Text1.Text
  67. Text1.Text = ""
  68. ElseIf List23.Visible = True Then
  69. List23.AddItem Text1.Text
  70. Text1.Text = ""
  71. ElseIf List24.Visible = True Then
  72. List24.AddItem Text1.Text
  73. Text1.Text = ""
  74. ElseIf List25.Visible = True Then
  75. List25.AddItem Text1.Text
  76. Text1.Text = ""
  77. End If
  78. End Sub
  79.  
  80. Private Sub Command2_Click()
  81. If List1.Visible And List1.ListIndex > -1 Then
  82. List1.RemoveItem List1.ListIndex
  83. ElseIf List2.Visible And List2.ListIndex > -1 Then
  84. List2.RemoveItem List2.ListIndex
  85. ElseIf List3.Visible And List3.ListIndex > -1 Then
  86. List3.RemoveItem List3.ListIndex
  87. ElseIf List4.Visible And List4.ListIndex > -1 Then
  88. List4.RemoveItem List4.ListIndex
  89. ElseIf List5.Visible And List5.ListIndex > -1 Then
  90. List5.RemoveItem List5.ListIndex
  91. ElseIf List6.Visible And List6.ListIndex > -1 Then
  92. List6.RemoveItem List6.ListIndex
  93. ElseIf List7.Visible And List7.ListIndex > -1 Then
  94. List7.RemoveItem List7.ListIndex
  95. ElseIf List8.Visible And List8.ListIndex > -1 Then
  96. List8.RemoveItem List8.ListIndex
  97. ElseIf List9.Visible And List9.ListIndex > -1 Then
  98. List9.RemoveItem List9.ListIndex
  99. ElseIf List10.Visible And List10.ListIndex > -1 Then
  100. List10.RemoveItem List10.ListIndex
  101. ElseIf List11.Visible And List11.ListIndex > -1 Then
  102. List11.RemoveItem List11.ListIndex
  103. ElseIf List12.Visible And List12.ListIndex > -1 Then
  104. List12.RemoveItem List12.ListIndex
  105. ElseIf List13.Visible And List13.ListIndex > -1 Then
  106. List13.RemoveItem List13.ListIndex
  107. ElseIf List14.Visible And List14.ListIndex > -1 Then
  108. List14.RemoveItem List14.ListIndex
  109. ElseIf List15.Visible And List15.ListIndex > -1 Then
  110. List15.RemoveItem List15.ListIndex
  111. ElseIf List16.Visible And List16.ListIndex > -1 Then
  112. List16.RemoveItem List16.ListIndex
  113. ElseIf List17.Visible And List17.ListIndex > -1 Then
  114. List17.RemoveItem List17.ListIndex
  115. ElseIf List18.Visible And List18.ListIndex > -1 Then
  116. List18.RemoveItem List18.ListIndex
  117. ElseIf List19.Visible And List19.ListIndex > -1 Then
  118. List19.RemoveItem List19.ListIndex
  119. ElseIf List20.Visible And List20.ListIndex > -1 Then
  120. List20.RemoveItem List20.ListIndex
  121. ElseIf List21.Visible And List21.ListIndex > -1 Then
  122. List21.RemoveItem List21.ListIndex
  123. ElseIf List22.Visible And List22.ListIndex > -1 Then
  124. List22.RemoveItem List22.ListIndex
  125. ElseIf List23.Visible And List23.ListIndex > -1 Then
  126. List23.RemoveItem List23.ListIndex
  127. ElseIf List24.Visible And List24.ListIndex > -1 Then
  128. List24.RemoveItem List24.ListIndex
  129. ElseIf List25.Visible And List25.ListIndex > -1 Then
  130. List25.RemoveItem List25.ListIndex
  131. End If
  132. End Sub
  133.  
  134. Private Sub Command3_Click()
  135.     Dim fn As Long
  136.     Dim i As Integer
  137.     fn = FreeFile
  138.     Open "\\Remote\WeatherArray\WineRacks\WineRack1.txt" For Output As fn
  139.     For i = 0 To List1.ListCount - 1
  140.       Print #fn, List1.list(i)
  141.     Next
  142.     Close #fn
  143.     Open "\\Remote\WeatherArray\WineRacks\WineRack2.txt" For Output As fn
  144.     For i = 0 To List2.ListCount - 1
  145.       Print #fn, List2.list(i)
  146.     Next
  147.     Close #fn
  148.     Open "\\Remote\WeatherArray\WineRacks\WineRack3.txt" For Output As fn
  149.     For i = 0 To List3.ListCount - 1
  150.       Print #fn, List3.list(i)
  151.     Next
  152.     Close #fn
  153.     Open "\\Remote\WeatherArray\WineRacks\WineRack4.txt" For Output As fn
  154.     For i = 0 To List4.ListCount - 1
  155.       Print #fn, List4.list(i)
  156.     Next
  157.     Close #fn
  158.     Open "\\Remote\WeatherArray\WineRacks\WineRack5.txt" For Output As fn
  159.     For i = 0 To List5.ListCount - 1
  160.       Print #fn, List5.list(i)
  161.     Next
  162.     Close #fn
  163.     Open "\\Remote\WeatherArray\WineRacks\WineRack6.txt" For Output As fn
  164.     For i = 0 To List6.ListCount - 1
  165.       Print #fn, List6.list(i)
  166.     Next
  167.     Close #fn
  168.     Open "\\Remote\WeatherArray\WineRacks\WineRack7.txt" For Output As fn
  169.     For i = 0 To List7.ListCount - 1
  170.       Print #fn, List7.list(i)
  171.     Next
  172.     Close #fn
  173.     Open "\\Remote\WeatherArray\WineRacks\WineRack8.txt" For Output As fn
  174.     For i = 0 To List8.ListCount - 1
  175.       Print #fn, List8.list(i)
  176.     Next
  177.     Close #fn
  178.     Open "\\Remote\WeatherArray\WineRacks\WineRack9.txt" For Output As fn
  179.     For i = 0 To List9.ListCount - 1
  180.       Print #fn, List9.list(i)
  181.     Next
  182.     Close #fn
  183.     Open "\\Remote\WeatherArray\WineRacks\WineRack10.txt" For Output As fn
  184.     For i = 0 To List10.ListCount - 1
  185.       Print #fn, List10.list(i)
  186.     Next
  187.     Close #fn
  188.     Open "\\Remote\WeatherArray\WineRacks\WineRack11.txt" For Output As fn
  189.     For i = 0 To List11.ListCount - 1
  190.       Print #fn, List11.list(i)
  191.     Next
  192.     Close #fn
  193.     Open "\\Remote\WeatherArray\WineRacks\WineRack12.txt" For Output As fn
  194.     For i = 0 To List12.ListCount - 1
  195.       Print #fn, List12.list(i)
  196.     Next
  197.     Close #fn
  198.     Open "\\Remote\WeatherArray\WineRacks\WineRack13.txt" For Output As fn
  199.     For i = 0 To List13.ListCount - 1
  200.       Print #fn, List13.list(i)
  201.     Next
  202.     Close #fn
  203.     Open "\\Remote\WeatherArray\WineRacks\WineRack14.txt" For Output As fn
  204.     For i = 0 To List14.ListCount - 1
  205.       Print #fn, List14.list(i)
  206.     Next
  207.     Close #fn
  208.     Open "\\Remote\WeatherArray\WineRacks\WineRack15.txt" For Output As fn
  209.     For i = 0 To List15.ListCount - 1
  210.       Print #fn, List15.list(i)
  211.     Next
  212.     Close #fn
  213.     Open "\\Remote\WeatherArray\WineRacks\WineRack16.txt" For Output As fn
  214.     For i = 0 To List16.ListCount - 1
  215.       Print #fn, List16.list(i)
  216.     Next
  217.     Close #fn
  218.     Open "\\Remote\WeatherArray\WineRacks\WineRack17.txt" For Output As fn
  219.     For i = 0 To List17.ListCount - 1
  220.       Print #fn, List17.list(i)
  221.     Next
  222.     Close #fn
  223.     Open "\\Remote\WeatherArray\WineRacks\WineRack18.txt" For Output As fn
  224.     For i = 0 To List18.ListCount - 1
  225.       Print #fn, List18.list(i)
  226.     Next
  227.     Close #fn
  228.     Open "\\Remote\WeatherArray\WineRacks\WineRack19.txt" For Output As fn
  229.     For i = 0 To List19.ListCount - 1
  230.       Print #fn, List19.list(i)
  231.     Next
  232.     Close #fn
  233.     Open "\\Remote\WeatherArray\WineRacks\WineRack20.txt" For Output As fn
  234.     For i = 0 To List20.ListCount - 1
  235.       Print #fn, List20.list(i)
  236.     Next
  237.     Close #fn
  238.     Open "\\Remote\WeatherArray\WineRacks\WineRack21.txt" For Output As fn
  239.     For i = 0 To List21.ListCount - 1
  240.       Print #fn, List21.list(i)
  241.     Next
  242.     Close #fn
  243.     Open "\\Remote\WeatherArray\WineRacks\WineRack22.txt" For Output As fn
  244.     For i = 0 To List22.ListCount - 1
  245.       Print #fn, List22.list(i)
  246.     Next
  247.     Close #fn
  248.     Open "\\Remote\WeatherArray\WineRacks\WineRack23.txt" For Output As fn
  249.     For i = 0 To List23.ListCount - 1
  250.       Print #fn, List23.list(i)
  251.     Next
  252.     Close #fn
  253.     Open "\\Remote\WeatherArray\WineRacks\WineRack24.txt" For Output As fn
  254.     For i = 0 To List24.ListCount - 1
  255.       Print #fn, List24.list(i)
  256.     Next
  257.     Close #fn
  258.     Open "\\Remote\WeatherArray\WineRacks\WineRack25.txt" For Output As fn
  259.     For i = 0 To List25.ListCount - 1
  260.       Print #fn, List25.list(i)
  261.     Next
  262.     Close #fn
  263.  
  264. End Sub
  265.  
  266. Private Sub Command4_Click()
  267. Me.Hide
  268. End Sub
  269.  
  270. Private Sub Form_Load()
  271. WinePage.Left = (Screen.Width / 2) - (InfoMain.Width / 2)
  272. WinePage.Top = (Screen.Height / 2) - (InfoMain.Height / 2)
  273. Combo1.AddItem "Rack 1"
  274. Combo1.AddItem "Rack 2"
  275. Combo1.AddItem "Rack 3"
  276. Combo1.AddItem "Rack 4"
  277. Combo1.AddItem "Rack 5"
  278. Combo1.AddItem "Rack 6"
  279. Combo1.AddItem "Rack 7"
  280. Combo1.AddItem "Rack 8"
  281. Combo1.AddItem "Rack 9"
  282. Combo1.AddItem "Rack 10"
  283. Combo1.AddItem "Rack 11"
  284. Combo1.AddItem "Rack 12"
  285. Combo1.AddItem "Rack 13"
  286. Combo1.AddItem "Rack 14"
  287. Combo1.AddItem "Rack 15"
  288. Combo1.AddItem "Rack 16"
  289. Combo1.AddItem "Rack 17"
  290. Combo1.AddItem "Rack 18"
  291. Combo1.AddItem "Rack 19"
  292. Combo1.AddItem "Rack 20"
  293. Combo1.AddItem "Rack 21"
  294. Combo1.AddItem "Rack 22"
  295. Combo1.AddItem "Rack 23"
  296. Combo1.AddItem "Rack 24"
  297. Combo1.AddItem "Rack 25"
  298. Combo1.ListIndex = 0
  299.  
  300. Dim ff As Long
  301. Dim line As String
  302. ff = FreeFile
  303. Open "\\Remote\WeatherArray\WineRacks\WineRack1.txt" For Input As #ff
  304. Do While Not EOF(ff)
  305. Line Input #ff, line
  306. If Len(line) Then List1.AddItem line
  307. Loop
  308. Close #ff
  309. Open "\\Remote\WeatherArray\WineRacks\WineRack2.txt" For Input As #ff
  310. Do While Not EOF(ff)
  311. Line Input #ff, line
  312. If Len(line) Then List2.AddItem line
  313. Loop
  314. Close #ff
  315. Open "\\Remote\WeatherArray\WineRacks\WineRack3.txt" For Input As #ff
  316. Do While Not EOF(ff)
  317. Line Input #ff, line
  318. If Len(line) Then List3.AddItem line
  319. Loop
  320. Close #ff
  321. Open "\\Remote\WeatherArray\WineRacks\WineRack4.txt" For Input As #ff
  322. Do While Not EOF(ff)
  323. Line Input #ff, line
  324. If Len(line) Then List4.AddItem line
  325. Loop
  326. Close #ff
  327. Open "\\Remote\WeatherArray\WineRacks\WineRack5.txt" For Input As #ff
  328. Do While Not EOF(ff)
  329. Line Input #ff, line
  330. If Len(line) Then List5.AddItem line
  331. Loop
  332. Close #ff
  333. Open "\\Remote\WeatherArray\WineRacks\WineRack6.txt" For Input As #ff
  334. Do While Not EOF(ff)
  335. Line Input #ff, line
  336. If Len(line) Then List6.AddItem line
  337. Loop
  338. Close #ff
  339. Open "\\Remote\WeatherArray\WineRacks\WineRack7.txt" For Input As #ff
  340. Do While Not EOF(ff)
  341. Line Input #ff, line
  342. If Len(line) Then List7.AddItem line
  343. Loop
  344. Close #ff
  345. Open "\\Remote\WeatherArray\WineRacks\WineRack8.txt" For Input As #ff
  346. Do While Not EOF(ff)
  347. Line Input #ff, line
  348. If Len(line) Then List8.AddItem line
  349. Loop
  350. Close #ff
  351. Open "\\Remote\WeatherArray\WineRacks\WineRack9.txt" For Input As #ff
  352. Do While Not EOF(ff)
  353. Line Input #ff, line
  354. If Len(line) Then List9.AddItem line
  355. Loop
  356. Close #ff
  357. Open "\\Remote\WeatherArray\WineRacks\WineRack10.txt" For Input As #ff
  358. Do While Not EOF(ff)
  359. Line Input #ff, line
  360. If Len(line) Then List10.AddItem line
  361. Loop
  362. Close #ff
  363. Open "\\Remote\WeatherArray\WineRacks\WineRack11.txt" For Input As #ff
  364. Do While Not EOF(ff)
  365. Line Input #ff, line
  366. If Len(line) Then List11.AddItem line
  367. Loop
  368. Close #ff
  369. Open "\\Remote\WeatherArray\WineRacks\WineRack12.txt" For Input As #ff
  370. Do While Not EOF(ff)
  371. Line Input #ff, line
  372. If Len(line) Then List12.AddItem line
  373. Loop
  374. Close #ff
  375. Open "\\Remote\WeatherArray\WineRacks\WineRack13.txt" For Input As #ff
  376. Do While Not EOF(ff)
  377. Line Input #ff, line
  378. If Len(line) Then List13.AddItem line
  379. Loop
  380. Close #ff
  381. Open "\\Remote\WeatherArray\WineRacks\WineRack14.txt" For Input As #ff
  382. Do While Not EOF(ff)
  383. Line Input #ff, line
  384. If Len(line) Then List14.AddItem line
  385. Loop
  386. Close #ff
  387. Open "\\Remote\WeatherArray\WineRacks\WineRack15.txt" For Input As #ff
  388. Do While Not EOF(ff)
  389. Line Input #ff, line
  390. If Len(line) Then List15.AddItem line
  391. Loop
  392. Close #ff
  393. Open "\\Remote\WeatherArray\WineRacks\WineRack16.txt" For Input As #ff
  394. Do While Not EOF(ff)
  395. Line Input #ff, line
  396. If Len(line) Then List16.AddItem line
  397. Loop
  398. Close #ff
  399. Open "\\Remote\WeatherArray\WineRacks\WineRack17.txt" For Input As #ff
  400. Do While Not EOF(ff)
  401. Line Input #ff, line
  402. If Len(line) Then List17.AddItem line
  403. Loop
  404. Close #ff
  405. Open "\\Remote\WeatherArray\WineRacks\WineRack18.txt" For Input As #ff
  406. Do While Not EOF(ff)
  407. Line Input #ff, line
  408. If Len(line) Then List18.AddItem line
  409. Loop
  410. Close #ff
  411. Open "\\Remote\WeatherArray\WineRacks\WineRack19.txt" For Input As #ff
  412. Do While Not EOF(ff)
  413. Line Input #ff, line
  414. If Len(line) Then List19.AddItem line
  415. Loop
  416. Close #ff
  417. Open "\\Remote\WeatherArray\WineRacks\WineRack20.txt" For Input As #ff
  418. Do While Not EOF(ff)
  419. Line Input #ff, line
  420. If Len(line) Then List20.AddItem line
  421. Loop
  422. Close #ff
  423. Open "\\Remote\WeatherArray\WineRacks\WineRack21.txt" For Input As #ff
  424. Do While Not EOF(ff)
  425. Line Input #ff, line
  426. If Len(line) Then List21.AddItem line
  427. Loop
  428. Close #ff
  429. Open "\\Remote\WeatherArray\WineRacks\WineRack22.txt" For Input As #ff
  430. Do While Not EOF(ff)
  431. Line Input #ff, line
  432. If Len(line) Then List22.AddItem line
  433. Loop
  434. Close #ff
  435. Open "\\Remote\WeatherArray\WineRacks\WineRack23.txt" For Input As #ff
  436. Do While Not EOF(ff)
  437. Line Input #ff, line
  438. If Len(line) Then List23.AddItem line
  439. Loop
  440. Close #ff
  441. Open "\\Remote\WeatherArray\WineRacks\WineRack24.txt" For Input As #ff
  442. Do While Not EOF(ff)
  443. Line Input #ff, line
  444. If Len(line) Then List24.AddItem line
  445. Loop
  446. Close #ff
  447. Open "\\Remote\WeatherArray\WineRacks\WineRack25.txt" For Input As #ff
  448. Do While Not EOF(ff)
  449. Line Input #ff, line
  450. If Len(line) Then List25.AddItem line
  451. Loop
  452. Close #ff
  453.  
  454. End Sub
  455.  
  456.  
  457. Private Sub Timer1_Timer()
  458. If Combo1.ListIndex = 0 Then
  459. List1.Visible = True
  460. List2.Visible = False
  461. List3.Visible = False
  462. List4.Visible = False
  463. List5.Visible = False
  464. List6.Visible = False
  465. List7.Visible = False
  466. List8.Visible = False
  467. List9.Visible = False
  468. List10.Visible = False
  469. List11.Visible = False
  470. List12.Visible = False
  471. List13.Visible = False
  472. List14.Visible = False
  473. List15.Visible = False
  474. List16.Visible = False
  475. List17.Visible = False
  476. List18.Visible = False
  477. List19.Visible = False
  478. List20.Visible = False
  479. List21.Visible = False
  480. List22.Visible = False
  481. List23.Visible = False
  482. List24.Visible = False
  483. List25.Visible = False
  484. ElseIf Combo1.ListIndex = 1 Then
  485. List1.Visible = False
  486. List2.Visible = True
  487. List3.Visible = False
  488. List4.Visible = False
  489. List5.Visible = False
  490. List6.Visible = False
  491. List7.Visible = False
  492. List8.Visible = False
  493. List9.Visible = False
  494. List10.Visible = False
  495. List11.Visible = False
  496. List12.Visible = False
  497. List13.Visible = False
  498. List14.Visible = False
  499. List15.Visible = False
  500. List16.Visible = False
  501. List17.Visible = False
  502. List18.Visible = False
  503. List19.Visible = False
  504. List20.Visible = False
  505. List21.Visible = False
  506. List22.Visible = False
  507. List23.Visible = False
  508. List24.Visible = False
  509. List25.Visible = False
  510. ElseIf Combo1.ListIndex = 2 Then
  511. List1.Visible = False
  512. List2.Visible = False
  513. List3.Visible = True
  514. List4.Visible = False
  515. List5.Visible = False
  516. List6.Visible = False
  517. List7.Visible = False
  518. List8.Visible = False
  519. List9.Visible = False
  520. List10.Visible = False
  521. List11.Visible = False
  522. List12.Visible = False
  523. List13.Visible = False
  524. List14.Visible = False
  525. List15.Visible = False
  526. List16.Visible = False
  527. List17.Visible = False
  528. List18.Visible = False
  529. List19.Visible = False
  530. List20.Visible = False
  531. List21.Visible = False
  532. List22.Visible = False
  533. List23.Visible = False
  534. List24.Visible = False
  535. List25.Visible = False
  536. ElseIf Combo1.ListIndex = 3 Then
  537. List1.Visible = False
  538. List2.Visible = False
  539. List3.Visible = False
  540. List4.Visible = True
  541. List5.Visible = False
  542. List6.Visible = False
  543. List7.Visible = False
  544. List8.Visible = False
  545. List9.Visible = False
  546. List10.Visible = False
  547. List11.Visible = False
  548. List12.Visible = False
  549. List13.Visible = False
  550. List14.Visible = False
  551. List15.Visible = False
  552. List16.Visible = False
  553. List17.Visible = False
  554. List18.Visible = False
  555. List19.Visible = False
  556. List20.Visible = False
  557. List21.Visible = False
  558. List22.Visible = False
  559. List23.Visible = False
  560. List24.Visible = False
  561. List25.Visible = False
  562. ElseIf Combo1.ListIndex = 4 Then
  563. List1.Visible = False
  564. List2.Visible = False
  565. List3.Visible = False
  566. List4.Visible = False
  567. List5.Visible = True
  568. List6.Visible = False
  569. List7.Visible = False
  570. List8.Visible = False
  571. List9.Visible = False
  572. List10.Visible = False
  573. List11.Visible = False
  574. List12.Visible = False
  575. List13.Visible = False
  576. List14.Visible = False
  577. List15.Visible = False
  578. List16.Visible = False
  579. List17.Visible = False
  580. List18.Visible = False
  581. List19.Visible = False
  582. List20.Visible = False
  583. List21.Visible = False
  584. List22.Visible = False
  585. List23.Visible = False
  586. List24.Visible = False
  587. List25.Visible = False
  588. ElseIf Combo1.ListIndex = 5 Then
  589. List1.Visible = False
  590. List2.Visible = False
  591. List3.Visible = False
  592. List4.Visible = False
  593. List5.Visible = False
  594. List6.Visible = True
  595. List7.Visible = False
  596. List8.Visible = False
  597. List9.Visible = False
  598. List10.Visible = False
  599. List11.Visible = False
  600. List12.Visible = False
  601. List13.Visible = False
  602. List14.Visible = False
  603. List15.Visible = False
  604. List16.Visible = False
  605. List17.Visible = False
  606. List18.Visible = False
  607. List19.Visible = False
  608. List20.Visible = False
  609. List21.Visible = False
  610. List22.Visible = False
  611. List23.Visible = False
  612. List24.Visible = False
  613. List25.Visible = False
  614. ElseIf Combo1.ListIndex = 6 Then
  615. List1.Visible = False
  616. List2.Visible = False
  617. List3.Visible = False
  618. List4.Visible = False
  619. List5.Visible = False
  620. List6.Visible = False
  621. List7.Visible = True
  622. List8.Visible = False
  623. List9.Visible = False
  624. List10.Visible = False
  625. List11.Visible = False
  626. List12.Visible = False
  627. List13.Visible = False
  628. List14.Visible = False
  629. List15.Visible = False
  630. List16.Visible = False
  631. List17.Visible = False
  632. List18.Visible = False
  633. List19.Visible = False
  634. List20.Visible = False
  635. List21.Visible = False
  636. List22.Visible = False
  637. List23.Visible = False
  638. List24.Visible = False
  639. List25.Visible = False
  640. ElseIf Combo1.ListIndex = 7 Then
  641. List1.Visible = False
  642. List2.Visible = False
  643. List3.Visible = False
  644. List4.Visible = False
  645. List5.Visible = False
  646. List6.Visible = False
  647. List7.Visible = False
  648. List8.Visible = True
  649. List9.Visible = False
  650. List10.Visible = False
  651. List11.Visible = False
  652. List12.Visible = False
  653. List13.Visible = False
  654. List14.Visible = False
  655. List15.Visible = False
  656. List16.Visible = False
  657. List17.Visible = False
  658. List18.Visible = False
  659. List19.Visible = False
  660. List20.Visible = False
  661. List21.Visible = False
  662. List22.Visible = False
  663. List23.Visible = False
  664. List24.Visible = False
  665. List25.Visible = False
  666. ElseIf Combo1.ListIndex = 8 Then
  667. List1.Visible = False
  668. List2.Visible = False
  669. List3.Visible = False
  670. List4.Visible = False
  671. List5.Visible = False
  672. List6.Visible = False
  673. List7.Visible = False
  674. List8.Visible = False
  675. List9.Visible = True
  676. List10.Visible = False
  677. List11.Visible = False
  678. List12.Visible = False
  679. List13.Visible = False
  680. List14.Visible = False
  681. List15.Visible = False
  682. List16.Visible = False
  683. List17.Visible = False
  684. List18.Visible = False
  685. List19.Visible = False
  686. List20.Visible = False
  687. List21.Visible = False
  688. List22.Visible = False
  689. List23.Visible = False
  690. List24.Visible = False
  691. List25.Visible = False
  692. ElseIf Combo1.ListIndex = 9 Then
  693. List1.Visible = False
  694. List2.Visible = False
  695. List3.Visible = False
  696. List4.Visible = False
  697. List5.Visible = False
  698. List6.Visible = False
  699. List7.Visible = False
  700. List8.Visible = False
  701. List9.Visible = False
  702. List10.Visible = True
  703. List11.Visible = False
  704. List12.Visible = False
  705. List13.Visible = False
  706. List14.Visible = False
  707. List15.Visible = False
  708. List16.Visible = False
  709. List17.Visible = False
  710. List18.Visible = False
  711. List19.Visible = False
  712. List20.Visible = False
  713. List21.Visible = False
  714. List22.Visible = False
  715. List23.Visible = False
  716. List24.Visible = False
  717. List25.Visible = False
  718. ElseIf Combo1.ListIndex = 10 Then
  719. List1.Visible = False
  720. List2.Visible = False
  721. List3.Visible = False
  722. List4.Visible = False
  723. List5.Visible = False
  724. List6.Visible = False
  725. List7.Visible = False
  726. List8.Visible = False
  727. List9.Visible = False
  728. List10.Visible = False
  729. List11.Visible = True
  730. List12.Visible = False
  731. List13.Visible = False
  732. List14.Visible = False
  733. List15.Visible = False
  734. List16.Visible = False
  735. List17.Visible = False
  736. List18.Visible = False
  737. List19.Visible = False
  738. List20.Visible = False
  739. List21.Visible = False
  740. List22.Visible = False
  741. List23.Visible = False
  742. List24.Visible = False
  743. List25.Visible = False
  744. ElseIf Combo1.ListIndex = 11 Then
  745. List1.Visible = False
  746. List2.Visible = False
  747. List3.Visible = False
  748. List4.Visible = False
  749. List5.Visible = False
  750. List6.Visible = False
  751. List7.Visible = False
  752. List8.Visible = False
  753. List9.Visible = False
  754. List10.Visible = False
  755. List11.Visible = False
  756. List12.Visible = True
  757. List13.Visible = False
  758. List14.Visible = False
  759. List15.Visible = False
  760. List16.Visible = False
  761. List17.Visible = False
  762. List18.Visible = False
  763. List19.Visible = False
  764. List20.Visible = False
  765. List21.Visible = False
  766. List22.Visible = False
  767. List23.Visible = False
  768. List24.Visible = False
  769. List25.Visible = False
  770. ElseIf Combo1.ListIndex = 12 Then
  771. List1.Visible = False
  772. List2.Visible = False
  773. List3.Visible = False
  774. List4.Visible = False
  775. List5.Visible = False
  776. List6.Visible = False
  777. List7.Visible = False
  778. List8.Visible = False
  779. List9.Visible = False
  780. List10.Visible = False
  781. List11.Visible = False
  782. List12.Visible = False
  783. List13.Visible = True
  784. List14.Visible = False
  785. List15.Visible = False
  786. List16.Visible = False
  787. List17.Visible = False
  788. List18.Visible = False
  789. List19.Visible = False
  790. List20.Visible = False
  791. List21.Visible = False
  792. List22.Visible = False
  793. List23.Visible = False
  794. List24.Visible = False
  795. List25.Visible = False
  796. ElseIf Combo1.ListIndex = 13 Then
  797. List1.Visible = False
  798. List2.Visible = False
  799. List3.Visible = False
  800. List4.Visible = False
  801. List5.Visible = False
  802. List6.Visible = False
  803. List7.Visible = False
  804. List8.Visible = False
  805. List9.Visible = False
  806. List10.Visible = False
  807. List11.Visible = False
  808. List12.Visible = False
  809. List13.Visible = False
  810. List14.Visible = True
  811. List15.Visible = False
  812. List16.Visible = False
  813. List17.Visible = False
  814. List18.Visible = False
  815. List19.Visible = False
  816. List20.Visible = False
  817. List21.Visible = False
  818. List22.Visible = False
  819. List23.Visible = False
  820. List24.Visible = False
  821. List25.Visible = False
  822. ElseIf Combo1.ListIndex = 14 Then
  823. List1.Visible = False
  824. List2.Visible = False
  825. List3.Visible = False
  826. List4.Visible = False
  827. List5.Visible = False
  828. List6.Visible = False
  829. List7.Visible = False
  830. List8.Visible = False
  831. List9.Visible = False
  832. List10.Visible = False
  833. List11.Visible = False
  834. List12.Visible = False
  835. List13.Visible = False
  836. List14.Visible = False
  837. List15.Visible = True
  838. List16.Visible = False
  839. List17.Visible = False
  840. List18.Visible = False
  841. List19.Visible = False
  842. List20.Visible = False
  843. List21.Visible = False
  844. List22.Visible = False
  845. List23.Visible = False
  846. List24.Visible = False
  847. List25.Visible = False
  848. ElseIf Combo1.ListIndex = 15 Then
  849. List1.Visible = False
  850. List2.Visible = False
  851. List3.Visible = False
  852. List4.Visible = False
  853. List5.Visible = False
  854. List6.Visible = False
  855. List7.Visible = False
  856. List8.Visible = False
  857. List9.Visible = False
  858. List10.Visible = False
  859. List11.Visible = False
  860. List12.Visible = False
  861. List13.Visible = False
  862. List14.Visible = False
  863. List15.Visible = False
  864. List16.Visible = True
  865. List17.Visible = False
  866. List18.Visible = False
  867. List19.Visible = False
  868. List20.Visible = False
  869. List21.Visible = False
  870. List22.Visible = False
  871. List23.Visible = False
  872. List24.Visible = False
  873. List25.Visible = False
  874. ElseIf Combo1.ListIndex = 16 Then
  875. List1.Visible = False
  876. List2.Visible = False
  877. List3.Visible = False
  878. List4.Visible = False
  879. List5.Visible = False
  880. List6.Visible = False
  881. List7.Visible = False
  882. List8.Visible = False
  883. List9.Visible = False
  884. List10.Visible = False
  885. List11.Visible = False
  886. List12.Visible = False
  887. List13.Visible = False
  888. List14.Visible = False
  889. List15.Visible = False
  890. List16.Visible = False
  891. List17.Visible = True
  892. List18.Visible = False
  893. List19.Visible = False
  894. List20.Visible = False
  895. List21.Visible = False
  896. List22.Visible = False
  897. List23.Visible = False
  898. List24.Visible = False
  899. List25.Visible = False
  900. ElseIf Combo1.ListIndex = 17 Then
  901. List1.Visible = False
  902. List2.Visible = False
  903. List3.Visible = False
  904. List4.Visible = False
  905. List5.Visible = False
  906. List6.Visible = False
  907. List7.Visible = False
  908. List8.Visible = False
  909. List9.Visible = False
  910. List10.Visible = False
  911. List11.Visible = False
  912. List12.Visible = False
  913. List13.Visible = False
  914. List14.Visible = False
  915. List15.Visible = False
  916. List16.Visible = False
  917. List17.Visible = False
  918. List18.Visible = True
  919. List19.Visible = False
  920. List20.Visible = False
  921. List21.Visible = False
  922. List22.Visible = False
  923. List23.Visible = False
  924. List24.Visible = False
  925. List25.Visible = False
  926. ElseIf Combo1.ListIndex = 18 Then
  927. List1.Visible = False
  928. List2.Visible = False
  929. List3.Visible = False
  930. List4.Visible = False
  931. List5.Visible = False
  932. List6.Visible = False
  933. List7.Visible = False
  934. List8.Visible = False
  935. List9.Visible = False
  936. List10.Visible = False
  937. List11.Visible = False
  938. List12.Visible = False
  939. List13.Visible = False
  940. List14.Visible = False
  941. List15.Visible = False
  942. List16.Visible = False
  943. List17.Visible = False
  944. List18.Visible = False
  945. List19.Visible = True
  946. List20.Visible = False
  947. List21.Visible = False
  948. List22.Visible = False
  949. List23.Visible = False
  950. List24.Visible = False
  951. List25.Visible = False
  952. ElseIf Combo1.ListIndex = 19 Then
  953. List1.Visible = False
  954. List2.Visible = False
  955. List3.Visible = False
  956. List4.Visible = False
  957. List5.Visible = False
  958. List6.Visible = False
  959. List7.Visible = False
  960. List8.Visible = False
  961. List9.Visible = False
  962. List10.Visible = False
  963. List11.Visible = False
  964. List12.Visible = False
  965. List13.Visible = False
  966. List14.Visible = False
  967. List15.Visible = False
  968. List16.Visible = False
  969. List17.Visible = False
  970. List18.Visible = False
  971. List19.Visible = False
  972. List20.Visible = True
  973. List21.Visible = False
  974. List22.Visible = False
  975. List23.Visible = False
  976. List24.Visible = False
  977. List25.Visible = False
  978. ElseIf Combo1.ListIndex = 20 Then
  979. List1.Visible = False
  980. List2.Visible = False
  981. List3.Visible = False
  982. List4.Visible = False
  983. List5.Visible = False
  984. List6.Visible = False
  985. List7.Visible = False
  986. List8.Visible = False
  987. List9.Visible = False
  988. List10.Visible = False
  989. List11.Visible = False
  990. List12.Visible = False
  991. List13.Visible = False
  992. List14.Visible = False
  993. List15.Visible = False
  994. List16.Visible = False
  995. List17.Visible = False
  996. List18.Visible = False
  997. List19.Visible = False
  998. List20.Visible = False
  999. List21.Visible = True
  1000. List22.Visible = False
  1001. List23.Visible = False
  1002. List24.Visible = False
  1003. List25.Visible = False
  1004. ElseIf Combo1.ListIndex = 21 Then
  1005. List1.Visible = False
  1006. List2.Visible = False
  1007. List3.Visible = False
  1008. List4.Visible = False
  1009. List5.Visible = False
  1010. List6.Visible = False
  1011. List7.Visible = False
  1012. List8.Visible = False
  1013. List9.Visible = False
  1014. List10.Visible = False
  1015. List11.Visible = False
  1016. List12.Visible = False
  1017. List13.Visible = False
  1018. List14.Visible = False
  1019. List15.Visible = False
  1020. List16.Visible = False
  1021. List17.Visible = False
  1022. List18.Visible = False
  1023. List19.Visible = False
  1024. List20.Visible = False
  1025. List21.Visible = False
  1026. List22.Visible = True
  1027. List23.Visible = False
  1028. List24.Visible = False
  1029. List25.Visible = False
  1030. ElseIf Combo1.ListIndex = 22 Then
  1031. List1.Visible = False
  1032. List2.Visible = False
  1033. List3.Visible = False
  1034. List4.Visible = False
  1035. List5.Visible = False
  1036. List6.Visible = False
  1037. List7.Visible = False
  1038. List8.Visible = False
  1039. List9.Visible = False
  1040. List10.Visible = False
  1041. List11.Visible = False
  1042. List12.Visible = False
  1043. List13.Visible = False
  1044. List14.Visible = False
  1045. List15.Visible = False
  1046. List16.Visible = False
  1047. List17.Visible = False
  1048. List18.Visible = False
  1049. List19.Visible = False
  1050. List20.Visible = False
  1051. List21.Visible = False
  1052. List22.Visible = False
  1053. List23.Visible = True
  1054. List24.Visible = False
  1055. List25.Visible = False
  1056. ElseIf Combo1.ListIndex = 23 Then
  1057. List1.Visible = False
  1058. List2.Visible = False
  1059. List3.Visible = False
  1060. List4.Visible = False
  1061. List5.Visible = False
  1062. List6.Visible = False
  1063. List7.Visible = False
  1064. List8.Visible = False
  1065. List9.Visible = False
  1066. List10.Visible = False
  1067. List11.Visible = False
  1068. List12.Visible = False
  1069. List13.Visible = False
  1070. List14.Visible = False
  1071. List15.Visible = False
  1072. List16.Visible = False
  1073. List17.Visible = False
  1074. List18.Visible = False
  1075. List19.Visible = False
  1076. List20.Visible = False
  1077. List21.Visible = False
  1078. List22.Visible = False
  1079. List23.Visible = False
  1080. List24.Visible = True
  1081. List25.Visible = False
  1082. ElseIf Combo1.ListIndex = 24 Then
  1083. List1.Visible = False
  1084. List2.Visible = False
  1085. List3.Visible = False
  1086. List4.Visible = False
  1087. List5.Visible = False
  1088. List6.Visible = False
  1089. List7.Visible = False
  1090. List8.Visible = False
  1091. List9.Visible = False
  1092. List10.Visible = False
  1093. List11.Visible = False
  1094. List12.Visible = False
  1095. List13.Visible = False
  1096. List14.Visible = False
  1097. List15.Visible = False
  1098. List16.Visible = False
  1099. List17.Visible = False
  1100. List18.Visible = False
  1101. List19.Visible = False
  1102. List20.Visible = False
  1103. List21.Visible = False
  1104. List22.Visible = False
  1105. List23.Visible = False
  1106. List24.Visible = False
  1107. List25.Visible = True
  1108. End If
  1109.  
  1110. End Sub
  1111.  
  1112.  
1 Week Ago #7

Post your reply

Sign in to post your reply or Sign up for a free account.