none
"点击""添加""按钮,既可将文本框中的内容添加到列表框中,并且保留列表内容: RRS feed

  • 问题

  • 点击"添加"按钮,既可将文本框中的内容添加到列表框中,并且保留列表内容:

    Private Sub Command1_Click()
    k1 = Text1
    List1.AddItem k1
    SaveSetting App.EXEName, "Window", "Textinfo", k1 '保存列表设置
    Text1 = ""
    End Sub
    Private Sub Command2_Click()
    DeleteSetting App.EXEName, "Window", "Textinfo" '删除列表

    2007年8月2日 6:47

答案

  • 你好,这是因为每次你保存文本框内容到注册表中时,都把注册表中原来的内容给覆盖了,因此注册表中存储的始终是你最后一次保存的内容。你可以在保存新内容到注册表之前,先读出原有的内容,将原有的内容加上新内容,在调用SaveSetting将其保存到注册表。

    2007年8月2日 9:02