内部控件实习题解.docVIP

VB内部控件实习题解 一、实验题目： 设计一个窗体，提供一个列表框项目录入界面，并判断用户在文本框中的字符串是否是列表框中的某个项目，若是，返回其索引，否则提示相应的信息。 二、实验要求： (1) 提供列表框的添加和删除项目功能 (2) 当没有选择列表框项目时，删除命令按钮变为无效 (3) 以提示框显示查找结果。 三、代码设计： Private Sub From_Load() Command2.Enabled = False End Sub Private Sub List1_Click() Call Encomm End Sub Private Sub Encomm() If List1.ListIndex = 0 Then Command2.Enabled = True Else Command2.Enabled = False End If End Sub Private Sub Command1_Click() If Not IsNull(Text2) Then For i = 0 To List1.ListCount - 1 If StrComp(List1.List(i), Text2.Text) = 0 Then MsgBox 列表中已存在,下标