ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

ｿｽｿｽｿｽｿｽ 2011/05/08(ｿｽｿｽ) 13:32:29

Form1ｿｽｿｽTreeView1ｿｽｿｽImageList1ｿｽｿｽ¥ｿｽｿｽtｿｽｿｽｿｽAImageListｿｽﾉは１ｿｽUｿｽｿｽｿｽPｿｽUｿｽｿｽBitmapｿｽｿｽｿｽQｿｽｿｽｿｽoｿｽ^ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽｿｽﾈコｿｽ[ｿｽhｿｽﾅ申ｿｽｿｽｿｽあゑｿｽﾜゑｿｽｿｽが、

procedureｿｽ@TForm1.FormCreate(Sender: TObject);
var
  i:ｿｽ@integer;
  MyTreeNode1:ｿｽ@TTreeNode;
begin

ｿｽ@for i:=0 to 36 do
ｿｽ@begin
 ｿｽ@ｿｽ@with TreeView1.Items do
 ｿｽ@ｿｽ@begin

 ｿｽ@ｿｽ@MyTreeNode1 := Add(nil, 'TreeNodeｿｽF' +IntToStr(i)); ｿｽ@
ｿｽ@ｿｽ@ｿｽ@if i=5 then MyTreeNode1.ImageIndex := 1;

ｿｽ@ｿｽ@ｿｽ@end;

ｿｽ@end;

end;

ｿｽﾆゑｿｽｿｽｿｽﾆ、ｿｽUｿｽﾔ目のアｿｽCｿｽeｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽCｿｽｿｽｿｽ[ｿｽWｿｽｿｽｿｽPｿｽﾉなゑｿｽﾜゑｿｽｿｽB

ｿｽﾆゑｿｽｿｽがｿｽAｿｽRｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽｿｽｿｽﾄ６ｿｽsｿｽﾚゑｿｽIｿｽｿｽｿｽｿｽｿｽﾆイｿｽｿｽｿｽ[ｿｽWｿｽｿｽｿｽOｿｽﾉ費ｿｽｿｽ]ｿｽiｿｽHｿｽjｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB

TreeViewｿｽｿｽNodeｿｽﾌ親ｿｽqｿｽﾖ係ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽAｿｽfｿｽlｿｽIｿｽﾉ搾ｿｽｿｽfｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾇゑｿｽｿｽｿｽlｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB

ｿｽｿｽ 2011/05/08(ｿｽｿｽ) 14:42:48

ｿｽﾝ定すｿｽﾗゑｿｽｿｽCｿｽｿｽｿｽ[ｿｽWｿｽﾌイｿｽｿｽｿｽfｿｽbｿｽNｿｽXｿｽﾍ３ｿｽﾂゑｿｽｿｽｿｽB
ｿｽﾆりあｿｽｿｽｿｽｿｽTreeViewｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾉ茨ｿｽﾂ貼ｿｽｿｽtｿｽｿｽｿｽﾄ、ｿｽ_ｿｽuｿｽｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽｿｽ
ｿｽmｿｽ[ｿｽhｿｽﾌ追会ｿｽｿｽｿｽﾊを眺めてみまゑｿｽｿｽ蛯､ｿｽB
ｿｽｿｽｿｽｿｽｿｽﾉ鯉ｿｽｿｽｿｽｿｽﾄるこｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽｿｽ 2011/05/09(ｿｽｿｽ) 01:42:26

ｿｽIｿｽｿｽｿｽｿｽCｿｽｿｽｿｽfｿｽbｿｽNｿｽXｿｽAｿｽﾅゑｿｽｿｽﾋ？

ｿｽRｿｽ[ｿｽhｿｽｿｽﾅは、MyTreeNode1.SelectedIndexｿｽﾉ設定すｿｽ驍ｱｿｽﾆでゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽﾇゑｿｽｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽﾌペｿｽ[ｿｽWｿｽﾌトｿｽbｿｽvｿｽｿｽ