SOGO論壇

標題: VB的問題,求助 [列印本頁]

作者: ct6174    時間: 2013-5-2 20:22:41     標題: VB的問題,求助

本帖最後由 ct6174 於 2013-5-2 20:25 編輯

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

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

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

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

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

求如何實現??
感激不盡^^
作者: qlfabm2001    時間: 2013-5-3 04:49:54

本帖最後由 qlfabm2001 於 2013-5-3 05:08 編輯

變數:
宣告 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    時間: 2013-5-3 11:31:07

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


感謝大大~

不過小弟不才...

不管我按Command1,2,3,在選Option1,2,3
出現的圖都是圖1,2,3
圖4~9都不會秀出
請問問題出在那呢?
作者: qlfabm2001    時間: 2013-5-4 00:27:40

本帖最後由 qlfabm2001 於 2013-5-4 00:33 編輯

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

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

如果可以就是你Command1沒弄好
(還有圖片位置是要圖1~圖9
看看你圖片路徑是不是有問題)
作者: ct6174    時間: 2013-5-4 00:46:29

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





歡迎光臨 SOGO論壇 (https://oursogo.com/) Powered by OURSOGO.COM