لود تیبل جدید به ترتیب در مولتی پنل و تیبل قبلی

[RoyaPM 538]

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

 

طبق آموزش مدیر انجمن سورس زیر رو نوشتم

Sub Globals

	Private ScrollView1 As ScrollView
	Private Panel1 As Panel
	Private Label1 As Label
	Dim cur1 As Cursor
	Dim sql1 As SQL
	Dim Stop As Int = 3%y
End Sub

Sub Activity_Create(FirstTime As Boolean)
	
	Activity.LoadLayout("ScrollLayout")
    If File.Exists(File.DirInternal,"multipanel.db") = False Then
	File.Copy(File.DirAssets,"multipanel.db",File.DirInternal,"multipanel.db")
	End If
	sql1.Initialize(File.DirInternal,"multipanel.db",False)
	cur1 = sql1.ExecQuery("SELECT * FROM tbl")
	
	
	For i = 0 To cur1.RowCount-1
	cur1.Position = i
	Dim p As Panel
	p.Initialize("P")
	ScrollView1.Panel.AddView(p,0,Stop,100%x,100%y)
	Stop = Stop + 35%y
	p.LoadLayout("main")
	Label1.Text = cur1.GetString("txt")
	ScrollView1.Panel.Height = Stop
	Next
End Sub

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

حالا من تو یه دیتابیس دیگه یه تیبل دارم که مثلا اسمش tbl2 هستش و برای هر id یه متن طولانی دارم و میخوام وقتی تو این دیتابیس اولی که کدش رو بالا گذاشتم رو هرکدوم کلیک کردم به ترتیب بره و متن رو تو دیتابیس دومم بخونه به صورتت دقیق

یعنی تو دیتابیس بالا رو id 5 کلیک کردم بره تو دیتابیس دوم متن idi 5 رو نشون بده تو اسکرول ویو یا هرچی که شما بگید!

 

سورس رو هم ضمیمه کردم ولی دیتابیس دوم رو نذاشتم اگه میشه برام توضیح بدید

 

 

[RoyaPM 538]

ممنون از اینکه جواب میدید

توی اکتیویتی متن که گفتید چه چیزایی باید قرار بدم؟

توی کدی که بالا اصلاح کردید و گذاشتید اون Private ScrollView2 As ScrollView که گذاشتید به چه دردی میخوره؟ یعنی کجا عمل میکنه ؟

توی اکتیویتی متن چه چیزایی قرار بدم؟

[RoyaPM 538]

ممنون ولی نشد .. هرکاری کردم خطا داد

[alirezakazemizaroomi 437]

ScrollView2 همینطوری نوشتم

 

تو اکتیویتی کریت اکتیویتی متن کدای زیرو بنویس:

Dim su As StringUtilsDim h As Int=su.MeasureMultilineTextHeight(Label2,Label2.text)
Label2.Height=h
scl.Panel.Height=h


Label2.text=Main.parts(1)


Dim h As Int=su.MeasureMultilineTextHeight(Label2,Label2.text)
   Label2.Height=h
   scl.Panel.Height=h
    If Label2.Height>800dip Then
      scl.Panel.Height=Label2.Height
End If


   Label2.Gravity=Gravity.RIGHT
Label2.TextColor=Colors.White

[RoyaPM 538]

داداش من هنگ کردم آخه .. الان به su  و scl ها که نوشتی قرمز میشه و گیرمیده .. بیخیال شمارم مشغول کردم مرسی

[RoyaPM 538]

میشه بگید منظورتون از scl چی بوده؟

[Hamed Sabet Farhadi 707]

میشه بگید منظورتون از scl چی بوده؟

 

منظورشون Scrollview بود که مخفف کرده بودن

[RoyaPM 538]

هر کاری کردم تو انجمن آپ نشد این زیر آپ کردم

 

http://s6.picofile.com/file/8212507276/multi3.zip.html

[RoyaPM 538]

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

الان که همه اینکارا رو که گفتید کردم موقع کلیک روی هر کدون این خطا رو میده

 

[Hamed Sabet Farhadi 707]

آموزش های انجمن رو دنبال کنید دوست عزیز

[RoyaPM 538]

آموزش های انجمن رو دنبال کنید دوست عزیز

آموزش های انجمن دنبال شده و الان این یه سوال در مورده این تاپیکه!

کسی هست که سورسشو بذارم برام بگه کجاش درسته کجا غلط؟

