vb combo1
因为数据少,不想用数据库,请问能不用用combo1存储一段数据,能添加和删除,程序重启后仍然存在。比如combo1原来内容是空,添加了“1”,“2”,“3”之后,重启程序后仍然有“1”“2”“3”,删除点“1“后就剩下”2“”3“,不想要数据库操作,并且点”1“后按一个按钮可以进行1操作,请问怎么做,添加删除这些按钮尽量少如果能做到只有一个combo1加一个按钮最好,谢谢!
一定要有存储的,不用数据库,可以用文件。
用combo1存储一段数据 是不可能的,其实你在控件设计时加的数据,也是vb文件替你保存
Private Sub Form_Load()
Dim tmp As String
If Dir(App.Path & "\myOptions.txt") > "" Then
Open App.Path & "\myOptions.txt" For Input As #1
Do Until EOF(1)
Line Input #1, tmp
Combo1.AddItem tmp
Loop
Close #1
End If
End Sub
Private Sub Form_Unload()
Dim i As Integer
Open App.Path & "\myOptions.txt" For Output As #1
For i = 0 To Combo1.ListCount - 1
Print #1, Combo1.List(i)
Next i
Close #1
End Sub
按钮都可以不要
Private Sub combo1_Click() <
相关问答:
请各位指点下:程序代码如下mingchen = "C:\文件路径\"
cat = New ADOX.Catalog
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & min ......
我是VB的新成员,现在想用VB来做个TXT文档,请大家给我代码及介绍一下相应的控件!
非常感谢!!!!!!
可以用一些OFFICE控件
google上找一下吧,VB写入TXT,很多样例代码的
直接调查用就可以了
面对美女 ......
帮我改改 我总觉得有问题
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
第一次接触CrystalReport
急寻找Vb.net Access 通过查询出的数据输出到CrystalReport的例子.
有的朋友麻烦发来学习.多谢!
跟你的要求差不多,参考一下:
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......