vb程序中有列表框,该怎么做才能
这个程序可以记住4个列表框里面的内容,如果要记住更多的,通过这个代码的学习,您完全可以掌握办法。
按照您自己的要求,在程序中添加一个列表框,两个按钮,一个文本框。
当然,代码是完全通过的。 附件里面的代码是过时了的,请不要查看。另外以后提问题时,尽量不要出现错别字
'代码从这里开始,直接复制
Private Sub Command1_Click() '添加指定的项目到列表框
Static k As Integer
List1。 AddItem Text1, k
k = k + 1
k1 = GetSetting(App。EXEName, "Window", "TextInfo1")
I...全部
这个程序可以记住4个列表框里面的内容,如果要记住更多的,通过这个代码的学习,您完全可以掌握办法。
按照您自己的要求,在程序中添加一个列表框,两个按钮,一个文本框。
当然,代码是完全通过的。
附件里面的代码是过时了的,请不要查看。另外以后提问题时,尽量不要出现错别字
'代码从这里开始,直接复制
Private Sub Command1_Click() '添加指定的项目到列表框
Static k As Integer
List1。
AddItem Text1, k
k = k + 1
k1 = GetSetting(App。EXEName, "Window", "TextInfo1")
If k1 = "" Then
SaveSetting App。
EXEName, "Window", "TextInfo1", Text1
ElseIf GetSetting(App。EXEName, "Window", "TextInfo2") = "" Then
SaveSetting App。
EXEName, "Window", "TextInfo2", Text1
ElseIf GetSetting(App。EXEName, "Window", "TextInfo3") = "" Then
SaveSetting App。
EXEName, "Window", "TextInfo3", Text1
ElseIf GetSetting(App。EXEName, "Window", "TextInfo4") = "" Then
SaveSetting App。
EXEName, "Window", "TextInfo4", Text1
End If
End Sub
Private Sub Command2_Click() '删除应用程序设置
'因为这些设置是永久保存在您的计算机中的,所以如果不需要时,请运行这里的代码
'否则可能会浪费计算机空间
On Error Resume Next '如果应用程序没有对按项进行设置,那么继续
DeleteSetting App。
EXEName, "Window", "TextInfo1"
DeleteSetting App。EXEName, "Window", "TextInfo2"
DeleteSetting App。
EXEName, "Window", "TextInfo3"
DeleteSetting App。EXEName, "Window", "TextInfo4"
End Sub
Private Sub Form_Load() '加载应用程序设置
Dim k1, k2, k3, k4
k1 = GetSetting(App。
EXEName, "Window", "TextInfo1")
List1。AddItem k1
k2 = GetSetting(App。EXEName, "Window", "TextInfo2")
List1。
AddItem k2
k3 = GetSetting(App。EXEName, "Window", "TextInfo3")
List1。AddItem k3
k4 = GetSetting(App。
EXEName, "Window", "TextInfo4")
List1。AddItem k4
End Sub
不知道回答是否满意?如果不满意,请继续给我发信,谢谢。收起