Sub read_to_listview_image
Dim Bitmap1 As Bitmap
Dim Cursor As Cursor
ProgressDialogShow("Lés gagnaskrá")
ListView1.Clear
' ToastMessageShow("Skráinn er ekki til", True)
Dim new As String
new = ""
' 4 DESC ASC COLLATE NOCASE
' ProgressDialogShow("Lés gagnaskrá")
' DoEvents
Cursor = SQL.ExecQuery("SELECT * from landshluti;")
For i = 0 To Cursor.RowCount - 1
Dim tt As personangsmnn
Cursor.Position = i '
'Skoða betur Bitmap1.Initialize(ruta_imagen,crPlatos.GetString("myndnafn"))
'Sækja myndina
Dim Buffer() As Byte 'declare an empty byte array
Buffer = Cursor.GetBlob("mynd")
Dim InputStream1 As InputStream
InputStream1.InitializeFromBytesArray(Buffer, 0, Buffer.Length)
Dim Bitmap1 As Bitmap
Bitmap1.Initialize2(InputStream1)
InputStream1.Close
' Activity.SetBackgroundImage(Bitmap1)
'Sækja myndina Endir
tt.hofundur=Cursor.GetString("hofundur")
tt.forrit=Cursor.GetString("forrit")
ListView1.AddTwoLinesAndBitmap(tt.hofundur,tt.forrit,Bitmap1)
Next
Cursor.Close
ProgressDialogHide
End Sub