این اصلا تو کتم نمیره که من اگه صدتا عکس دارم بیام تک تک اونارو تو دیتابیس وارد کنم عکسو داخل خود دیتا بیس بذارم.
من میخوام اسم عکسو بذارم تو فیلد . طبق آدرسی که داره تو پوشه اونو فراخوانیش کنم.
چکاری باید انجام بدم.
Sub Globals
Dim mysql As SQL
Private HorizontalScrollView1 As HorizontalScrollView
Private ImageView1 As ImageView
Dim tb_galery As Cursor
Dim p As Panel
Dim panel1 As Panel
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("scroll_land")
Dim left As Int = 10%x
panel1.Initialize("panel1")
ImageView1.Initialize("ImageView1")
If File.Exists(File.DirInternal,"my_village.db") = False Then
File.Copy(File.DirAssets,"my_village.db",File.DirInternal,"my_village.db")
End If
If mysql.IsInitialized = False Then
mysql.Initialize(File.DirInternal,"my_village.db",True)
End If
For i=1 To tb_galery.RowCount
p.Initialize("p")
tb_galery.Position = i
tb_galery = mysql.ExecQuery("SELECT name_main_galery FROM tb_main_galery WHERE id='"&i&"'")
p.LoadLayout("galery")
HorizontalScrollView1.Panel.AddView(p,left,80%x,20%y,20%y)
ImageView1.Bitmap = LoadBitmap(File.DirAssets,"/main_galery/" & tb_galery.GetString("name_main_galery") )
left=left+10%x
HorizontalScrollView1.Panel.Width=left
Next
End Sub
سوال
yasin011 285
سلام دوستان. عنوان تایپیکو دیدین گفتین الان باید بریم که بنویسیم اول سرچ.
http://answercenter.ir/topic/3952-آموزش-قرار-دادن-عکس-در-دیتابیس-فوق-مهم/
http://answercenter.ir/topic/3821-فراخوانی-عکس-از-دیتابیس-آفلاین/
آقا من موضوعاتو خوندم.
این اصلا تو کتم نمیره که من اگه صدتا عکس دارم بیام تک تک اونارو تو دیتابیس وارد کنم عکسو داخل خود دیتا بیس بذارم.
من میخوام اسم عکسو بذارم تو فیلد . طبق آدرسی که داره تو پوشه اونو فراخوانیش کنم.
چکاری باید انجام بدم.
Sub Globals Dim mysql As SQL Private HorizontalScrollView1 As HorizontalScrollView Private ImageView1 As ImageView Dim tb_galery As Cursor Dim p As Panel Dim panel1 As Panel End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("scroll_land") Dim left As Int = 10%x panel1.Initialize("panel1") ImageView1.Initialize("ImageView1") If File.Exists(File.DirInternal,"my_village.db") = False Then File.Copy(File.DirAssets,"my_village.db",File.DirInternal,"my_village.db") End If If mysql.IsInitialized = False Then mysql.Initialize(File.DirInternal,"my_village.db",True) End If For i=1 To tb_galery.RowCount p.Initialize("p") tb_galery.Position = i tb_galery = mysql.ExecQuery("SELECT name_main_galery FROM tb_main_galery WHERE id='"&i&"'") p.LoadLayout("galery") HorizontalScrollView1.Panel.AddView(p,left,80%x,20%y,20%y) ImageView1.Bitmap = LoadBitmap(File.DirAssets,"/main_galery/" & tb_galery.GetString("name_main_galery") ) left=left+10%x HorizontalScrollView1.Panel.Width=left Next End Subروش دگ ای هم بود بگین لطفا
لینک ارسال
به اشتراک گذاری در سایت های دیگر
21 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.