sosker
شنبه 02 فروردین 1393, 20:14 عصر
سلام من با بسیک فور کار می کنم......یه برنامه می خوام بنویسم که چندتا متن رو از قبل داده باشی بهش و اونا رو نشون بده....البته گرافیک و برخی از کار های مربوط به یه برنامه پامک رو انجام دادم اما من بلد نیستم یه فایل تکست یا هرچیز دیگه لود کنم و داخلش قرار بدم.....اینم کدشه.....البته خیلی غلط داره:لبخند:
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim txt As String
Private sv1 As ScrollView
Private lbl1 As Label
Private bt1 As Button
Private pl1 As Panel
Private Label1 As Label
Private lbl2 As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("sv1")
Dim andaze As Int
andaze=0
Dim al(4) As String
For k=1 To 4
txt = File.GetText(File.DirAssets,"sa"&k&".txt")
Next
sv1.Panel.Color=Colors.Transparent
al= Array As String ("txt")
For i=0 To 3
Dim pl As Panel
pl.Initialize(" ")
sv1.Panel.AddView(pl,0%x,andaze,100%x,120dip)
andaze=andaze+120dip
pl.LoadLayout("f22")
bt1.Tag=al(i)
bt1.Text=i+1
lbl2.Text=al(i)
Next
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim txt As String
Private sv1 As ScrollView
Private lbl1 As Label
Private bt1 As Button
Private pl1 As Panel
Private Label1 As Label
Private lbl2 As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("sv1")
Dim andaze As Int
andaze=0
Dim al(4) As String
For k=1 To 4
txt = File.GetText(File.DirAssets,"sa"&k&".txt")
Next
sv1.Panel.Color=Colors.Transparent
al= Array As String ("txt")
For i=0 To 3
Dim pl As Panel
pl.Initialize(" ")
sv1.Panel.AddView(pl,0%x,andaze,100%x,120dip)
andaze=andaze+120dip
pl.LoadLayout("f22")
bt1.Tag=al(i)
bt1.Text=i+1
lbl2.Text=al(i)
Next
End Sub