پرش به

  • مهمان گرامی به انجمن برنامه نویسی بیسیک فور ایکس خوش آمدید برای استفاده از تمام امکانات انجمن لطفا ثبت نام کنید.
    تصویر

    گرفتن لیست تماس در بیسیک۴آندروید

    گرفتن لیست گرفتن لیست تماس بیسیک۴آندروید

    • موضوع قفل شده این موضوع قفل شده است
    بدون پاسخ

    #1 ارسالی پنجشنبه ۵ فروردين ۹۵ - ۱۹:۳۴:۵۴

    H@mid.RS
    H@mid.RS
    +1878
    • Administrator

    • 956 ارسال
    • جنسیت : اقا
    • محل زندگی : نیشابور
    • تلگرام : Basic4X@

    مدال های کاربر

                  

    اول کتابخونه ی Phone رو فعال کنید .

     

    Dim Calls As Lis
    Dim CallLog1 As CallLog
    Calls = CallLog1.GetAll(10) ' gereftenae liste 10 tamase akhir
    For i = 0 To Calls.Size - 1 ' vase har iteme gerefte shode az list
        Dim c As CallItem ' in vase gereftane item
        c = Calls.Get(i) ' item
        Dim callType, name As String ' 2 ta string vase noe tamas va esm tarif mikonim
        Select c.CallType ' mikhamym bedunim ke in tamasemun az che noe has
            Case c.TYPE_INCOMING ' age be man zang zade bud
                callType="Incoming"
            Case c.TYPE_MISSED ' age tamase az das rtafte bud
                callType = "Missed"
            Case c.TYPE_OUTGOING ' age man zangide budam
                callType = "Outgoing"
        End Select
        name = c.CachedName ' namesham midim
        If name = "" Then name = "N/A" End If
        Log("Number=" & c.Number & ", Name=" & name _
            & ", Type=" & callType & ", Date=" & DateTime.Date(c.Date)) ' natie be surate Log
    Next


    jg_4ng.png

    :bye:
     

    instaaa_copy.png






    همچنین به گرفتن لیست, گرفتن لیست تماس, بیسیک۴آندروید نیز برچسب خورده است

    0 کاربر در حال خواندن این موضوع است

    0 کاربر، 0 مهمان و 0 عضو مخفی

    تغییر Layout ایندکس انجمن
    انتخاب فونت دلخواه
    انتخاب رنگ عناصر
    123456789101112131415
    انتخاب عکس به عنوان پس زمینه
    انتخاب پترن به عنوان پس زمینه
    انتخاب رنگ پس زمینه ایندکس
    انتخاب رنگ منو ها
    Click To Disable Effects