如何將文本添加到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))