سوال مهم در مورد sub namayesh لطفا جواد بدید اساتید

[afraz11 246]

با عرض سلام

دوستان این sub که پایین میبینید sub نمایش عکس است که اطلاعات عکس رو از دیتابیس میگیره

حالا من به دلیل سنگین شد دیتابیس اومدم آدرس عکس رو تو دیتابیس قرار دادم یعنی به جایی اینکه خود عکس تو دیتابیس باشه آدرس عکس تو دیتابیس هست و همه عکسها رو به ترتیب2.png 3.png و... قرار دادم

حالا چون من آدرس عکس تو دیتابیس قرار دادم و خود عکسها تو پوشه فایل برنامه هستن (یعنی در واقع من به جای استفاد از blob از String استفاده کردم)

من باید چیکار کنم تا این عکسها تو فصلهای مورد نظر خودشون باز شن

یعنی اگه روی انگور کلیک کردم بیاد عکس و متن مورد نظر انگور رو برام باز کنه خیلی ممنون میشم اگه جواب سوالمو بدید

یعنی میشه این subنمایش پایین رو طوری تغییر داد که آدرس فایلل رو به صورت String بگیره و عکس رو نشون بده

Sub Namayesh As Bitmap

Dim cur As Cursor

cur=menu1.sql1.ExecQuery("SELECT aks FROM tbl1 WHERE id="&mataleb.id)

cur.Position=0

Dim bytes() As Byte

bytes=cur.GetBlob("aks")

Dim input As InputStream

input.InitializeFromBytesArray(bytes,0,bytes.Length)

Dim b As Bitmap

b.Initialize2(input)

input.Close

Return(b)

End Sub

[sganji 678]

خب تو میتونی مثلا توی دیتابیس اسم عکسو بدی و بعدش بگی :

imageview1.Bitmap = LoadBitmap(File.DirAssets,cur.GetString("aks"))

[afraz11 246]

خوب داداش یه بار دیگه سوالمو بخون من میگم حدود50تا عکس دارم و 50تا دکمه میخوام وقتی روی دکمه مثلا گلابی کلیک شد بره به اکتویتی نمایش مطالب و در اونجا یه عکس از گلابی و متن در مورد گلابی اونجا نمایش در بیاد

خوب اکه من از این کد استفاده کنم هر دکمه رو بزنم همون یه عکس رو نشون میده من میخوام با زدن هر دکمه یه عکس دیگه که مربوط به خودش باشه به نمایش دربیاد

imageview1.Bitmap = LoadBitmap(File.DirAssets,cur.GetString("aks"))