دو سوال مبتدیانه

[jfareba 37]

سلام سوال اولم اینکه من متنی رو که از دیتا بیس میگیرم داخل چی نمایش بدم داخل لیبل نمایش میدم تو گوشیم خیلی بد میوفته درکل قشنگ نمیشه مت کل صفحه رو نمیگیره

اینم تصویری که از شبیه ساز گرفتم

http://s6.picofile.com/file/8190171676/aqww.PNG

دوم اینکه من متنم رو از دیتابیس گرفتم تو شبیه ساز کامل نشون میده ولی تو گوشی تیکه اخرش رو نشون نمیده اسکرول میره تا اخر ولی زیرش صفحه بک گراند خالیه

[shahab.es 5,429]

سلام و خسته نباشید

من با کتابخانه تکست ستینگ که کار میکنم مشکل خاصی ندارم

میخواین امتحان کنید شاید به کارتون اومد

http://answercenter.ir/thread3334.html

[jfareba 37]

ممنونم

ولی بلد نیستم باهاش کار کنم شما هم برای متن ها دیتا بیس ازش استفاده میکنید؟

[shahab.es 5,429]

بله

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

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

تو فراخوانی متن که مشکلی ندارید؟

Sub Globals
Dim ts As TextSetting
End sub

Sub Activity_Create(FirstTime As Boolean)
//بعد از فراخوانی متن از این کد استفاده کنید
//نحوه قرار دادن آرگومان ها
ts.LongText(lbl,lbl.Text,"14",ScrollView1,"2")

//شکل کلی ارگومان ها
//ts.LongText(wichlabel As Label,text,As String,font size As Int,wichscrollview As ScrollView,linehigh As ,Int)As String

[afraz11 246]

سلام اینکه خیلی ساده است

شما اول بگید لیبل شما در کجا قرار گرفته تا بنده کمکتون کنم

منظورم اینکه آیا تو اسکرول قرار گرفته یا چیز دیگه ای

[jfareba 37]

من اسکرول رو گزاشتم تو دیزاینر ولیبل رو تو کد نویسی گذاشتم

اینم کد هام

با این کدها فراخوانی میکنم

Sub Activity_Create(FirstTime As Boolean)
   'Do not forget to load the layout file created with the visual designer. For example:
   Activity.LoadLayout("abaut")
       If File.Exists(File.DirInternal,"volly.db")=False Then
   File.Copy(File.DirAssets,"volly.db",File.DirInternal,"volly.db")
   End If
   If SQL1.IsInitialized=False Then
   SQL1.Initialize(File.DirInternal,"volly.db",False)
   End If
   Labelab.Initialize("")
   ScrollViewab.Panel.AddView(Labelab,20,20,300,13000)
   Labelab.TextColor = Colors.Black
Dim cursor1 As Cursor
   cursor1 =SQL1.ExecQuery("SELECT * FROM vollyprog2")

For i=0 To cursor1.RowCount-1
cursor1.Position=i
  Labelab.Text= cursor1.GetString("sot")

Next
End Sub

[afraz11 246]

اگه از اسکرول ویو استفاده میکنی بهترین و ساده ترین راه استفاده از کتابخونه StringUtils با این کتابخونه فقط با چندتا کد ساده لیبلت تموم متن های دیتابیس رو به طور کامل نشون میده اگه خواستی برات بیشتر توضیح میدم

[afraz11 246]

کمی صبر کن تا کدهای مربوط به این کارو برات بنویسم تا مشکلت کامل حل بشه

[jfareba 37]

بله ممنون میشم توضیح بدین راستش اولین برنامه هست که دارم مینویسم واز جاوا کوچ کردم اومدم بیسیک کلا همه چی قاطی پاتیه هرچند جاوا هم زیاد بلد نبودم*herher*

[afraz11 246]

یه سوال داشتم شما میخواهد مثلا onvan متن خودتونو نشون بدید یا خود متن مورد نظر رو چون اگه میخواهید خود متنو نشون بدید کدهای بالا شما کمی اشتباه است که براتون درستش میکنم صبر کنید*hendoone*

