在窗体上画一个名称为Combo1的组合框 画两个名称分别Labe11和Labe12及Caption属
在窗体上画一个名称为Combo1的组合框,画两个名称分别Labe11和Labe12及Caption属性分别为“城市名称”和空白的标签。程序运行后,当在组合框中输入一个新项后按(Enter)键(ASCII码为13)时,如果输入的项在组合框的列表中不存在,则自动添加到组合框的列表中,并在Labe12中给出提示“已成功添加输入项”,如图20-3所示;如果存在,则在Labe12中给出提示“输入项已在组合框中”。请在【 】、【 】和【 】处将程序补充完整。 Private Sub Combo1【 】(KeyAscii As Integer) If KeyAscii=13 Then For i=0 To Combo1;ListCount-1 If Combo1.Text=【 】Then LabeCaption="输入项已在组合框中" Exit Sub End If Next i LabeCaption="已成功添加输入项" Combo1.【 】Combo1.Text End If End Sub
请帮忙给出正确答案和分析,谢谢!
参考解答
正确答案:KeyPress Comb01.List(i) AddItem
考查对组合框控件的使用,当输入新项后按下<Enter>键,要捕捉键盘的ASCII码,应在KeyPress事件中。在Combo1的KeyPress事件过程中通过循环判断用户的输入是否已在列表中,所以第二空因填Comb01.List(i)。如果用户输入的文本为新的内容,就应该添加到组合框中,应使用AddItem方法。
相似问题
以下程序的功能是每隔一定的时间在窗体的文本框中显示当前时间 刷新的时间间隔由滚动条来设定。窗体中有三
以下程序的功能是每隔一定的时间在窗体的文本框中显示当前时间,刷新的时间间隔由滚动条来设定。窗体中有三个控件:文本框控件Text1用来显示当前时间,水
已知在窗体上有一个文本框控件 它的名称为Text1 且输入的字符全部为数字 现在要把该字符转换为整数
已知在窗体上有一个文本框控件,它的名称为Text1,且输入的字符全部为数字,现在要把该字符转换为整数送给整型变量C,所用到的语句是【 】。请帮忙给出
窗体上有两个控件:一个是驱动器列表框Drive1 另一个是目录列表框Dir1 现在要使目录列表框跟随
窗体上有两个控件:一个是驱动器列表框Drive1,另一个是目录列表框Dir1,现在要使目录列表框跟随驱动器列表框的变化而变化,则需在Drive1_Change事件过程
为了使计时器控件Timer1每隔0.5s触发一次Timer事件 应将Timer1控件的Interva
为了使计时器控件Timer1每隔0 5s触发一次Timer事件,应将Timer1控件的Interva1属性设置为【 】。请帮忙给出正确答案和分析,谢谢!
下列程序的作用是:输入一个字符串 将其逆序输出。 说明:在窗体上放置两个文本框控件 其名称分别为Te
下列程序的作用是:输入一个字符串,将其逆序输出。 说明:在窗体上放置两个文本框控件,其名称分别为Text1和Text2,分别存放输入的字符串和逆序后的字
