全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2399
推到 Plurk!
推到 Facebook!

如何讓ListBox中的Items全部為選取狀態

尚未結案
Tacohsu
一般會員


發表:6
回覆:12
積分:8
註冊:2002-07-18

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-04-10 22:14:05 IP:61.228.xxx.xxx 未訂閱
請問各位先進,小弟想將載入ListBox的資料,直接顯示為選取狀態(藍色),要怎麼辦到呢???
ddy
站務副站長


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

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-04-11 02:19:10 IP:211.74.xxx.xxx 未訂閱
1 載入資料 2 ListBox1->MultiSelect=true; 3 ListBox1->SelectAll(); OK      發表人 - ddy 於 2003/04/11 09:12:22
Tacohsu
一般會員


發表:6
回覆:12
積分:8
註冊:2002-07-18

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-04-11 10:35:21 IP:203.67.xxx.xxx 未訂閱
ddy版主謝謝你的回應,不過我測過後發現ListBox並不能用SelectAll(),好像只能用在ComboBox中哩!!!
axsoft
版主


發表:681
回覆:1056
積分:969
註冊:2002-03-13

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-04-11 10:38:30 IP:61.218.xxx.xxx 未訂閱
引言: 請問各位先進,小弟想將載入ListBox的資料,直接顯示為選取狀態(藍色),要怎麼辦到呢??? < face="Verdana, Arial, Helvetica"> Tacohsu您好: 試試看這是不是你要的東西
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    ListBox1->Items->Add("Chad");
    ListBox1->Items->Add("Equatorial Guinea");
    ListBox1->Items->Add("Egypt");
    ListBox1->Items->Add("Madagascar");
    ListBox1->Items->Add("1");
    ListBox1->Items->Add("2");
    ListBox1->Items->Add("3");
    ListBox1->Items->Add("4");
    ListBox1->MultiSelect=true; 
    for (int x=1;x<5;x  )
     {
       ListBox1->Selected[x]=true;
     }
}
聯盟----Visita網站http://www.vista.org.tw ---[ 發問前請先找找舊文章 ]--- 發表人 - axsoft 於 2003/04/11 11:46:58
Tacohsu
一般會員


發表:6
回覆:12
積分:8
註冊:2002-07-18

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-04-11 11:13:02 IP:61.220.xxx.xxx 未訂閱
void __fastcall TForm1::FormCreate(TObject *Sender) {   ListBox1->MultiSelect = true;   Button1->Caption = "Move to Top";   for (int i = 1; i <= 50; i++)     ListBox1->Items->Add("Item " + IntToStr(i)); } //---------------------------------------------------------------------------    void __fastcall TForm1::CheckBox1Click(TObject *Sender) {   //使用Checkbox做全選or取消動作   if(CheckBox1->Checked == true)  {     for(int j=0;jItems->Count;j ) { ListBox1->Selected[j]=true; } } if(CheckBox1->Checked == false) { for(int j=0;jItems->Count;j ) { ListBox1->Selected[j]=false; } } ListBox1->ItemIndex = 0; //回到資料最上方移至頂端 } //--------------------------------------------------------------------------- 發表人 - tacohsu 於 2003/04/11 11:45:09
ddy
站務副站長


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

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-04-11 11:42:19 IP:61.218.xxx.xxx 未訂閱
Tacohsu 我聲明一下…我講的可以做,偶沒有唬嚨你啦~~ 以下程式碼在 class="code"> void __fastcall TForm1::Button1Click(TObject *Sender) { //1 載入資料 ListBox1->Items->Add("aaaa"); ListBox1->Items->Add("bbbb"); ListBox1->Items->Add("cccc"); ListBox1->Items->Add("dddd"); ListBox1->Items->Add("eeee"); ListBox1->Items->Add("ffff"); //2 ListBox1->MultiSelect=true; //3 ListBox1->SelectAll(); }
Tacohsu
一般會員


發表:6
回覆:12
積分:8
註冊:2002-07-18

發送簡訊給我
#7 引用回覆 回覆 發表時間:2003-04-11 11:52:06 IP:203.67.xxx.xxx 未訂閱
小弟所使用的是Bcb5來開發,不知Bcb6的元件已經有這功能了 ddy版主,還是要謝謝你啦!!    那隻小青蛙看起來有趣極了
axsoft
版主


發表:681
回覆:1056
積分:969
註冊:2002-03-13

發送簡訊給我
#8 引用回覆 回覆 發表時間:2003-04-11 11:52:34 IP:61.218.xxx.xxx 未訂閱
引言: Tacohsu 我聲明一下…我講的可以做,偶沒有唬嚨你啦~~ 以下程式碼在 class="code"> void __fastcall TForm1::Button1Click(TObject *Sender) { //1 載入資料 ListBox1->Items->Add("aaaa"); ListBox1->Items->Add("bbbb"); ListBox1->Items->Add("cccc"); ListBox1->Items->Add("dddd"); ListBox1->Items->Add("eeee"); ListBox1->Items->Add("ffff"); //2 ListBox1->MultiSelect=true; //3 ListBox1->SelectAll(); }
ddy你的程式碼沒錯啦!但只能在BCB6裡使用,我寫的方法在BCB4/5/6皆可適用,僅供大家參考!< > 抱歉搶了你的分數!< > 聯盟----Visita網站http://www.vista.org.tw ---[ 發問前請先找找舊文章 ]---
ddy
站務副站長


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

發送簡訊給我
#9 引用回覆 回覆 發表時間:2003-04-11 12:02:11 IP:61.218.xxx.xxx 未訂閱
引言: ddy你的程式碼沒錯啦!但只能在BCB6裡使用,我寫的方法在BCB4/5/6皆可適用,僅供大家參考! 抱歉搶了你的分數! < face="Verdana, Arial, Helvetica"> 哈哈…沒關係啦…axsoft 你一出手…分數到手,我只能邊邊站囉 我沒有 > 不過>< face="Verdana, Arial, Helvetica">引言: 那隻小青蛙看起來有趣極了
嗯…對呀…要開心點…不然…寫程式真苦悶 < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=8147403&CC=182217">
系統時間:2024-03-29 17:29:01
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!