阅读文本由列表框要求

我想让这样的事情 enter image description here 阅读文本由列表框要求

例：喜欢的东西刨我写的东西，我需要为特定的天做，当我在ListBox一天选择它显示的我需要做什么。

所以，因为它会记住数据，它需要保存在某种.txt或数据库上。

我可以从列表框中添加/加载项这样

Private Sub Command1_Click() 
     Open "Listbox.txt" For Output As #1 
      For i = 0 To list1.ListCount - 1 
      Print #1, list1.List(i) 
     Next 
     Close 
End Sub 

Private Sub Form_Load() 
    list1.AddItem "Monday" 
    list1.AddItem "Tuesday" 
    list1.AddItem "Wednesday" 
    list1.AddItem "Thursday" 
    list1.AddItem "Friday" 
    list1.AddItem "Saturday" 
    list1.AddItem "Sunday" 
    End Sub

但主要问题是文本保存。我如何保存特定日期的文本框中的文本或进行编辑。所以当我点击星期一时，它会显示我星期一输入的自定义文本。

我是否需要为一周内的每一天制作一个新文件，例如7个文件或者有更简单的方法？

来源

2014-09-05 Anel_Hodzic

@Plutonix谢谢你的回答。它需要每周工作。它的一周计划。日期不重要。 – 2014-09-05 12:44:21

可能重复的[从列表框保存到.txt文件并从开始加载]（http://stackoverflow.com/questions/25680002/save-from-listbox-to-txt-file-and-load-from-它上开始） – Deanna 2014-09-05 14:06:25

没有必要为每个列表框项目制作单独的文件。

这是我的示例项目;我做了一些改动，以您的形式布局：

Screenshot 1

当一个项目被点击列表中的左侧，文本字段将提供与该项目相关的文本。通过在/更改相同字段中输入内容来更新项目。

Option Explicit 

Private FileStr As String, StrArr() As String 

Private Sub cmdSave_Click() 

    Dim I As Long 
    Open FileStr For Output As #1 
    For I = 0 To lbxItems.ListCount - 1 
     Print #1, lbxItems.List(I) & "," & StrArr(I) 
    Next I 
    Close #1 

End Sub 

Private Sub cmdUpdate_Click() 

    StrArr(lbxItems.ListIndex) = txtDescript 

End Sub 

Private Sub Form_Load() 

    Dim I As Long, J As Long 
    Dim TempStr As String 
    FileStr = App.Path & "\planner.txt" 
    Open FileStr For Input As #1 
    Do Until EOF(1) 
     Line Input #1, TempStr 
     J = InStr(TempStr, ",") 
     lbxItems.AddItem Left$(TempStr, J - 1) 
     TempStr = Mid$(TempStr, J + 1) 
     ReDim Preserve StrArr(I) 
     StrArr(I) = TempStr 
     I = I + 1 
    Loop 
    Close #1 

End Sub 

Private Sub lbxItems_Click() 

    txtDescript = StrArr(lbxItems.ListIndex) 

End Sub

该代码被设计为可以与其他手动插入到“planner.txt”文件中的项目一起使用。如果您这样做，请确保您使用逗号（，）跟随项目名称。

如果将代码直接复制并粘贴到表单代码模块中，请确保根据需要更新控件名称。

来源

2014-09-05 14:23:11

阅读文本由列表框要求

回答

相关问题