Public Sub imageload(ByVal index As Integer, ByRef imagedescription() As String)
Dim da As New OleDbDataAdapter("Select Foto From Images where Photoindex = " & index & ";", Form1.baglanti)
Dim dt As New DataTable
Dim ms As New MemoryStream
da.Fill(dt)
If dt.Rows.Count > 0 Then
Dim arrimage() As Byte = dt.Rows(0).Item(0)
''Form1.RichTextBox1.Text = Convert.ToBase64String(arrimage)
' ''Form1.RichTextBox1.Text = BitConverter.ToString(arrimage)
'For i = 0 To arrimage.Length - 1
' ms.WriteByte(arrimage(i))
'Next
For Each ar As Byte In arrimage
ms.WriteByte(ar)
Next
Dim img As Image
img = New System.Drawing.Bitmap(ms)''Here Are Errors
img = Image.FromStream(ms)''Here Are Errors
Form1.imglist.Images(Form1.imglist.Images.Count) = Image.FromStream(ms)''and here
imagedescription(imagedescription.Length) = dt.Rows(0).Item(1)
Else
MsgBox("record not found")
End If
End Sub
i was take "Parameter is not valid." error pff where is my mistake :S
Thx for Helpimg