关闭标签，（多页浏览器）自己写的一块代码给大家看看吧

stillness

1. 
   
2.         public:
   
3.                 /// <summary>
   
4.                 /// 关闭标签
   
5.                 /// </summary>
   
6.                 System::Void CloseTagIE(System::Int32 Index,System::Boolean ALL)
   
7.                 {
   
8.                         if (IE->Count>0&&tabControl1->TabPages->Count>0)
   
9.                         {
   
10.                                 if (ALL)
    
11.                                 {
    
12.                                         while (IE->Count>1)
    
13.                                         {
    
14.                                                 for (System::Int32 i=0;i<IE->Count;i++)
    
15.                                                 {
    
16.                                                         if(IE->Count>1)
    
17.                                                         {
    
18.                                                                 this->Controls->Remove(IE[i]);
    
19.                                                                 delete IE[i];
    
20.                                                                 IE->RemoveAt(i);
    
21.                                                                 tabControl1->TabPages->RemoveAt(i);
    
22.                                                                 tabControl1->Refresh();
    
23.                                                         }
    
24.                                                         if (IE->Count==1)
    
25.                                                         {
    
26.                                                                 NavigateBroswer(ReadValue(Name,"#_BlankPage",INIPath),1);
    
27.                                                         }
    
28.                                                 }
    
29.                                         }
    
30.                                         HTMLIcon->Clear();
    
31.                                 }
    
32.                                 else
    
33.                                 {
    
34.                                         if (IE->Count==1)
    
35.                                         {
    
36.                                                 NavigateBroswer(ReadValue(Name,"#_BlankPage",INIPath),1);
    
37.                                         }
    
38.                                         else
    
39.                                         if(IE->Count >1)
    
40.                                         {
    
41.                                                 this->Controls->Remove(IE[Index]);
    
42.                                                 delete IE[Index];
    
43.                                                 IE->RemoveAt(Index);
    
44.                                                 if (IE->Count>0)
    
45.                                                 {
    
46.                                                         if (tabControl1->SelectedIndex<IE->Count-1)
    
47.                                                         {
    
48.                                                                 tabControl1->SelectedIndex=tabControl1->SelectedIndex;
    
49.                                                         }
    
50.                                                         else
    
51.                                                         {
    
52.                                                                 tabControl1->SelectedIndex=tabControl1->SelectedIndex-1;
    
53.                                                         }
    
54.                                                 }
    
55.                                                 tabControl1->TabPages->RemoveAt(Index);
    
56.                                                 tabControl1->Refresh();
    
57.                                         }
    
58.                                 }
    
59.                         }
    
60.                 }
    

复制代码

小白熊

总觉得挺牛逼的----

555555qq

这是什么代码，完全看不懂

Cramps

不是易语言的

Violation

谢谢分享。