Как добавить текст в VB.NET RadioButtonList - PullRequest
0 голосов
/ 08 октября 2009

Я динамически создаю RadioButtonList и не могу понять, как добавить дополнительный текст для отображения под переключателем.

Мой основной код выглядит следующим образом, и я хочу, чтобы sURL отображался под каждым полученным переключателем.

For i As Integer = 0 To ds.Tables(0).Rows.Count - 1

                Dim iLocationID As Integer = ds.Tables(0).Rows(i).Item("LocationID")
                Dim sStreet As String = ds.Tables(0).Rows(i).Item("AddressStreet")
                Dim sCity As String = ds.Tables(0).Rows(i).Item("AddressCity")
                Dim sState As String = ds.Tables(0).Rows(i).Item("AddressState")
                Dim sZip As String = ds.Tables(0).Rows(i).Item("AddressPostalCode")
                Dim sName as String = ds.Tables(0).Rows(i).Item("Name")
                Dim dsContact As New DataSet

                Dim sURL As String = ""
                sURL = "<a href='http://www.google.com/maps?f=q&source=s_q&hl=en&geocode=&q=" & sStreet & "+" & sState & "+" & sZip & "' target='_blank'>" & sStreet & " " & sCity & " " & sState & ", " & sZip & "</a>"

                Dim dDistance As Decimal = Math.Round(ds.Tables(0).Rows(i).Item("Distance"), 1)
                Dim sDistance As String
                If dDistance > 1 Then
                    sDistance = dDistance & " Miles Away"
                Else
                    sDistance = dDistance & " Mile Away"
                End If
                sURL += " " & sDistance
                sURL += " Phone: " & sContactPhone

                rblVendorLocations.Items.Add(New ListItem(sName, iLocationID))
            Next

1 Ответ

0 голосов
/ 08 октября 2009

Первым параметром в конструкторе ListItem является текст, который будет отображаться рядом с переключателем, если вы хотите, чтобы он был sURL, то передайте его, а не sName.

Вы также можете передать html в качестве этого параметра, если хотите стилизовать его определенным образом, например,

ListDeliveryFrequency.Items.Add( _
              New ListItem("<div>" + sName +"</div> <div>" + sUrl + "</div>", _
                           iLocationID))
...