内部控件实习题解.doc

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 列表中已存在,下标为 + Str(i), 0, 提示 Text2.Text = Exit Sub End If Next i List1.AddItem Text2.Text Text2.Text = End If End Sub Private Sub Command2_Click() If List1.ListIndex = 0 And List1.ListIndex List1.ListCount Then List1.RemoveItem (List1.ListIndex) End If Call Encomm End Sub Private Sub Command3_Click() List1.Clear End Sub Private Sub Command4_Click() If Not IsNull(Text3) Then For i = 0 To List1.ListCount - 1 If StrComp(List1.List(i), Text3.Text) = 0 Then MsgBox 索引：在列表中的位置是下标为 + Str(i), 0, 查找结果 Exit Sub End If Next i MsgBox 很抱歉，未找到该城市名, 0, 信息提示 End If End Sub Private Sub Command5_Click() For i = 0 To List1.ListCount - 1 If Not IsNull(Text3) And StrComp(List1.List(i), Text3.Text) 0 Then List1.AddItem Text3.Text Text3.Text = End If Next i End Sub 四、窗体设计 设计一个窗体，其中放置一个图片框、两个框架Frame1和Frame2、两个标签、三个文本框Text1~3、五个命令按钮Command1~5，其设计界面如下图所示： 五、注意事项： （1）如果列表中已经存在的城市名，再添加时，会出现提示框，显示“列表中已存在，下标为i”。 （2）选中列表中任何一项，按删除键，该项就会在列表中消失。 （3）按清空键，列表就会变空。 （4）如果要查找的城市名不在列表中，就会出现提示框，显示“很抱歉，未找到该城市名”，否则，显示“索引：在列表中的位置是下标为i”。 （5）如果要查找的城市名不在列表中，按无名添加按钮，列表中会增加该城市名。 （6）最重要的是：在两个文本框中输入城市名时，要空一格再输入。