|
[x]
Posted via EE Mobile
|
||
Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again. |
||
| Question |
|
[x]
Attachment Details
|
||
|
[x]
The Solution Rating System
|
||
With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.
Your Input Matters If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support. Thank you! |
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: |
'form load
Dim myCon As OleDbConnection
Dim cmd As OleDbCommand = New OleDbCommand("SELECT imageDesc, imagePath FROM table1")
Dim myData As OleDbDataReader
myCon = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Trim$(gsDatabase)) 'database connection string
Try
cmd.Connection = myCon
myCon.Open()
myData = cmd.ExecuteReader
FillListView(myData)
myCon.Close()
Catch eOledb As OleDbException
MessageBox.Show(eOledb.ToString)
End Try
'end form load
'database is a simple 2 column table, both columns are string, col1 is imageDesc and
'col2 is imagePath
'fill data for testing purpose eg imageDesc could be imageDesc1 and imagePath could be
' c:\image1.gif . The aim is the display multiple records.
Public Sub FillListView(ByRef myData As OleDbDataReader)
Dim imagelist1 As New ImageList()
ListView1.View = View.LargeIcon
ListView1.LargeImageList = imagelist1
ListView1.Clear()
Dim listviewitem1 As ListViewItem
Dim i As Integer = 0
Do While myData.Read
For i = 0 To myData.FieldCount() - 1
If Not myData.IsDBNull(0) Then
listviewitem1 = New ListViewItem(myData.GetValue(0).ToString, i)
ListView1.Items.Add(listviewitem1)
imagelist1.Images.Add(Bitmap.FromFile(myData(1)))
(System.IO.Path.GetFileNameWithoutExtension(file), imagelist1.Images.Count - 1)
imagelist1.ImageSize = New Size(100, 100)
ListView1.LargeImageList = imagelist1
End If
i += 1
Next
Loop
end Sub
|
Advertisement
| Hall of Fame |