Question

VB6 一个难题的代码编写

难题啊，我都做了2小时了。。。。
如图设计的。

（1） 程序启动后，窗体及控件属性如图2所示，前3个命令按钮为禁用。
（2） 若文本框中信息为空，第一命令按钮被禁用，一旦文本框非空，该按钮被激活，当单击“添加项目”按钮后将文本框中信息添加在列表框中，同时文本框清空。
（3） 当列表框非空，用户选中一个列表项，则激活“删除项目”按钮，当单击该按钮则删除该列表项，删除完成后该按钮被再次禁用。
（4） 当列表框非空，就可进行“清除”操作，单击“清楚”按钮，则清除列表框内所有列表项。
（5） 单击“退出”，程序结束。
（6） 标签3中实时显示列表框中列表项的个数。

Answer 1

[文本框]
Private Sub Text1_Change()
If Text1 = "" Then
Command1.Enabled = False
Else
Command1.Enabled = True
End If
End Sub
[添加项目]
Private Sub Command1_Click()
List1.AddItem Text1
Text1 = vbNullString
Command2.Enabled = True
Command3.Enabled = True
Command1.Enabled = False
End Sub
[删除项目]
Private Sub Command2_Click()
List1.RemoveItem List1.ListIndex
If List1.ListCount = 0 Then
Command3.Enabled = False
Command2.Enabled = False
End If
Label3.Caption = List1.ListCount
End Sub
[清除项目]
Private Sub Command3_Click()
List1.Clear
Command2.Enabled = False
Command3.Enabled = False
Label3.Caption = 0
End Sub
[退出]
Private Sub Command4_Click()
End
End Sub

Answer 2

这个只是基础知识，一点都不难实现…