دریافت آیکون لیست ویو از دیتابیس

[Amir - B 184]

سلام دوستان

 

یه مشکل برام پیش اومده من با کد 

Sub Namayesh(esm As String) As Bitmap
Dim cur As Cursor
cur=sq.ExecQuery("SELECT picture FROM mydbI WHERE esm='"&esm&"'")
cur.Position=0

Dim bytes() As Byte
bytes=cur.GetBlob("picture")

Dim input As InputStream
Input.InitializeFromBytesArray(bytes,0,bytes.Length)

Dim b As Bitmap
b.Initialize2(Input)
Input.Close
Return(b)
End Sub 

عکس رو از دیتابیس میگیرم ولی نمیتونم آیکون لیست ویو قرارش بدم

 

 

 

هی ایراد میگیره . این کد منه

For i=0 To cu.RowCount-1
cu.Position=i

l.AddTwoLinesAndBitmap(cu.GetString("esm"),"",LoadBitmap(Namayesh(cu.GetString("esm"))))



Next

میدونم سوال راحتیه ولی اعصاب برام نگذاشته . 

 

 

ممنون

[مجید آرتا 5,874]

سلام

به این شکل عمکل کنید ببینید جواب میگیرید :

 Dim myBmp As Bitmap
 myBmp.Initialize3((Namayesh(cu.GetString("esm"))
l.AddTwoLinesAndBitmap(cu.GetString("esm"),"",myBmp)

[Kazem Forghani 2,927]

l.AddTwoLinesAndBitmap(cu.GetString("esm"),"",cu.GetBold("esm"))

این رو امتحان کنید .

[Amir - B 184]

پس ساب نمایش چی میشه؟

 

GetBlob از نوع بایته ولی ما از نوع Bitmap میخوایم

[مجید آرتا 5,874]

شما این قسمت کد رو ظاهرا ندیدید :

myBmp.Initialize3((Namayesh(cu.GetString("esm"))

تابع Namayesh  یک مقدار بازگشتی از نوع Bitmap  داره و باید درون یک متغییر Bitmap  بریزیم که بنده هم توی کدی که نوشتم همین کارو کردم

شما تست کنید بعد ببینید نتیجه به چه شکله

[Amir - B 184]

شما این قسمت کد رو ظاهرا ندیدید :

myBmp.Initialize3((Namayesh(cu.GetString("esm"))

تابع Namayesh  یک مقدار بازگشتی از نوع Bitmap  داره و باید درون یک متغییر Bitmap  بریزیم که بنده هم توی کدی که نوشتم همین کارو کردم

شما تست کنید بعد ببینید نتیجه به چه شکله

 

شما این قسمت کد رو ظاهرا ندیدید :

myBmp.Initialize3((Namayesh(cu.GetString("esm"))

تابع Namayesh  یک مقدار بازگشتی از نوع Bitmap  داره و باید درون یک متغییر Bitmap  بریزیم که بنده هم توی کدی که نوشتم همین کارو کردم

شما تست کنید بعد ببینید نتیجه به چه شکله

 

 

خیلی ممنون مشکلم حل شد ولی پیامی که دادم با

 

با ایشون بودم Kazem forghani