[shahriar 408]

آموزش های انجمن دنبال شده و الان این یه سوال در مورده این تاپیکه!

کسی هست که سورسشو بذارم برام بگه کجاش درسته کجا غلط؟

 

سلام

من دارم براتون سورس آماده میکنم

یکم صبر کنید

[shahriar 408]

بفرما

لینک

[RoyaPM 538]

داداش دستت درد نکنه واقعا داری کارمو را میندازی ولی الان هنگام کلیک خطای زیرو میده

 

 

 

اینم کد اکتیویتی reading

	Activity.LoadLayout("Layout1")
	Dim cur As Cursor
	Dim Label1 As Label
	
	If File.Exists(File.DirInternal,"behjat.db") = False Then
	File.Copy(File.DirAssets,"behjat.db",File.DirInternal,"behjat.db")
	End If
	SQL2.Initialize(File.DirInternal,"behjat.db",False)
	
	cur=SQL2.ExecQuery("SELECT * FROM tabel_1 WHERE Fasl="&ID2)
	
	cur.Position=0
		
	Label1.Initialize("label1")
	Label1.Text=cur.GetString("text")
			
	ScrollView1.Panel.AddView(Label1,0,0,ScrollView1.Width,ScrollView1.Height)
	
	Dim su As StringUtils
	
	Label1.TextSize=25
		
	Label1.Height=su.MeasureMultilineTextHeight(Label1,Label1.Text)
	
	ScrollView1.Panel.Height=su.MeasureMultilineTextHeight(Label1,Label1.Text)

[RoyaPM 538]

همچیزش تکمیل شده از استادا کسی هست یه نگاه بندازه این خطای آخرشو بگه از چیه؟!

[alirezakazemizaroomi 437]

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

[RoyaPM 538]

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

داداش مشکلم حل شد مرسی .. الان فقط یه مشکل مونده که آخرین مشکلمه ایشاالله

 

اولی رو که میزنی خطا میده ولی از دومی به بعد همه مطالبو میزنم میراه خوب ولی از دوم به بعد این اطفاق میفته

 

یعنی دکمه دوم رو که میزنم ای دی 1 تو دیتابیس دوم اجرا میشه و به ترتیب تا آخر اینجوریه!!

[RoyaPM 538]

از همه کسایی که کمک کردن ممنونم همه مشکلاتم حل شد .

[RoyaPM 538]

کسی نمیخواد کمک کنه؟!

[alirezakazemizaroomi 437]

سلام

اینطوری بنویس:

Sub Globals
    Private ScrollView1 As ScrollView
    Private Panel1 As Panel
    Private Label1 As Label
    Dim cur1 As Cursor
    Dim sql1 As SQL

 Private ScrollView2 As ScrollView
    Private Panel1 As Panel
     Dim cur2 As Cursor
    Dim sql2 As SQL


    Dim Stop As Int = 3%y
End Sub

Sub Activity_Create(FirstTime As Boolean)
    
    Activity.LoadLayout("ScrollLayout")
If File.Exists(File.DirInternal,"multipanel.db") = False Then
    File.Copy(File.DirAssets,"multipanel.db",File.DirInternal,"multipanel.db")
    End If
    sql1.Initialize(File.DirInternal,"multipanel.db",False)
    cur1 = sql1.ExecQuery("SELECT * FROM tbl")
    
    
    For i = 0 To cur1.RowCount-1
    cur1.Position = i
    Dim p As Panel
    p.Initialize("P")
    ScrollView1.Panel.AddView(p,0,Stop,100%x,100%y)
    Stop = Stop + 35%y
    p.LoadLayout("main")
    Label1.Text = cur1.GetString("txt")
    ScrollView1.Panel.Height = Stop
    Next



If File.Exists(File.DirInternal,"matn.db") = False Then
    File.Copy(File.DirAssets,"matn.db",File.DirInternal,"matn.db")
    End If
    sql1.Initialize(File.DirInternal,"matn.db",False)
    cur1 = sql2.ExecQuery("SELECT * FROM tbl2")
    
    
    For i = 0 To cur2.RowCount-1
    cur2.Position = i
    Label2.Text = cur2.GetString("txt")
    ScrollView1.Panel.Height = Stop
    Next


End Sub

[RoyaPM 538]

شما چیزی از دستوذ button ننوشتین که آخه؟ اگه میشه یه جوره دقیقتر بنویسید چون کارم خیلی گیره! مرسی