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

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

到列表项的构造函数的第一个参数是显示的单选按钮旁边的文本，如果你想，要成为SURL然后传递，而不是SNAME。

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

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