Question

我正在动态创建一个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

Answer 1

ListItem构造函数的第一个参数是单选按钮旁边显示的文本，如果你想要sURL然后传递而不是sName。

如果您想以某种特定方式设置样式，也可以将html作为此参数传递，例如。

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

如何将文本添加到VB.NET RadioButtonList

1 个答案: