Question

这里我从一个带有一定数量问题的Sql数据库中读取，从数据库中检索它们时一切正常。

我希望每个标签比前一个标签低50px，在它们全部设置在彼此之上的那一刻，我找不到关于这个主题的任何内容。

非常欢迎所有帮助。

Private Sub PopulateQuestions()

    Dim Rows As Integer
    Rows = dsQuestionnaire.Tables("Questions").Rows.Count()
    For x = 1 To Rows
        drQuestions = dsQuestionnaire.Tables("Questions").Rows.Find(x)
        Dim lblQuestion As Label = New Label

        lblQuestion.Style(HtmlTextWriterStyle.Position) = "Absolute"
        lblQuestion.Style(HtmlTextWriterStyle.Top) = "650px"
        lblQuestion.Style(HtmlTextWriterStyle.Left) = "50px"

        lblQuestion.Width = 512
        lblQuestion.Text = drQuestions("Question").ToString()
        Me.Controls.Add(lblQuestion)
    Next
End Sub

Answer 1

    Private Sub PopulateQuestions()

    Dim Rows As Integer
    Rows = dsQuestionnaire.Tables("Questions").Rows.Count()
    Dim top As Integer
    top = 625
    For x = 1 To Rows
        drQuestions = dsQuestionnaire.Tables("Questions").Rows.Find(x)
        Dim lblQuestion As Label = New Label

        lblQuestion.Style(HtmlTextWriterStyle.Position) = "Absolute"
        lblQuestion.Style(HtmlTextWriterStyle.Top) = top & "px"
        lblQuestion.Style(HtmlTextWriterStyle.Left) = "50px"
        top += 30

        lblQuestion.Width = 512
        lblQuestion.Text = drQuestions("Question").ToString()
        Me.Controls.Add(lblQuestion)
    Next
End Sub

设置标签的位置VB.Net

1 个答案: