Image not showing in ComboBox

[sbowman]

I'm trying to have a combo box display a list of images with thumbnails and the image file name. The thumbnails are not showing up. I'm getting the red X in its place in Internet Explorer and nothing shows up in Mozilla Firefox. How do I fix this?

Protected

Sub BindToImageList(ByVal combo As RadComboBox)

 

 

''Populate the datatable

 

 

Dim sConnString As String = ConfigurationManager.ConnectionStrings("PU89").ConnectionString

 

 

Dim objConnection As New SqlClient.SqlConnection(sConnString)

 

 

Dim strSQL As String

 

strSQL =

"SELECT * FROM tblPhotoGallery; "

 

 

Dim objDR As SqlDataReader

 

 

Dim command As New SqlClient.SqlCommand(strSQL, objConnection)

 

 

Dim strFullPath As String

 

 

Dim strFileName As String

 

 

Me.rcboImage.Items.Add(New RadComboBoxItem("", ""))

 

 

Try

 

objConnection.Open()

objDR = command.ExecuteReader(System.Data.CommandBehavior.CloseConnection)

 

While objDR.Read()

 

strFullPath = objDR(

"ImagePath")

 

strFileName = Path.GetFileName(strFullPath)

 

Me.rcboImage.Items.Add(New RadComboBoxItem(strFileName, strFileName))

 

 

Me.rcboImage.FindItemByText(strFileName).ImageUrl = objDR("ImagePath")

 

 

Me.rcboImage.FindItemByText(strFileName).DisabledImageUrl = objDR("ImagePath")

 

 

End While

 

 

 

Catch ex As Exception

 

Response.Write(ex.Message)

Response.End()

 

Finally

 

 

If objConnection.State = ConnectionState.Open Then

 

objConnection.Close()

 

End If

 

 

End Try

 

 

End Sub

 

[Simon]

Hi sbowman,

The URLs of the Images should be relative to the location of the Page (aspx file) where the RadComboBox is.

As an example, please see this live demo.

Sincerely yours,
Simon

[sbowman]

Thanks! That fixed it.

Protected

Sub BindToImageList(ByVal combo As RadComboBox)

 

 

''Populate the datatable

 

 

Dim sConnString As String = ConfigurationManager.ConnectionStrings("PU89").ConnectionString

 

 

Dim objConnection As New SqlClient.SqlConnection(sConnString)

 

 

Dim strSQL As String

 

strSQL =

"SELECT * FROM tblPhotoGallery; "

 

 

Dim objDR As SqlDataReader

 

 

Dim command As New SqlClient.SqlCommand(strSQL, objConnection)

 

 

Dim strFullPath As String = "~/Images/PhotoGallery/"

 

 

Dim strFileName As String

 

 

Me.rcboImage.Items.Add(New RadComboBoxItem("", ""))

 

 

Try

 

objConnection.Open()

objDR = command.ExecuteReader(System.Data.CommandBehavior.CloseConnection)

 

While objDR.Read()

 

strFileName = objDR(

"ImagePath")

 

 

Me.rcboImage.Items.Add(New RadComboBoxItem(strFileName, strFileName))

 

 

Me.rcboImage.FindItemByText(strFileName).ImageUrl = strFullPath & strFileName

 

 

Me.rcboImage.FindItemByText(strFileName).DisabledImageUrl = strFullPath & strFileName

 

 

End While

 

 

 

Catch ex As Exception

 

Response.Write(ex.Message)

Response.End()

 

Finally

 

 

If objConnection.State = ConnectionState.Open Then

 

objConnection.Close()

 

End If

 

 

End Try

 

 

End Sub