اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

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


omid-j

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

1 ارسال در این موضوع قرار دارد

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

 

#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

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

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

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !

ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید

ورود به حساب کاربری