من از طریق کد های زیر عکس رو از دیتابیس فراخوانی میکنم داخل اسکرول ویو حالا میخوام وقتی که روی عکس کلید شد عکس باز بشه و کاربر بتونه اون رو زوم کنه .
والا من خودم هرکاری کردم چیزی دستگیرم نشد .
لطفا یکی راهتمایی بکنه خیلی ممنون
If File.Exists(File.DirInternal,"iran1.db")= False Then
File.Copy(File.DirAssets,"iran1.db",File.DirInternal,"iran1.db")
End If
If ListView.SQL1.IsInitialized=False Then
ListView.SQL1.Initialize(File.DirInternal,"iran1.db",False)
End If
cur=ListView.SQL1.ExecQuery("SELECT * FROM Tbl1 WHERE id="&ListView.Fasl)
For i=0 To cur.RowCount-1
cur.Position=0
Next
Dim h As Int
For i = 0 To 14
If cur.GetString("Matn"&i) <> Null Then
label1.Initialize("Label1")
label1.text=cur.GetString("Matn"&i)
If File.Exists(File.DirInternal,"Settings.stg")=True Then
Dim list1 As List
list1=File.ReadList(File.DirInternal,"Settings.stg")
Setting1.font=list1.Get(0)
Setting1.size=list1.Get(1)
Dim a As String
'a = code.getData("setting.txt","FontColor")
'label1.TextColor = code.getData("setting.txt","FontColor")
Else
Setting1.font="BYEKAN"
Setting1.size=20
End If
label1.Gravity=Gravity.CENTER
label1.Typeface=Typeface.LoadFromAssets(Setting1.font &".ttf")
Label2.Typeface=Typeface.LoadFromAssets(Setting1.font &".ttf")
ScrollView1.Panel.AddView(label1,0,h+2%y,ScrollView1.Width-10,ScrollView1.Height)
Dim su As StringUtils
label1.TextSize=Setting1.size
label1.Height=su.MeasureMultilineTextHeight(label1,label1.Text)
ScrollView1.Panel.Height=su.MeasureMultilineTextHeight(label1,label1.Text)
End If
If cur.GetString("Aks"&i) <> Null Then
Dim ImageView1 As ImageView
ImageView1.initialize("imageView")
ImageView1.tag = cur.GetString("Aks"&i)
ScrollView1.Panel.AddView(ImageView1,0,h,ScrollView1.Width,ScrollView1.Height)
ImageView1.Bitmap = Main.Bitmap1(i)
If Main.Bitmap1(i).Width > 100%x Then
ImageView1.Width = 100%x
ImageView1.Height = (ImageView1.Width / Main.Bitmap1(i).Width )*Main.Bitmap1(i).Height
ImageView1.Gravity = Gravity.Fill
Else
ImageView1.Width = Main.Bitmap1(i).Width
ImageView1.Height = Main.Bitmap1(i).Height
ImageView1.Left = (100%x - ImageView1.Width)/2
ImageView1.Gravity = Gravity.Fill
End If
h = h + ImageView1.Height + 30
ScrollView1.Panel.Height = h
End If
Next
Label2.text=cur.GetString("Fasl")
سوال
amirex128 19
سلام
من از طریق کد های زیر عکس رو از دیتابیس فراخوانی میکنم داخل اسکرول ویو حالا میخوام وقتی که روی عکس کلید شد عکس باز بشه و کاربر بتونه اون رو زوم کنه .
والا من خودم هرکاری کردم چیزی دستگیرم نشد .
لطفا یکی راهتمایی بکنه خیلی ممنون
If File.Exists(File.DirInternal,"iran1.db")= False Then File.Copy(File.DirAssets,"iran1.db",File.DirInternal,"iran1.db") End If If ListView.SQL1.IsInitialized=False Then ListView.SQL1.Initialize(File.DirInternal,"iran1.db",False) End If cur=ListView.SQL1.ExecQuery("SELECT * FROM Tbl1 WHERE id="&ListView.Fasl) For i=0 To cur.RowCount-1 cur.Position=0 Next Dim h As Int For i = 0 To 14 If cur.GetString("Matn"&i) <> Null Then label1.Initialize("Label1") label1.text=cur.GetString("Matn"&i) If File.Exists(File.DirInternal,"Settings.stg")=True Then Dim list1 As List list1=File.ReadList(File.DirInternal,"Settings.stg") Setting1.font=list1.Get(0) Setting1.size=list1.Get(1) Dim a As String 'a = code.getData("setting.txt","FontColor") 'label1.TextColor = code.getData("setting.txt","FontColor") Else Setting1.font="BYEKAN" Setting1.size=20 End If label1.Gravity=Gravity.CENTER label1.Typeface=Typeface.LoadFromAssets(Setting1.font &".ttf") Label2.Typeface=Typeface.LoadFromAssets(Setting1.font &".ttf") ScrollView1.Panel.AddView(label1,0,h+2%y,ScrollView1.Width-10,ScrollView1.Height) Dim su As StringUtils label1.TextSize=Setting1.size label1.Height=su.MeasureMultilineTextHeight(label1,label1.Text) ScrollView1.Panel.Height=su.MeasureMultilineTextHeight(label1,label1.Text) End If If cur.GetString("Aks"&i) <> Null Then Dim ImageView1 As ImageView ImageView1.initialize("imageView") ImageView1.tag = cur.GetString("Aks"&i) ScrollView1.Panel.AddView(ImageView1,0,h,ScrollView1.Width,ScrollView1.Height) ImageView1.Bitmap = Main.Bitmap1(i) If Main.Bitmap1(i).Width > 100%x Then ImageView1.Width = 100%x ImageView1.Height = (ImageView1.Width / Main.Bitmap1(i).Width )*Main.Bitmap1(i).Height ImageView1.Gravity = Gravity.Fill Else ImageView1.Width = Main.Bitmap1(i).Width ImageView1.Height = Main.Bitmap1(i).Height ImageView1.Left = (100%x - ImageView1.Width)/2 ImageView1.Gravity = Gravity.Fill End If h = h + ImageView1.Height + 30 ScrollView1.Panel.Height = h End If Next Label2.text=cur.GetString("Fasl")لینک ارسال
به اشتراک گذاری در سایت های دیگر
4 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.