اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی 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

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


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

مطالب شما نیاز است به تایید مدیران برسد

مهمان
شما به عنوان کاربر مهمان در حال حاضر دیدگاه ارسال می کنید. اگر دارای حساب کاربری در سایت هستید لطفا وارد حساب کاربری خود شوید.
ارسال پاسخ به این موضوع ...

×   شما در حال چسباندن محتوایی با قالب بندی هستید.   حذف قالب بندی

  تنها استفاده از ۷۵ اموجی مجاز می باشد.

×   لینک شما به صورت اتوماتیک جای گذاری شد.   نمایش به عنوان یک لینک به جای

×   محتوای قبلی شما بازگردانی شد.   پاک کردن محتوای ویرایشگر

×   شما مستقیما نمی توانید تصویر خود را قرار دهید. یا آن را اینجا بارگذاری کنید یا از یک URL قرار دهید.