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

[arastooms 1,046]

سلام به همه 
نیاز به کد فراخانی دارم از دیتابیس
من یه تگ دارم الان / مثلا تگ 1
حالا میخام بگم برو متن من رو از ستون MATN با آیدی 1 ( که تگ من هست ) بیار نشونم بده 
در یک " اسکالر ویو" 
هر چی میگردم پیدا نمیکنم 
آیا باید از کتابخونه فراخانی استفاده کنم؟
من از دیتابیس و دستورات تگ و سندر استفاده کردم ولی کد فراخانی و نمایش رو ندارم و بلد نیستم 
​ممنون میشم راهنمایی کنید

[arastooms 1,046]

ببخشید سایت مشکل داره 2 بار ارسال شد

[رئوف رضایی 536]

سلام خدمت شما

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

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

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

سوالی بود بپرسید

موفق باشید

[alirezakazemizaroomi 437]

ببین 

تو لایوت scv یه ScrollView تعریف کن بعد تو لایوت pnl یه پنل تعریف کن وداخل پنل مثلا دوتا دکمه  یکی برای متن یکی برای فیلم؛رو تعریف کن.

تو اکتیویتی main این کدههارو بنویس:

 

Sub Process_Globals
Dim sql1 As SQL
Dim parts() As String
End Sub


Sub Globals
Dim Cur1 As Cursor
Private ButtonFilm As Button
Private ButtonText As Button
Private Panel1 As Panel
Private ScrollView1 As ScrollView
Dim p As Panel
Dim Stopint As Int=5%y
End Sub


Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("scv")
If File.Exists(File.DirInternal,"film1.db")=False Then
File.Copy(File.DirAssets,"film1.db",File.DirInternal,"film1.db")
End If
    sql1.Initialize(File.DirInternal,"film1.db",False)
    Cur1=sql1.ExecQuery("SELECT * From tbl33")
    For i=0 To Cur1.RowCount-1
    Cur1.Position=i
    Dim p As Panel
    p.Initialize("p")
Dim Stopint As Int=5%y
    ScrollView1.Panel.AddView(p,0,Stopint,100%x,100%Y)
    Stopint=Stopint+105dip
    p.LoadLayout("pnl")
Panel1.Tag=Cur1.GetString("matn")
ButtonText.text=Cur1.GetString("matn")
 ButtonText.tag = Cur1.GetString("matn") & "#" & Cur1.GetString("fasl") 
Next
End Sub


Sub ButtonText_Click
Dim ad As Button
ad = Sender
    Dim parts() As String = Regex.split("#",ad.tag)
    StartActivity(matn)
End Sub

 

تو اکتیویتی matn  این کدو بنویس:

Label1 همون لیبلی که متنتو نشون میده.

Label1.text=Main.parts(0)

[رئوف رضایی 536]

این سورس کتابخانه اقای اسکندری هست

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

http://s6.picofile.com/file/8191629118/Farakhani_sample.rar.html

 

[arastooms 1,046]

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

 

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

من همه چیز رو طراحی کردم 
دیتا بیس با 3 ردیف id , sarfasl , matn

و توسط کد نویسی و با استفاده از پنل و اسکرول ویو سر فصل ها رو تو اکتیویتی اول میتونم بیارم و روش کلیک کنم
ولی نمی دونم تو رویداد کلیک روی پنل یا لیبل ( که برام فرقی نداره) چه کدی باید بنویسم تا بره به اکتیویتی riding ( که اسمش روبه اینگلیسی اشتباه تایپ کردم بلدم نیستم اسم اکتیویتی روعوضش کنم   )
و تو لایه ای که طراحی کردم متن من رو از ستون متن بگیره و بخونه 
من حتما میخام از ( مولتی پنل استفاده کنم ) و با لیست ویو این کار رو بلدم و برای آموزش تگ و سندر و مولتی ویو این مثال رو درست کردم
در هر صورت الان با کلیک میرم به اگتیویتی riding  ولی متن فصل اول و یا دوم و یا سوم رو نمی تونم ببینم 
چون کد فراخانی رو بلد نیستم مرسی

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

سورس برنامه

http://s3.picofile.com/file/8211558476/%D9%BE%D8%B1%D9%88%DA%98%D9%87.rar.html

[alirezakazemizaroomi 437]

سلام به همه 

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

من یه تگ دارم الان / مثلا تگ 1

حالا میخام بگم برو متن من رو از ستون MATN با آیدی 1 ( که تگ من هست ) بیار نشونم بده 

در یک " اسکالر ویو" 

هر چی میگردم پیدا نمیکنم 

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

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

​ممنون میشم راهنمایی کنید

 

سلام

این کدهای اکتیویتی listketab:

Sub Process_Globals
Dim parts() As String
End Sub






Sub Globals
Private sql1   As SQL  
Private Cur1   As Cursor 
Dim ertefa As Int=5%y  
    Private ScrollView1 As ScrollView 
    Private Label1 As Label 
Private Panel1 As Panel 
End Sub








Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("listketab") 
ScrollView1.Initialize(2000dip) 
Activity.AddView(ScrollView1,0,0,100%x,100%y) 
If File.Exists(File.DirInternal,"db.db")=False Then 
File.Copy(File.DirAssets,"db.db",File.DirInternal,"db.db") 
End If
sql1.Initialize(File.DirInternal,"db.db",False) 
Cur1=sql1.ExecQuery("SELECT * From table1") 
For i=0 To Cur1.RowCount-1 
Cur1.Position=i 
Dim p As Panel 
p.Initialize("p") 
ScrollView1.Panel.AddView(p,0,ertefa,100%x,100%Y) 
ertefa=ertefa+150dip 
p.LoadLayout("fehrestpanel") 
Label1.tag = Cur1.GetString("matn") & "#" & Cur1.GetString("sarfasl") 
Label1.Text=""&Cur1.GetString("id")&"  "&Cur1.GetString("sarfasl") 
ScrollView1.Panel.Height=ertefa 
Next
End Sub






Sub Activity_Resume


End Sub






Sub Activity_Pause (UserClosed As Boolean)


End Sub






Sub Label1_Click 
Dim aaaa As Label
aaaa=Sender 
Dim parts() As String = Regex.split("#",aaaa.tag)
StartActivity(riding) 
End Sub

این هم کدهای اکتیویتی riding هست:

Sub Process_Globals 
End Sub






Sub Globals
Dim su As StringUtils
Private ScrollView1 As ScrollView
Private Labelread As Label
End Sub






Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("listketab")
ScrollView1.Panel.LoadLayout("ridinglaye")
'اسکرول 
Dim h As Int=su.MeasureMultilineTextHeight(Labelread,Labelread.text)
Labelread.Height=h
ScrollView1.Panel.Height=h


Labelread.text=listketab.parts(0)


'اسکرول
Dim h As Int=su.MeasureMultilineTextHeight(Labelread,Labelread.text)
Labelread.Height=h
ScrollView1.Panel.Height=h


If Labelread.Height>800dip Then
ScrollView1.Panel.Height=Labelread.Height
End If
Labelread.Gravity=Gravity.RIGHT
Labelread.TextColor=Colors.White
Labelread.Width=100%x
Labelread.Left=0dip
Labelread.Color=Colors.RGB(34, 49, 63)
Labelread.TextSize = 22
End Sub






Sub Activity_Resume
End Sub








Sub Activity_Pause (UserClosed As Boolean)
End Sub

 تو لایوت ridinglaye به جای اسکرول ویو یه لیبل به نام Labelread تعریف کردم.