سلام و عرض ادب و احترام خدمت اساتید و دوستان گرامی :
بنده یک برنامه ساختم تو اسکرول کردن متن لیبل دارم خواهشمند است کمک کنید این مشکل حل بشه
سورس برنامه زیر نوشتم
این سورس اکتیویتی main هستش
#Region Project Attributes
#ApplicationLabel: منتخبی از قرآن
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
Dim sql1 As SQL
Dim matnnn As String
Dim music As String
End Sub
Sub Globals
Dim cur As Cursor
Private lv As ListView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Lm")
If File.Exists(File.DirInternal,"databook.db") = False Then
File.Copy(File.DirAssets,"databook.db",File.DirInternal,"databook.db")
End If
sql1.Initialize(File.DirInternal,"databook.db",False)
cur=sql1.ExecQuery("SELECT * FROM tblbook")
For i=0 To cur.RowCount-1
cur.Position=i
lv.AddSingleLine(cur.GetString("Titr"))
Next
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub lv_ItemClick (Position As Int, Value As Object)
matnnn=Value
' music=Value
StartActivity(list)
End Sub
و این هم سورس اکتیویتی
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
Dim sql1 As SQL
End Sub
Sub Globals
Dim m As MediaPlayer
Dim cur, cur2 As Cursor
Private btn As Button
Private lbl As Label
Private btn2 As Button
Private Panel1 As Panel
Dim stu As StringUtils
Private ScrollView1 As ScrollView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("scroll")
sql1.Initialize(File.DirInternal,"databook.db",False)
cur = sql1.ExecQuery("SELECT * FROM tblbook WHERE titr='"&Main.matnnn&"'")
cur.Position=0
For i = 0 To cur.RowCount -1
cur.Position = i
lbl.Text = cur.GetString("matn")
Next
m.Initialize2("")
If m.IsPlaying = False Then
m.Load(File.DirAssets,cur.GetString("music"))
m.Play
End If
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub btn_Click
Activity.Finish
m.Stop
End Sub
Sub btn2_Click
End Sub
Sub imgback_Click
Activity.Finish
m.Stop
End Sub
سوال
omid-j 28
سلام و عرض ادب و احترام خدمت اساتید و دوستان گرامی :
بنده یک برنامه ساختم تو اسکرول کردن متن لیبل دارم خواهشمند است کمک کنید این مشکل حل بشه
سورس برنامه زیر نوشتم
این سورس اکتیویتی main هستش
#Region Project Attributes #ApplicationLabel: منتخبی از قرآن #VersionCode: 1 #VersionName: 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: unspecified #CanInstallToExternalStorage: False #End Region #Region Activity Attributes #FullScreen: False #IncludeTitle: True #End Region Sub Process_Globals Dim sql1 As SQL Dim matnnn As String Dim music As String End Sub Sub Globals Dim cur As Cursor Private lv As ListView End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("Lm") If File.Exists(File.DirInternal,"databook.db") = False Then File.Copy(File.DirAssets,"databook.db",File.DirInternal,"databook.db") End If sql1.Initialize(File.DirInternal,"databook.db",False) cur=sql1.ExecQuery("SELECT * FROM tblbook") For i=0 To cur.RowCount-1 cur.Position=i lv.AddSingleLine(cur.GetString("Titr")) Next End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub lv_ItemClick (Position As Int, Value As Object) matnnn=Value ' music=Value StartActivity(list) End Sub
و این هم سورس اکتیویتی
#Region Activity Attributes #FullScreen: False #IncludeTitle: True #End Region Sub Process_Globals Dim sql1 As SQL End Sub Sub Globals Dim m As MediaPlayer Dim cur, cur2 As Cursor Private btn As Button Private lbl As Label Private btn2 As Button Private Panel1 As Panel Dim stu As StringUtils Private ScrollView1 As ScrollView End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("scroll") sql1.Initialize(File.DirInternal,"databook.db",False) cur = sql1.ExecQuery("SELECT * FROM tblbook WHERE titr='"&Main.matnnn&"'") cur.Position=0 For i = 0 To cur.RowCount -1 cur.Position = i lbl.Text = cur.GetString("matn") Next m.Initialize2("") If m.IsPlaying = False Then m.Load(File.DirAssets,cur.GetString("music")) m.Play End If End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub btn_Click Activity.Finish m.Stop End Sub Sub btn2_Click End Sub Sub imgback_Click Activity.Finish m.Stop End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر
12 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.