線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1377
推到 Plurk!
推到 Facebook!

關於下拉式選單

答題得分者是:ddy
ghose
一般會員


發表:2
回覆:5
積分:1
註冊:2003-03-23

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-04-30 18:28:17 IP:218.165.xxx.xxx 未訂閱
我放置了七個圖,先將四個圖的visible設為false 在combo box的list裡設了3、4、5、6、7 當我選了4的時候,第四個圖會顯現出來 選了5的時候,第四跟第五個圖會顯現出來 這樣的程式碼要怎麼寫,有人可以幫忙ㄇ 我已經看了一個禮拜,五六本書了,真的寫不出來, 拜託各位,不然也可以跟我說哪裡有類似的討論或文章 謝謝各位。
tech_state
版主


發表:44
回覆:638
積分:641
註冊:2003-02-10

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-04-30 18:53:51 IP:61.221.xxx.xxx 未訂閱
ghose, 您好    在ComboBox的OnChange的Event裡寫以下的code  
   if(ComboBox1->Text == "4")
      Image4->Visible = true;
   else if(ComboBox1->Text == "5")
   {
      Image4->Visible = true;
      Image5->Visible = true;
   }
 
不知道這是不是您要的 我不會Delphi 如果這是您要的 只好請您自行翻成Delphi囉 ======================= <>是非終日有,不聽自然無 <>天下本無事,庸人自擾之
cmj
高階會員


發表:15
回覆:242
積分:226
註冊:2002-06-12

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-04-30 22:00:17 IP:211.76.xxx.xxx 未訂閱
引言: 我放置了七個圖,先將四個圖的visible設為false 在combo box的list裡設了3、4、5、6、7 當我選了4的時候,第四個圖會顯現出來 選了5的時候,第四跟第五個圖會顯現出來 這樣的程式碼要怎麼寫,有人可以幫忙ㄇ 我已經看了一個禮拜,五六本書了,真的寫不出來, 拜託各位,不然也可以跟我說哪裡有類似的討論或文章 謝謝各位。
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
  Image4.Visible:=( ComboBox1.Items.Strings[ComboBox1.ItemIndex]>='4' );
  Image5.Visible:=( ComboBox1.Items.Strings[ComboBox1.ItemIndex]>='5' );
  .
  .
  .
end;
參考看看
ddy
站務副站長


發表:262
回覆:2105
積分:1169
註冊:2002-07-13

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-04-30 23:11:52 IP:211.74.xxx.xxx 未訂閱
引言: 這樣的程式碼要怎麼寫,有人可以幫忙ㄇ 我已經看了一個禮拜,五六本書了,真的寫不出來, 拜託各位,不然也可以跟我說哪裡有類似的討論或文章
ghose 辛苦!辛苦! 那您要加加油囉~~ 寫程式,雖然有很多範例可以參考,但還是有許多是書上沒有寫的 仍需要靠自己動腦,發揮想像力 有時雖然您所找的資料看似與你要的無關,若基本觀念建立起來 就能夠以不變應萬變了 KTop 會做你的後盾,加油!! < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=8147403&CC=182217">
chih
版主


發表:48
回覆:1186
積分:639
註冊:2002-04-02

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-05-01 08:03:30 IP:211.74.xxx.xxx 未訂閱
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  case combobox1.ItemIndex of
    1: Image4.Visible := True;
    2: Image5.Visible := True;
    3: Image6.Visible := True;
    4: Image7.Visible := True;
  end;
end;
wnhoo
高階會員


發表:75
回覆:443
積分:198
註冊:2003-04-22

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-05-01 16:31:26 IP:61.155.xxx.xxx 未訂閱
procedure TForm1.ComboBox1Click(Sender: TObject); begin image3.Visible :=false; image4.Visible :=false; image5.Visible :=false; image6.Visible :=false; image7.Visible :=false; image8.Visible :=false; case strtoint(trim(combobox1.Text) ) of 3: image3.Visible :=true; 4: image4.Visible :=true; 5: image5.Visible :=true; 6: image6.Visible :=true; 7: image7.Visible :=true; 8: image8.Visible :=true; end; end;    风花雪月 e梦情缘
------
风花雪月 e梦情缘
ghose
一般會員


發表:2
回覆:5
積分:1
註冊:2003-03-23

