控件的属性事件和方法文本控件图形图象控.pptVIP

3．列表框控件的方法(1)AddItem功能：向列表框中添加表项。格式为：Listx.AddItem字符串[,索引值](2)RemoveItem功能：从列表框中删除指定的表项。格式为：Listx.RemoveItem索引值(3)Clear功能：清楚列表框中的全部内容。清除列表框中的全部内容Listx.ClearPrivateSubForm_Load()List1.AddItem00000List1.AddItem111111List1.AddItem222222EndSubPrivateSubList1_Click()‘单击表项Print你好EndSubPrivateSubList1_ItemCheck(ItemAsInteger)‘单击表项前面的复选框IfItem=2ThenMsgBox快乐千金难买EndSub例：列表框控件的事件、方法举例。P122.vbp例：列表框控件的综合应用，p123.vbp(1)窗体界面设计控件NameCaptionMultiSellect列表框(List)List1－2-ExtendedList2命令按钮(Command)CmdAdd添加[A]－CmdRemove清除[R](2)控件属性设置PrivateSubForm_Load()List1.AddItem语文List1.AddItem数学List1.AddItem英语List1.AddItem物理List1.AddItem化学List1.AddItem政治List1.AddItem历史List1.AddItem生物List1.AddItem地理List1.AddItem体育EndSub(3)程序代码PrivateSubCmdAdd_Click()DimiAsIntegerIfList1.SelCount1ThenExitSub在List1中未选择时，不执行添加功能IfList1.SelCount1Then 在List1中选择多项时Fori=0ToList1.ListCount-1IfList1.Selected(i)=TrueThenList2.AddItemList1.List(i)EndIfNextiElse 在List1中选择一项时List2.AddItemList1.TextEndIfEndSubPrivateSubCmdRemove_Click()DimiAsIntegerIfList2.SelCount1ThenExitSub在List2中未选择时，不执行删除功能IfList2.SelCount1Then 在List2中选择多项时Fori=List2.ListCount-1To0Step-1IfList2.Selected(i)=TrueThenList2.RemoveItemiEndIfNextiElse 在List2中选择一项时List2.RemoveItemList2.ListIndexEndIfEndSubPrivateSubList1_DblClick()List2.AddItemList1.TextEndSubPrivateSubList2_DblClick()List2.RemoveItemList2.ListIndexEndSub组合框由列表框部分和文本框部分组成，兼有列表框和文本框的功能，既允许用户在列表框部分进行选择，也允许用户在文本框部分输入和编辑。三、组合框（ComboBox）文本框列表框New1．组合框控件的属性组合框控件默认的名称是Combon（n为1，2，3，…）(1)Locked确定组合框控件的文本框部分是否允许编辑。True:文本框部分不允许编辑也不能从下拉列表中选择。False:文本框部分允许编辑。(