Question

我是一个基本的VB。 NET程序员，所以我还有很多东西需要学习。我已经搜索过现有的解决方案，但没有什么能真正满足我的要求。

前几天我开始在VB中创建一个新的表单应用程序。净。在一个表单中，我应该创建一个包含一些数据的列表，但由于我需要一个特定的用户界面，我不能使用某些元素（例如DataGridView），因为从图形上看它们管理起来很糟糕。

一开始我想使用数据库并创建一个DataGridView，但由于上述原因，我放弃了这个想法。因此，我使用了一些文本框，因为我可以更好地处理它们以用于我的图形目的。结果如下：Sample。

由于我需要添加一些用户，我添加了一个“添加”按钮并使用以下代码进行编程：

    Dim username As New TextBox
    Dim password As New TextBox
    Dim email As New TextBox

    With username
        .Size = New Size(194, 28)
        .Font = New Font("Omnes", 12)
        .TextAlign = HorizontalAlignment.Center
        .ForeColor = Color.White
        .BackColor = Color.FromArgb(64, 64, 64)
        .BorderStyle = BorderStyle.FixedSingle
        .Location = New Point(12, 105)
        .Enabled = True
        .Visible = True
    End With

    With password
        .Size = New Size(194, 28)
        .Font = New Font("Omnes", 12)
        .TextAlign = HorizontalAlignment.Center
        .ForeColor = Color.White
        .BackColor = Color.FromArgb(64, 64, 64)
        .BorderStyle = BorderStyle.FixedSingle
        .Location = New Point(212, 105)
        .Enabled = True
        .Visible = True
    End With

    With email
        .Size = New Size(234, 28)
        .Font = New Font("Omnes", 12)
        .TextAlign = HorizontalAlignment.Center
        .ForeColor = Color.White
        .BackColor = Color.FromArgb(64, 64, 64)
        .BorderStyle = BorderStyle.FixedSingle
        .Location = New Point(412, 105)
        .Enabled = True
        .Visible = True
    End With

    AddHandler username.TextChanged, AddressOf username_TextChanged
    Me.Controls.Add(username)

    AddHandler password.TextChanged, AddressOf password_TextChanged
    Me.Controls.Add(password)

    AddHandler email.TextChanged, AddressOf email_TextChanged
    Me.Controls.Add(email)

每次点击“添加”按钮（在每个文本框中值为105的代码中），我需要的是在文本框的y轴上增加34像素的位置。最终结果应如下所示：Final result（显然，为了创建此图片，我手动复制了文本框）。我尝试了每个循环函数，但在这种情况下我无法确定哪一个是最好的，以及如何使用它。

有人可以帮助我吗？非常感谢！

VB中的文本框复制问题。净

0 个答案: