如何实现combobox中的选项能够被改动，但不用重新编译程序.txt

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 15 行

你 可 以 把 选 项 保 存 在 文 件 、 数 据 库 或 注 册 表 中 ， 然 后 在 程 序 启 动 时 加 入 ComboBox。 这 样 每 次 你 只 需 要 修 改 文 件 或 注 册 表 就 可 以 了 ， 而 不 需 要 重 新 编 译 程 序 。 下 面 的 例 子 就 是 从 注 册 表 中 读 取 ： 
    Private Sub Form_Load() 
     Dim s As String 
     Dim i As Integer 
     
     i = 0 
     Do 
     s = GetSetting(appname := "MyApp", section := "Startup", _ 
     key := i, default := "") 
     If s <> "" Then Combo1.AddItem s 
     i = i + 1 
     Loop Until s = "" 
    End Sub 
<END>