vb
程序中有列表框, 该怎么做才能使下次打开时,列表框中的内容显示的是上次最后添加的内容? 我编绎成EXE后,打开程序在列表框里面添加内容,然后关闭,再打开程序,列表框又变成空白的,郁闷,输入的内容该怎么才能永久保存哦 上次有位大哥帮我解答了文本框的保存方法(如下)那列表框的保存方法呢? '在窗体中添加两个按钮 '在文本框里写入字符,之后点击按钮1,退出应用程序,再启动应用程序, 即可看到您想要的效果 '按钮2是用来删除设置的 Private Sub Command1_Click() k1 = Text1 SaveSetting App.EXEName, "Window", "TextInof", k1 '保存文本设置 End Sub Private Sub Command2_Click() DeleteSetting App.EXEName, "Window", "TextInof" '删除应用程序设置 End Sub Private Sub Form_Load() k1 = GetSetting(App.EXEName, "Window", "TextInof") '读取文本框设置 Text1 = k1 End Sub
这个程序可以记住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 不知道回答是否满意?如果不满意,请继续给我发信,谢谢。
答:这个程序可以记住4个列表框里面的内容,如果要记住更多的,通过这个代码的学习,您完全可以掌握办法. 按照您自己的要求,在程序中添加一个列表框,两个按钮,一个文本框...详情>>
答:线性链表分好几种,分为单链,双链等,它们的存储顺序也不一样. 线性表是顺序存储的,占顺序的存储空间详情>>
问:电脑安装了VB6.0,为什么打开方式里面没有VB程序选项,进安装好的VB里去关联...
答:打开方式最下面还有一个《选择程序》,点开后查VB的安装目录的EXE,找到后直接打开,下次就会在打开方式里查到了详情>>