ASPX dropdownlist does not load image

Question

I’m doing a dropdownlist to present only image, but this does not work, as this article macoratti.net/14/11/aspn_ddli1.htm .

I even downloaded it and ran it on my machine and it didn’t work, could help?

Public Function DtLstIconeOdonto() As DataTable
        Dim dtb As DataTable = New DataTable()
        dtb.Columns.Add("icone", GetType(String))
        dtb.Columns.Add("Id", GetType(Long))
        dtb.Columns.Add("LabelValue")
        Dim _olinha = dtb.NewRow()
        _olinha("icone") = ""
        _olinha("Id") = 1
        dtb.Rows.Add(_olinha)
        _olinha = dtb.NewRow()
        _olinha("icone") = ""
        _olinha("Id") = 2
        dtb.Rows.Add(_olinha)
        _olinha = dtb.NewRow()
        _olinha("icone") = ""
        _olinha("Id") = 3
        dtb.Rows.Add(_olinha)
        _olinha = dtb.NewRow()
        _olinha("icone") = ""
        _olinha("Id") = 4
        dtb.Rows.Add(_olinha)
        _olinha = dtb.NewRow()
        _olinha("icone") = ""
        _olinha("Id") = 5
        dtb.Rows.Add(_olinha)
        _olinha = dtb.NewRow()
        _olinha("icone") = ""
        _olinha("Id") = 6
        dtb.Rows.Add(_olinha)
        _olinha = dtb.NewRow()
        _olinha("icone") = ""
        _olinha("Id") = 7
        dtb.Rows.Add(_olinha)
        _olinha = dtb.NewRow()
        _olinha("icone") = ""
        _olinha("Id") = 8
        dtb.Rows.Add(_olinha)
        _olinha = dtb.NewRow()
        _olinha("icone") = ""
        _olinha("Id") = 9
        dtb.Rows.Add(_olinha)
        _olinha = dtb.NewRow()
        _olinha("icone") = ""
        _olinha("Id") = 10
        dtb.Rows.Add(_olinha)
        _olinha = dtb.NewRow()
        _olinha("icone") = ""
        _olinha("Id") = 11
        dtb.Rows.Add(_olinha)
        _olinha = dtb.NewRow()
        _olinha("icone") = ""
        _olinha("Id") = 12
        dtb.Rows.Add(_olinha)
        _olinha = dtb.NewRow()
        _olinha("icone") = ""
        _olinha("Id") = 13
        dtb.Rows.Add(_olinha)
        _olinha = dtb.NewRow()
        _olinha("icone") = ""
        _olinha("Id") = 14
        dtb.Rows.Add(_olinha)
        _olinha = dtb.NewRow()
        _olinha("icone") = ""
        _olinha("Id") = 15
        dtb.Rows.Add(_olinha)
        _olinha = dtb.NewRow()
        _olinha("icone") = ""
        _olinha("Id") = 16
        dtb.Rows.Add(_olinha)
        Return dtb
    End Function


Protected Sub lstIconeAtalhoOdontograma_Bindata(ByVal sender As Object, ByVal e As EventArgs)
    lstIconeAtalhoOdontograma.DataSource = DtLstIconeOdonto()
    lstIconeAtalhoOdontograma.DataTextField = "icone"
    lstIconeAtalhoOdontograma.DataValueField = "Id"
    lstIconeAtalhoOdontograma.DataBind()
    Dim imageURL As String = ""

    For i As Integer = 0 To lstIconeAtalhoOdontograma.Items.Count - 1

        Select Case lstIconeAtalhoOdontograma.Items(i).Value
            Case "1"
                imageURL = "../icons/RealOdonto/img_1.png"
            Case "2"
                imageURL = "../icons/RealOdonto/img_2.png"
            Case "3"
                imageURL = "../icons/RealOdonto/img_3.png"
            Case "4"
                imageURL = "../icons/RealOdonto/img_4.png"
            Case "5"
                imageURL = "../icons/RealOdonto/img_5.png"
            Case "6"
                imageURL = "../icons/RealOdonto/img_6.png"
            Case "7"
                imageURL = "../icons/RealOdonto/img_7.png"
            Case "8"
                imageURL = "../icons/RealOdonto/img_8.png"
            Case "9"
                imageURL = "../icons/RealOdonto/img_9.png"
            Case "10"
                imageURL = "../icons/RealOdonto/img_10.png"
            Case "11"
                imageURL = "../icons/RealOdonto/img_11.png"
            Case "12"
                imageURL = "../icons/RealOdonto/img_12.png"
            Case "13"
                imageURL = "../icons/RealOdonto/img_13.png"
            Case "14"
                imageURL = "../icons/RealOdonto/img_14.png"
            Case "15"
                imageURL = "../icons/RealOdonto/img_15.png"
            Case "16"
                imageURL = "../icons/RealOdonto/img_16.png"
        End Select
        Dim item As ListItem = lstIconeAtalhoOdontograma.Items(i)
        item.Attributes("style") = "background-image: url(" & imageURL & ");background-repeat:no-repeat;"
    Next
End Sub

...

In F12 it presents the right image, but in the dropdownlist does not load, would have any idea what could be?