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() <
相关问答:
请教一下:我用vb写了一个调用Illustrator的测试程序,代码很简单:Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
我想做个用vb6做的程序,可以控制GPRS MODEM拨号,如拨我自己的手机
可以啊
你先下个AT命令集合学习学习
我来顶
顶贴
LZ好厉害
不顶不行
老是排MP
引用
LZ好厉害
......
在下是vb的新手,想写段程序,在vb中,使用wscript调用一些外部的命令,但是程序执行一直有错误,请各位高手帮忙解答下,谢谢。
代码如下:
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害,回答基本都是爆料级的
大胡子升级真快啊,这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......