من طبق آموزش که یکی از اعضای محترم گذاشتن، برای این بخش رفتم جلو
منتها نمیدونم چرا سایز عکس ها و متن ها روی گوشی های مختلف به درستی نمایش داده نمیشن
این دستورات منه
Sub show
cur = sql1.ExecQuery("SELECT * FROM fasleaval1")
Dim h As Int = 2%y
For i = 0 To cur.RowCount - 1
cur.Position = i
If cur.GetString("meghdar") = "0" Then
Dim lbl As Label
lbl.Initialize("")
lbl.Textcolor = Colors.Black
lbl.Textsize = 16
lbl.Text = cur.GetString("matn")
lbl.Gravity=Gravity.RIGHT
sc_text.Panel.AddView(lbl,sc_text.Left+3,h,sc_text.Width-6%x,100%y)
Dim su As StringUtils
lbl.Height = su.MeasureMultilineTextHeight(lbl,lbl.Text)
h = h + lbl.Height + 2%y
sc_text.panel.height = h
else if cur.GetInt("meghdar") = 1 Then
Dim image1 As ImageView
image1.Initialize("")
image1.Bitmap = pic(i,"matn")
image1.Gravity = Gravity.FILL
Dim be As BitmapExtended
be.Initialize("")
sc_text.panel.addview(image1,3%x,h,sc_text.Width-6%x, 30%y)
h = h + be.getHeight(image1.Bitmap)/0.5
sc_text.Panel.Height = h
End If
Next
End Sub
Sub pic (cur_pos As String , image As String) As Bitmap
cur= sql1.ExecQuery("SELECT * FROM fasleaval1")
cur.Position = cur_pos
Dim Buffer() As Byte
Buffer = cur.GetBlob(image)
Dim InputStream1 As InputStream
InputStream1.InitializeFromBytesArray(Buffer, 0, Buffer.Length)
Dim bit1 As Bitmap
bit1.Initialize2(InputStream1)
InputStream1.Close
Return bit1
End Sub
توی هرگوشی نسبت سایز عکس با متن ها فرق میکنه
ممنون میشم راهنماییم کنید که چی کار کنم اینطوری نشه
سوال
MR.B4A 124
سلام
یه کتاب دارم که یکی از بخشاش دارای عکس و متن هست
من طبق آموزش که یکی از اعضای محترم گذاشتن، برای این بخش رفتم جلو
منتها نمیدونم چرا سایز عکس ها و متن ها روی گوشی های مختلف به درستی نمایش داده نمیشن
این دستورات منه
Sub show cur = sql1.ExecQuery("SELECT * FROM fasleaval1") Dim h As Int = 2%y For i = 0 To cur.RowCount - 1 cur.Position = i If cur.GetString("meghdar") = "0" Then Dim lbl As Label lbl.Initialize("") lbl.Textcolor = Colors.Black lbl.Textsize = 16 lbl.Text = cur.GetString("matn") lbl.Gravity=Gravity.RIGHT sc_text.Panel.AddView(lbl,sc_text.Left+3,h,sc_text.Width-6%x,100%y) Dim su As StringUtils lbl.Height = su.MeasureMultilineTextHeight(lbl,lbl.Text) h = h + lbl.Height + 2%y sc_text.panel.height = h else if cur.GetInt("meghdar") = 1 Then Dim image1 As ImageView image1.Initialize("") image1.Bitmap = pic(i,"matn") image1.Gravity = Gravity.FILL Dim be As BitmapExtended be.Initialize("") sc_text.panel.addview(image1,3%x,h,sc_text.Width-6%x, 30%y) h = h + be.getHeight(image1.Bitmap)/0.5 sc_text.Panel.Height = h End If Next End Sub Sub pic (cur_pos As String , image As String) As Bitmap cur= sql1.ExecQuery("SELECT * FROM fasleaval1") cur.Position = cur_pos Dim Buffer() As Byte Buffer = cur.GetBlob(image) Dim InputStream1 As InputStream InputStream1.InitializeFromBytesArray(Buffer, 0, Buffer.Length) Dim bit1 As Bitmap bit1.Initialize2(InputStream1) InputStream1.Close Return bit1 End Sub
توی هرگوشی نسبت سایز عکس با متن ها فرق میکنه
ممنون میشم راهنماییم کنید که چی کار کنم اینطوری نشه
لینک ارسال
به اشتراک گذاری در سایت های دیگر
5 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.