مشکل با اسکرول ویو

[berayan 88]

سلام خدمت دوستان و اساتید محترم .

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

و اسکرول هم با توجه به متن لیبل تنظیم میشه اما وقتی سایز لیبل رو زیاد می کنیم از اسکرول زیادتر شده و ادامه متن نمایش داده نمیشه چطوری باید این مشکل رو حل کنم .

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

[shahab1392 47]

با سلام آقایان

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

باید چکار کنم....

[berayan 88]

با سلام آقایان

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

باید چکار کنم....

سلام

شما باید یک تاپ جدید ایجاد می کردین تا پاسخ شما توسط اساتید داده بشه ولی در کل ای موضوع مربوط به کا با اسکرول ویو هست شما در انجمن سرچ کند جوابتون رو پیدا می کنید .

باید لبل و عکسر رو در یک لایوت بذارید و لایوت رو توسط اسکرول لود کنید و اندازه پنل اسکرول رو با اندازه با اندازه متن ولیبل تنظیم کنید که این هودشیک معقوله جدا داره شما سرچ کن جوابتون در انجمن هست .

بنده دسترسی به سیستم ندارم نمی تونم راهشور براتون بنویسم .

[مهدی ایزدی 9,203]

ScrollView1.Panel.Height=Label5.Height + Label5.Top

[مهدی ایزدی 9,203]

با سلام آقایان

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

باید چکار کنم....

http://answercenter.ir/thread236.html

لطفا قبل از ایجاد تاپیک جدید و طرح سوال جست و جو کنید

http://answercenter.ir/thread2.html

[shahab1392 47]

دوستان تمام سایت رو سرچ کردم ولی جوابی نگرفتم

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

این کدش هستش

Activity.LoadLayout("frm6")
   ScrollView1.Panel.LoadLayout("frm2")
   If File.Exists(File.DirInternal,"db.db")= False Then
   File.Copy(File.DirAssets,"dbbook2.db",File.DirInternal,"db.db")
   End If

   If Menu1.SQL1.IsInitialized=False Then
   Menu1.SQL1.Initialize(File.DirInternal,"db.db",False)
   End If

   cur=Menu1.SQL1.ExecQuery("SELECT * FROM Tbl1 WHERE id="&Menu1.Fasl)
label1.Initialize("Label1")

   label1.text=cur.GetString("Matn")

label1.Gravity=Gravity.CENTER
   ScrollView1.Panel.AddView(label1,0,0,ScrollView1.Width,ScrollView1.Height)

'    
   Dim su As StringUtils
     label1.Height=su.MeasureMultilineTextHeight(label1,label1.Text)    
   ScrollView1.Panel.Height=su.MeasureMultilineTextHeight(label1,label1.Text)
   ImageView1.Bitmap=Namayesh

اینم کد فرا خونی عکس

Sub Namayesh As Bitmap
Dim cur As Cursor
cur=Menu1.SQL1.ExecQuery("SELECT Pic FROM Tbl1 WHERE id="&Menu1.Fasl)
cur.Position=0

Dim bytes() As Byte
bytes=cur.GetBlob("Pic")

Dim input As InputStream
input.InitializeFromBytesArray(bytes,0,bytes.Length)

Dim b As Bitmap
b.Initialize2(input)
input.Close
Return(b)
End Sub