VB的問題，求助

ct6174

我自己再寫一個VB的小程式～遇上些瓶頸～求助板上高手們～

想要表現的如下(簡化後)：
有三個章節～每個章節有三個詞～每個詞有一張圖片

假設我使用了3個Command,3個Option,1個Image

所以完成後想實現的是：
點Command1＞再點Option1＞Image1即秀出第一章第一個詞的圖
點Command3＞再點Option2＞Image1即秀出第三章第二個詞的圖
.
.
.
此例共9個組合

註1：小弟不要的是～～點Command1＞再點Option1＞還需再點Command1＞Image1才會秀出第一章第一個詞的圖
註2：我是用VB6

求如何實現？？
感激不盡^^

qlfabm2001

變數:
宣告 sw變數 \\章節選擇

物件:
Command1  做物件陣列3個    (做法將物件用ctrl+c 複製   在ctrl+v 貼上)
Option1       做成物件陣列3個(同上)
Image1       做一個

事件:
點擊Command1 他會變成這種程式碼
Private Sub Command1_Click(Index As Integer)
............
End Sub

填入
Select Case Index
Case 0
    SW = 0
Case 1
    SW = 1
Case 2
    SW = 2
End Select
------------------------------------------------------------------------------------
點擊Option1
Private Sub Option1_Click(Index As Integer)
............
End Sub

填入

Select Case SW
Case 0
    Select Case Index
    Case 0
        Image1.Picture = LoadPicture("圖片位置")
    Case 1
        Image1.Picture = LoadPicture("圖片位置")
    Case 2
        Image1.Picture = LoadPicture("圖片位置")
    End Select
Case 1
    Select Case Index
    Case 0
        Image1.Picture = LoadPicture("圖片位置")
    Case 1
        Image1.Picture = LoadPicture("圖片位置")
    Case 2
        Image1.Picture = LoadPicture("圖片位置")
    End Select
Case 2
    Select Case Index
    Case 0
        Image1.Picture = LoadPicture("圖片位置")
    Case 1
        Image1.Picture = LoadPicture("圖片位置")
    Case 2
        Image1.Picture = LoadPicture("圖片位置")
    End Select
End Select


結果:
當選好 章節 在選擇 詞 圖片會自動更新
如果想要選 章節 也會自動更新圖片~請參考 詞 內的程式自行修改

ct6174

qlfabm2001 發表於 2013-5-3 04:49  
變數:
宣告 sw變數 \\章節選擇

感謝大大～

不過小弟不才...

不管我按Command1,2,3，在選Option1,2,3
出現的圖都是圖1,2,3
圖4～9都不會秀出
請問問題出在那呢？

qlfabm2001

你直接把  SW 直接給0，1，2值

0顯示  1~3
1顯示  4~6
2顯示  7~9

如果可以就是你Command1沒弄好
(還有圖片位置是要圖1~圖9
看看你圖片路徑是不是有問題)

ct6174

恩恩
謝謝大大
我是笨蛋～～
我發現問題出在我把sw變數宣告在Command1_Click裡面