Question

我目前正在开发ToDo程序，您只需添加备注即可。（使用设置优先级和附件的选项）Note将保存为文本文件。现在我想要了解必须要完成的ToDo。最后它应该看起来像一个列表，每个Note一行，这样构建：

TITLE ............................. [附件图标] .. [优先级图标] .. [CheckBox]

复选框应始终位于行的最右侧。

我的想法是为每个Note添加FlowLayoutPanel到FlowLayoutPanel。在子-FlowLayoutPanel中，我将添加控件。我的问题是我不知道如何设置控件的位置。我试图添加一个标签，并将其用作标题和其他控件之间的空格，但它并没有真正起作用。

以下是我目前的代码：

For Each File In Directory.GetFiles(myPath)
        Dim tlp As New FlowLayoutPanel
        tlp.BackColor = Color.Gray
        tlp.Width = 260
        tlp.FlowDirection = FlowDirection.TopDown

        Dim lbl As New Label
        lbl.AutoSize = True
        lbl.Text = getInsert(File, 0)
        lbl.Anchor = AnchorStyles.Right
        lbl.ForeColor = Color.White
        AddHandler lbl.Click, Sub() Me.getInsert(File, 0)

        tlp.Height = 40

        Dim cbx As New CheckBox
        cbx.FlatStyle = FlatStyle.Flat
        cbx.Text = ""
        cbx.Width = 15
        cbx.Height = 30
        AddHandler cbx.CheckStateChanged, Sub() Me.deleteEntry(tlp)


        Dim space As New Label
        space.AutoSize = False
        space.Text = ""
        space.Height = 30
        space.Anchor = AnchorStyles.Right

        tlp.Controls.Add(lbl)
        tlp.Controls.Add(Space)
        tlp.Controls.Add(cbx)
        Space.Width = tlp.Width - lbl.Width - cbx.Width - 15
        mfp.Controls.Add(tlp)
Next

这是一个例子： todo_example

我希望有人知道如何解决这个问题。

提前致谢：）

从文本文件到FlowLayoutPanel

0 个答案: