在窗体上画一个名称为Combol的组合框,画两个名称分别Label1和Label2及Caption属性分别为“城市名称”和空白的标签。程序运行后,当在组合框中输入一个新项后按回车键(ASCII码为13)时,如果输入的项在组合框的列表中不存在,则自动添加到组

admin2009-01-15  55

问题 在窗体上画一个名称为Combol的组合框,画两个名称分别Label1和Label2及Caption属性分别为“城市名称”和空白的标签。程序运行后,当在组合框中输入一个新项后按回车键(ASCII码为13)时,如果输入的项在组合框的列表中不存在,则自动添加到组合框的列表中,并在Label2中给出提示“已成功添加输入项”如图所示:

如果存在,则在Label2中给出提示“输入项已在组合框中”。请在【  】、【  】和【  】处将程序补充完整。
   Private Sub Combo1【  】(Key Ascii As Integer)
     If Key Ascii=13 Then
        For i=0 TO Comb01.ListCount-1
         If Combo1.Text=【  】Then
            LabelCaption=“输入项已在组合框中”
            Exit Sub
         End If
     Next i
      LabelCaption=“已成功添加输入项”
   Combo1.【  】Combo1.Text
End If
End Sub

选项

答案 KeyPress , Comb01.List(i) , Addltem

解析 当按回车键,即触发组合框的KeyPress文件,故[12]中填KeyPress。
   List属性返回组合框的表项,可以通过下标来访问,[13]中填Combo1.list(i)即指组合框中所有表项。
   对于[14],Additem方法为组合框添加表项。
转载请注明原文地址:https://kaotiyun.com/show/yv2p777K
0

最新回复(0)