سورس برنامه "پیامک ماه رمضان"

[mahfelsoft 130]

Dim p1 As Panel

p1.Initialize("")

p1.LoadLayout("main")

ScrollView1.Panel.AddView(p1,0,PanelHeight,100%x,100dip)

ht=art(text,Label1,myfont,20)

Label1.TextColor=Colors.Black

Label1.Left = 0

p1.Height=ht+70dip

PanelHeight=PanelHeight+ht+8%y

Next

ScrollView1.Panel.Height=PanelHeight

[Elyas Erfani 3,582]

Dim p1 As Panel
	p1.Initialize("")
	p1.LoadLayout("main")
	ScrollView1.Panel.AddView(p1,0,PanelHeight,100%x,100dip)
	ht=art(text,Label1,myfont,20)
	Label1.TextColor=Colors.Black
	Label1.Left = 0
	p1.Height=ht+70dip
	PanelHeight=PanelHeight+ht+8%y
	Next
	ScrollView1.Panel.Height=PanelHeight

 

 

سلام

 

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

Dim Cursor1 As Cursor
Dim SQL1 As Sql
Private Label1 As Label
Private Panel1 As Panel
Private ScrollView1 As ScrollView
File.copy(File.DirAssets,"ramazan.db",File.DirInternal,"esme database.db")
	cur1 = SQL1.ExecQuery("SELECT * FROM esmetable")

For i =0 To Cursor1.RowCount - 1
Cursor1.Position = 1
Dim Panel2 As Panel
Dim int1 As Int = 20%y
Panel2.Initialize("Panel2")
ScrollView1.Panel.AddView(Panel2,0,int1,100%x,100%y)
int1 = int + 10%y
Panel2.LoadLayout("Main")
Label1.Text = Cursor1.GetString("matn")
ScrollView1.Panel.Height = int1

Next

[mahfelsoft 130]

ببخشید این کدی که دادید فکر نمی کنم مربوط به این کار بشه چون امتحان کردم اما کار نمی کنه .

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

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

دوستان لطفا راهنمایی کنید. ممنونم

[mahfelsoft 130]

دوستان درستش کردم . کدهامو میزارم اینجا اگر کسی به همچین مشکلی برخورد استفاده کنه. کل این کدها رو توی activity_create کپی کنید فقط اسم جدول دیتابیس و ستون متنتون رو تغییر بدید .

بفرمایید :

	If File.Exists(File.DirInternal,"mydb.db")=False Then
	File.copy(File.DirAssets,"mydb.db",File.DirInternal,"mydb.db")
	End If
	If SQL1.IsInitialized = False Then
	SQL1.Initialize(File.DirInternal,"mydb.db",True)
	End If
	cursur1 = fehrest.SQL1.ExecQuery(" SELECT * FROM f"&fehrest.meghdar)
	ScrollView1.Initialize(500)
	Activity.AddView(ScrollView1,0,0,100%x,100%y)
	Dim Top As Int = 5dip
	Dim StringUtils1 As StringUtils
	Dim tempHeight As Float
	For i=0 To cursur1.RowCount-1
	cursur1.Position=i
	Dim text As String
	text = cursur1.GetString("list")
	
	Dim Panel1 As Panel
	Panel1.Initialize("Panel1")
	Panel1.Color = Colors.RGB(200, 200, 200)
	ScrollView1.Panel.AddView(Panel1, 10dip, Top+5dip, ScrollView1.Width - 20dip, 1dip)
	
	Dim LabelContent As Label
	LabelContent.Initialize("")
	LabelContent.text = text
	LabelContent.TextColor = Colors.Black
	LabelContent.TextSize = 18
	LabelContent.Typeface=myfont
	LabelContent.Gravity = Bit.Or(Gravity.RIGHT, Gravity.Top)
	Panel1.AddView(LabelContent, 5dip, 5dip, Panel1.Width - 10dip, 1dip)
	tempHeight = StringUtils1.MeasureMultilineTextHeight(LabelContent, LabelContent.text)
	LabelContent.Height = tempHeight
	
	Dim ButtonCopy As Button
	ButtonCopy.Initialize("ButtonCopy")
	ButtonCopy.Tag = cursur1.GetInt("id")
	ButtonCopy.text = "copy"
	Panel1.AddView(ButtonCopy, 5dip, tempHeight + 10dip, 30dip, 30dip)
	
	Dim ButtonShare As Button
	ButtonShare.Initialize("ButtonShare")
	ButtonShare.Tag = cursur1.GetInt("id")
	ButtonShare.text = "share"
	Panel1.AddView(ButtonShare, 40dip, tempHeight + 10dip, 30dip, 30dip)
	
	tempHeight = tempHeight + 35dip
	Panel1.Height = tempHeight
	Top = Top + tempHeight + 4%y
		
	ScrollView1.Panel.Height = Top
	Next

[Kazem Forghani 2,927]

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

از آقای mahfelsoft هم تشکر می کنم تا کد مفید رو قرار دادن.

[Kazem Forghani 2,927]

سلام

دوستان ببخشید بعد از حدود 1 سال دارم تاپیک رو بالا میارم اما باید نکاتی رو خدمت کاربران عرض کنم.

دوستان از سورس استفاده می کنید حتماً حتماٌ گرافیک رو کامل تغییر بدید و بعد برنامه رو انتشار بدید. همچنین محتویات رو هم تغییر بدید.

چند وقته تو مارکت کافه بازار می بینم همین سورس رو فقط مطالبش رو تغییر دادن انتشار دادن! حتی با همین موضوع (نه بکگراند عوض شده نه آیکون ها نه حتی فونت!!!)

در صورت رعایت کردن توسط کاربران و همچنین آپدیت کردن برنامه هایی که با شرایط بالا بود سورس جدید با امکانات دیگه قرار خواهد گرفت. ( تغییر گرافیک، لیمیت، بهبود در کدنویسی، سرعت بیشتر و ... )

موفق باشید