怎样做才能保存combobox里面的内容呢?VB
在FORM里用一个按键来控制添加内容,当在textbox里输入内容后再按这个按键,内容就保存到combobox里了,在其下拉菜单就能显示所添加的内容,但只要关闭这个FOR...
在FORM里用一个按键来控制添加内容,当在textbox里输入内容后再按这个按键,内容就保存到combobox里了,在其下拉菜单就能显示所添加的内容,但只要关闭这个FORM其保存的内容就没有了,在重新打开FORM的时候combobox里的内容变回空的
请教下大家怎样做才能使其保存成功呢?
详细代码介绍下,谢谢 展开
请教下大家怎样做才能使其保存成功呢?
详细代码介绍下,谢谢 展开
展开全部
Private Sub Form_Load()
'运行程序时
'自动将EXE文件所在目录下的一个INI文件中的数据调入ComboBox
Dim Stri As String
Open App.Path & "\ComboData.INI" For Input As #1
Do Until EOF (1)
Input #1,Stri
Combo1.AddItem Stri
Loop
Close #1
End Sub
Private Sub Form_Unload(Cancel As Integer)
'关闭程序时
'自动将ComboBox中的数据保存至EXE文件所在目录下的一个INI文件
Open App.Path & "\ComboData.INI" For Output As #1
For i = 0 to Combo.Listcount - 1
Print #1, Combo.List (i)
Next
Close #1
End Sub
Private Sub Command1_Click()
Combo1.AddItem Text1.Text
End Sub
'运行程序时
'自动将EXE文件所在目录下的一个INI文件中的数据调入ComboBox
Dim Stri As String
Open App.Path & "\ComboData.INI" For Input As #1
Do Until EOF (1)
Input #1,Stri
Combo1.AddItem Stri
Loop
Close #1
End Sub
Private Sub Form_Unload(Cancel As Integer)
'关闭程序时
'自动将ComboBox中的数据保存至EXE文件所在目录下的一个INI文件
Open App.Path & "\ComboData.INI" For Output As #1
For i = 0 to Combo.Listcount - 1
Print #1, Combo.List (i)
Next
Close #1
End Sub
Private Sub Command1_Click()
Combo1.AddItem Text1.Text
End Sub
参考资料: My大脑
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询