دوستان ببینید من اومدم یه دیتابیس ساختم و یه متونی رو توش نوشتم . بعد توی اکتیویتی چند تا دکمه گذاشتم و با تگ و سندر کد دادم که روی هر دکمه کلیک شد یه متنی رو از دیتابیس بگیره
اما وقتی روی دکمه ها کلیک میشه متن ها درست نمایش داده نمیشه . بعضی از متن ها رو اصلا نمایش نمیده بعضی ها نصفه و اصلا هم اسکرول نمیشه . ببینید کدها اینطور هست :
sub globals
Dim pnlmatn As Panel
Dim sv As ScrollView
Dim su As StringUtils
dim m1 as button
dim m2 as button
end sub
Sub Activity_Create(FirstTime As Boolean)
m1.tag = cur.GetString("matn1")
m2.tag = cur.GetString("matn1")
pnlmatn.Initialize("pnlmatn")
Activity.AddView(pnlmatn,2%x,72%y,96%x,20%y)
Dim cd As ColorDrawable
cd.Initialize2(Colors.ARGB(255,255, 241, 205),0,7,Colors.rgb(140, 105, 0))
pnlmatn.Background = cd
sv.Initialize(500dip)
Activity.AddView(sv,3%x,72.5%y,94%x,18%y)
lbl1.Initialize("lbl1")
sv.Panel.addview(lbl1,3%x,0,88%x,100%y)
lbl1.Height=su.MeasureMultilineTextHeight(lbl1,lbl1.Text)
sv.Panel.Height=su.MeasureMultilineTextHeight(lbl1,lbl1.Text)
end sub
Sub m2_Click
Dim iz As Button
iz = Sender
lbl1.Text = iz.Tag
End Sub
Sub m1_Click
Dim iz As Button
iz = Sender
lbl1.Text = iz.Tag
End Sub
من دیگه کدهای فراخونی دیتابیس رو اینجا ننوشتم که شلوغ نشه . ولی توی کدهای خودم نوشتم . دوستان لطف کنی راهنمایی کنید ممنون
سوال
mahfelsoft 130
سلام
دوستان ببینید من اومدم یه دیتابیس ساختم و یه متونی رو توش نوشتم . بعد توی اکتیویتی چند تا دکمه گذاشتم و با تگ و سندر کد دادم که روی هر دکمه کلیک شد یه متنی رو از دیتابیس بگیره
اما وقتی روی دکمه ها کلیک میشه متن ها درست نمایش داده نمیشه . بعضی از متن ها رو اصلا نمایش نمیده بعضی ها نصفه و اصلا هم اسکرول نمیشه . ببینید کدها اینطور هست :
sub globals Dim pnlmatn As Panel Dim sv As ScrollView Dim su As StringUtils dim m1 as button dim m2 as button end sub Sub Activity_Create(FirstTime As Boolean) m1.tag = cur.GetString("matn1") m2.tag = cur.GetString("matn1") pnlmatn.Initialize("pnlmatn") Activity.AddView(pnlmatn,2%x,72%y,96%x,20%y) Dim cd As ColorDrawable cd.Initialize2(Colors.ARGB(255,255, 241, 205),0,7,Colors.rgb(140, 105, 0)) pnlmatn.Background = cd sv.Initialize(500dip) Activity.AddView(sv,3%x,72.5%y,94%x,18%y) lbl1.Initialize("lbl1") sv.Panel.addview(lbl1,3%x,0,88%x,100%y) lbl1.Height=su.MeasureMultilineTextHeight(lbl1,lbl1.Text) sv.Panel.Height=su.MeasureMultilineTextHeight(lbl1,lbl1.Text) end sub Sub m2_Click Dim iz As Button iz = Sender lbl1.Text = iz.Tag End Sub Sub m1_Click Dim iz As Button iz = Sender lbl1.Text = iz.Tag End Subمن دیگه کدهای فراخونی دیتابیس رو اینجا ننوشتم که شلوغ نشه . ولی توی کدهای خودم نوشتم . دوستان لطف کنی راهنمایی کنید ممنون
لینک ارسال
به اشتراک گذاری در سایت های دیگر
12 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.