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/)