آموزش متن همراه با صدا

[omid-j 28]

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

 

#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

 

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

Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    

End Sub

Sub Globals
    Dim m As MediaPlayer
    Dim sql1 As SQL
    Dim cur As Cursor
    Private btn As Button
    Private lbl As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("list")

    sql1.Initialize(File.DirInternal,"databook.db",False)
    cur = sql1.ExecQuery("SELECT * FROM tblbook WHERE ID="&Main.matnnn&"")
    For i = 0 To cur.RowCount -1
        cur.Position = i
        lbl.Text = cur.GetString("matn")
    
        Next
    
    m.Initialize2("m")
    m.Load(File.DirAssets,cur.GetString("music"))
    m.Play
    
    
    
End Sub