怎样保存VB的combobox的list值？
form1 中，我在Text1里输入1111111111
Dim str1 As String
Private Sub Command1_Click()
str1 = Me.Text1.Text
Combo1.AddItem str1
End Sub
点Command1，就写到Combo1的 下拉菜单里去了。
但退出form1后，再load form1, 下拉菜单里没有了1111111111。
请问怎样保存list值
加个 public collection 在 bas 里，记录 所有的 combo1的，
load form1 时，重新加。
你可以用數據表來存儲List值，當Load時，從數據表加載List內容。
你必須在窗體關閉時，把Combo的List項存儲下來，你可以存儲到數據表，也可以存放到文件中，然後在窗體加載時，再從存儲的地方加載這些List項。
Dim str1 As String
Private Sub Command1_Click()
str1 = Me.Text1.Text
Combo1.AddItem str1
'D在这里再增加代码保存str1至文件中,下次加载窗体时,再从文件中读出值增加到combo1中
End Sub
写到数据库里，每次从数据库里读
Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim SqlStr As String
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database
相关问答：
我知道在VB中调用系统的计算器 可以用shell
可是要是要求高点 调用后 直接计算 并把计算结果显示在文本框里
比如 在点击按钮1 调用计算器 把指定的二进制转换为16进制 并显示在 text1
自已做一个计算器~ ......
Private Sub cmdModify_Click()
Dim iRet As Integer
If dltUser.Text = "" Then
MsgBox "请选择要修改的用户！", vbOKOnly ......
VB code:
Private objXml As New DOMDocument60
Private xmlRoot As IXMLDOMElement
Public Function xmlNode()
Set objXml = New DOMDocument
objXml.async = False
objXml.Load ("E:\Li ......
VB+Access分析维修管理系统，怎样进入系统窗体上显示登陆用户名；
请高手帮忙；
这个一般是用户经过了用户名＋密码验证通过后显示在statebar里的吧。
引用
这个一般是用户经过了用户名＋密码验证通过后显� ......
由于窗體的增多；
明顯感覺程式運行慢了；
怎樣優化；
优化你的程序逻辑，比如将不用的窗体及时Unload，将不用的对象及时释放
引用
优化你的程序逻辑，比如将不用 ......
