C++Builder Tips

リストビュー・一発クリア

リストビューを一発でクリアするサンプルです。

//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
　　ListView1->ViewStyle = vsReport;

　　for (int i=0;i<5;i++){
　　　　ListView1->Columns->Add()->Caption = "Field" + IntToStr(i);
　　}

　　for (int i=0;i<100;i++){
　　　　ListView1->Items->Add()->Caption = i;
　　　　ListView1->Items->Item[i]->SubItems->Add("項目0-" + IntToStr(i));
　　　　ListView1->Items->Item[i]->SubItems->Add("項目1-" + IntToStr(i));
　　　　ListView1->Items->Item[i]->SubItems->Add("項目2-" + IntToStr(i));
　　　　ListView1->Items->Item[i]->SubItems->Add("項目3-" + IntToStr(i));
　　　　ListView1->Items->Item[i]->SubItems->Add("項目4-" + IntToStr(i));
　　}

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
　　ListView1->Columns->Clear();
　　ListView1->Items->Clear();
}

//---------------------------------------------------------------------------

DownLoad bcbtips074.lzh 4KB(BCB5)