[jfareba 37]

میخوام خود متن رو نشون بده مثل یه داستان

[afraz11 246]

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

لطفا سورس رو قرار بده تا برات کاملش کنم

If File.Exists(File.DirInternal,"volly.db")=False Then

File.Copy(File.DirAssets,"volly.db",File.DirIntern,"volly.db")

End If

If sql1.IsInitialized=False Then

sql1.Initialize(File.DirInternal,"volly.db",False)

End If

cursor1 =sql1.ExecQuery("SELECT * FROM vollyprog2 where id="&'باید اینجا یه مقدار بدید که مثلا اگه آیدی 10بود بیاد اون آیدی رو باز کنه)

cursor1.Position=0

Labelab.Initialize("")

Labelab.TextColor = Colors.Black

Labelab.Text= cursor1.GetString("sot")

ScrollViewab.Panel.AddView(Labelab,0,0,ScrollViewab.Width,ScrollViewab.Height )

ScrollViewab.Color=Colors.Red

Dim su As StringUtils

Labelab.Height=su.MeasureMultilineTextHeight(Labelab,Labelab.text)

ScrollViewab.Panel.Height=su.MeasureMultilineTextHeight(Labelab,Labelab.text)+40%y

[mahfelsoft 130]

با کدهای کاربر قبل مشکلت حل میشه .

اما اگر هم میخوای از کتابخونه textsetting که یکی از دوستان گفتن استفاده کنی این صفحه رو ببین . http://answercenter.ir/thread3167-3.html

[jfareba 37]

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

ScrollViewab.Panel.Height=su.MeasureMultilineTextH eight(Labelab,Labelab.text)+40%y

کلمه eightقرمزه

[jfareba 37]

اهان بینش فاصله اضافی بود

[afraz11 246]

در ضم یه راه سادی هم هست تو برو ارتفاع اسکرول ویو رو زیاد کن دیگه کدهای خودتو تغییر نده یعنی زیادش کن با این کار هیچ کدی نمیخواد فقط برو تو محیط طراحی دیزاینر تو اونجا دنبال این باش inner height اونو بکن مثلا 2000تا تا مشکلت حل شه

[afraz11 246]

در ضم درباره اون ارور بگم که شما باید کتابخونشو فعال کنید

به نظر بنده شما همون کار ساده رو انجام بده تا مشکلت حل شه هیچ کدی هم نمیخواد

[mahfelsoft 130]

در ضم یه راه سادی هم هست تو برو ارتفاع اسکرول ویو رو زیاد کن دیگه کدهای خودتو تغییر نده یعنی زیادش کن با این کار هیچ کدی نمیخواد فقط برو تو محیط طراحی دیزاینر تو اونجا دنبال این باش inner height اونو بکن مثلا 2000تا تا مشکلت حل شه

خیر . این کار اصلا اصولی نیست دوست عزیز . با این روش در گوشی هایی که کوچیک یا بزرگ باشن ممکنه قسمتی از متن دیده نشه و یا ارتفاع اسکرول ویو بیش از حد زیاد بشه . این راه رو پیشنهاد نکنیم بهتره . بهترین روش تنظیم خودکار متن و اسکرول هست . که یک مدلش رو دوستمون برات گذاشتن و یک مدلش رو هم بنده لینک دادم .

توی کدی که به شما ارور داده کلمه height باید درست نوشته بشه واسه همین قرمز شده .

[afraz11 246]

دوست عزیز داش mahfelsoftبنده خودم یه برنامه نویس هستم تقربیا هم با خیلی از چیزهای برنامه نویسی آشنا هستم

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

چون با کدهایی که بنده اول براشون قرار دادم صد در صد مشکل خواهد داشت

[jfareba 37]

ممنونم از همه شما به خاطر راهنمایی بی دریغتون مشکل حل شد

[afraz11 246]

okkkkkkkk*badboys*