ListBox问题!
我有一段代码,目的是为了给ListBox添加并保存数据,但是我测试并没没有达到我的目的,下次再打开ListBox时添加进去的就没有啦,帮我看看。
Private Sub Command1_Click()
On Error Resume Next
Dim Parameter As String
Parameter = InputBox("请输入系统参数的名称:", "系统参数")
If Parameter = "" Then
Exit Sub
Else
List1.AddItem Parameter
List1.Refresh
End If
End Sub