發送簡訊給我
#7 引用回覆 回覆 發表時間:2003-05-01 23:14:20 IP:218.165.xxx.xxx 未訂閱
謝謝各位.... 其實... 我發現我po錯地方了...:P 我不是要問Delphi....而是要問VB的 不過從你們的回應,我知道要怎麼寫了...也寫出來了... 謝謝各位... 另外那個答題得分的功能要怎麼用阿.... 可不可以一次給很多人還是一次只給一個阿... 對不起喔...我很少來這邊發表文章... 有人可以跟我說嗎? 謝謝...
wnhoo
高階會員


發表:75
回覆:443
積分:198
註冊:2003-04-22

發送簡訊給我
#8 引用回覆 回覆 發表時間:2003-05-02 08:02:37 IP:61.155.xxx.xxx 未訂閱
其实语言之间本来就有互通性的,我建议你去一个大陆网站看看! 哪儿的关于VB类的资料很多,是一个CHINA程序员很集中的地方。    论坛 http://expert.csdn.net/Expert/Forum.asp    首页 http://www.csdn.net/        风花雪月 e梦情缘
------
风花雪月 e梦情缘
wnhoo
高階會員


發表:75
回覆:443
積分:198
註冊:2003-04-22

發送簡訊給我
#9 引用回覆 回覆 發表時間:2003-05-02 08:02:47 IP:61.155.xxx.xxx 未訂閱
其实语言之间本来就有互通性的,我建议你去一个大陆网站看看! 哪儿的关于VB类的资料很多,是一个CHINA程序员很集中的地方。    论坛 http://expert.csdn.net/Expert/Forum.asp    首页 http://www.csdn.net/        风花雪月 e梦情缘
------
风花雪月 e梦情缘
wnhoo
高階會員


發表:75
回覆:443
積分:198
註冊:2003-04-22

發送簡訊給我
#10 引用回覆 回覆 發表時間:2003-05-02 08:02:58 IP:61.155.xxx.xxx 未訂閱
其实语言之间本来就有互通性的,我建议你去一个大陆网站看看! 哪儿的关于VB类的资料很多,是一个CHINA程序员很集中的地方。    论坛 http://expert.csdn.net/Expert/Forum.asp    首页 http://www.csdn.net/        风花雪月 e梦情缘
------
风花雪月 e梦情缘
ghose
一般會員


發表:2
回覆:5
積分:1
註冊:2003-03-23

發送簡訊給我
#11 引用回覆 回覆 發表時間:2003-05-02 22:08:46 IP:218.165.xxx.xxx 未訂閱
謝謝...可是我看不懂簡體字ㄟ...
tech_state
版主


發表:44
回覆:638
積分:641
註冊:2003-02-10

發送簡訊給我
#12 引用回覆 回覆 發表時間:2003-05-02 23:48:07 IP:203.204.xxx.xxx 未訂閱
引言: 謝謝各位.... 其實... 我發現我po錯地方了...:P 我不是要問Delphi....而是要問VB的 不過從你們的回應,我知道要怎麼寫了...也寫出來了... 謝謝各位... 另外那個答題得分的功能要怎麼用阿.... 可不可以一次給很多人還是一次只給一個阿... 對不起喔...我很少來這邊發表文章... 有人可以跟我說嗎? 謝謝...
ghose, 您好 介紹您幾個不錯的VB網站 http://www.vbguide.com.tw/ http://infoserv.com.tw/vb/ http://www.vbqa.com 由這次的經驗 相信您也發現到寫程式最重要的是觀念 不管是用什麼工具開發 只要觀念懂了 就只剩下語法上的修正 不管用什麼開發工具 歡迎您繼續到KTop來一起研究討論 至於答題得分 一次只能給一位 選擇您要給分的那位答覆者即可 ======================= 是非終日有,不聽自然無 天下本無事,庸人自擾之 發表人 - tech_state 於 2003/05/02 23:51:30
ghose
一般會員


發表:2
回覆:5
積分:1
註冊:2003-03-23

發送簡訊給我
#13 引用回覆 回覆 發表時間:2003-05-03 01:34:19 IP:218.165.xxx.xxx 未訂閱
謝謝...你給的那些網址也是我平常都會去看的網站.... 也謝謝大家對我這初學者多多包含....真的很感激... 可是我覺得大家都有幫到忙ㄟ...因為我是從大家所給的程式拼湊出來的... 我自己本身也有c/c 的基礎...只是現在在學vb...還學不到2個月... 目前正在努力中...
系統時間:2024-06-08 13:47:43
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!