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

admin2013-04-11  37

问题 在窗体上画一个名称为Combol的组合框,画两个名称分别为Label1和Label2及Caption,属性分别为“城市名称”和空白的标签。程序运行后,当在组合框中输入一个新项后按回车键(ASCII码为13)时,如果输入的项在组合框的列表中不存在,则自动添加到组合框的列表中,并在Label2中给出提示“已成功添加输入项”,如图16-3所示;如果存在,则在Label2中给出提示“输入项已在组合框中”。请在【  】、【  】和【  】处将程序补充完整。
Private Sub Comhel【  】(KeyAscii As Integer)
If KeyAseii=13 Then
For i=0 To Combol. ListCount-1
If Combol. Text=【  】Then
LabelCaption="输入项已在组合框中"
Exit Sub
End If
Next i
LabelCaption="已成功添加输入项"
Combol.【  】Combol. Text
End If
End Sub

选项

答案KeyPress ,combol. List(i) ,AddItem

解析 当KeyAscii为13时,表示按下回车键若要组合框控件接收一个回车事件,则要使用Combol_KeyPress事件。ListCount属性列出组合框中表项的数量;List属性保存了组合框中所有值的数组;Addltem方法用来在列表框中插入一行文本。
转载请注明原文地址:https://jikaoti.com/ti/4FO0FFFM
0

最新回复(0)