метка не содержит свойства location

Question

Я использую цикл для создания нескольких меток, используя VB.NET. В настоящее время я хочу изменить положение меток по горизонтали, но label1.location не работает вообще. Это показывает ошибку, говорящую:

местоположение не является членом метки.

То же самое происходит со свойством заголовка. Это приложение WebForms (visual studio 2015).

Sub countTable()
    Dim _dt As New DataTable
    fromdt = Me.fromdate.Text
    todt = Me.todate.Text
    model_no = Me.modelno.SelectedValue
    ' defect = Me.defectcode.SelectedValue

    gradeee = ""
    For Each item As ListItem In ll.Items
        If item.Selected Then
            gradeee += "'" & item.Text & "',"
            'message += item.Text + " " + item.Value + "\n"
        End If
    Next
    gradeee += "'test'"

    defect = Me.defectcode.SelectedValue
    classifi = ""
    For Each item As ListItem In mm.Items
        If item.Selected Then
            classifi += "'" & item.Text & "',"
            'message += item.Text + " " + item.Value + "\n"
        End If
    Next
    classifi += "'test'"
    'Me.Label1.Text = classifi

    _sql = " SELECT distinct TO_CHAR(S.TEST_TIME,'YYYY/MM/DD') AS period "
    _sql += " FROM CELLINT.CELL_TEST T "
    _sql += " LEFT OUTER JOIN CELLINT.CELL_TEST_YIELD S  "
    _sql += " ON S.SHEET_ID = T.SHEET_ID "
    _sql += " and S.TEST_TIME between to_date('" & fromdt & "','YYYY/MM/DD') and to_date('" & todt & "','YYYY/MM/DD') "
    If model_no <> "All" Then
        _sql += " and S.model_no = '" & model_no & "'"
    End If
    _sql += " and T.defect_code_desc || '(' || T.defect_code ||')'  = '" & defect & "'"

    If classifi.Contains("All") = True Then

    Else
        _sql += " and s.class in (" & classifi & ") "
        '_sql += " and class = '" & classifi & "' "
    End If
    If gradeee.Contains("All") = True Then

    Else
        _sql += " and t.grade in (" & gradeee & ") "
        '_sql += " and class = '" & classifi & "' "
    End If
    _sql += " order by TO_CHAR(S.TEST_TIME,'YYYY/MM/DD') asc "
    ' Response.Write(_sql)
    _dt = CIMDatabaseLink_USR.GetDataTable(_sql)

    count = _dt.Rows.Count - 1
    'Response.Write(_dt.Rows.Count - 1)

    For i = 0 To count
        Dim returnHTML As String = ""
        Dim myLabel As Label = New Label()

        period = "" & _dt.Rows(i).Item("period").ToString() & ""
        returnHTML = "<table><tr>"
        returnHTML = returnHTML & "<td><div>" & ReturnTable(period) & "</div><td>"
        returnHTML = returnHTML & "</tr></table>"

        myLabel.ID = "Label" & i & ""
        ' myLabel.Text = Server.HtmlDecode(ReturnTable(period))
        myLabel.Text = Server.HtmlDecode(returnHTML)
        myLabel.Location = New Point(7, 10)

        PlaceHolder1.Controls.Add(myLabel)
    Next
End Sub

Answer 1

myLabel.Style.Add("position" , "absolute")
myLabel.Style.Add("top" , "7px")
myLabel.Style.Add("left" , "10px")

Это всего лишь несколько примеров, но попробуйте что-нибудь подобное через code-behind, чтобы изменить стиль метки.

Вы также можете использовать их для всех

myLabel.Attributes.Add("style" , "top: 7px; left: 10px; position: absolute;")