گرفتن لیست تماس

[ایمان سعیدی 48]

سلام لایبری phone رو فعال کنید

Dim Calls As List
Dim CallLog As CallLog
Calls = CallLog.GetAll(10) 'Get the last 10 calls
For i = 0 To Calls.Size - 1
   Dim c As CallItem
   c = Calls.Get(i)
   Dim callType, name As String
   Select c.CallType
       Case c.TYPE_INCOMING
           callType="Incoming"
       Case c.TYPE_MISSED
           callType = "Missed"
       Case c.TYPE_OUTGOING
           callType = "Outgoing"
   End Select
   name = c.CachedName
   If name = "" Then name = "N/A"
   Log("Number=" & c.Number & ", Name=" & name _
       & ", Type=" & callType & ", Date=" & DateTime.Date(c.Date))
Next 

[.B.I.S 10]

سلام یه توضیح برای منه مبتدی نمیدین ؟؟!؟ *خنده شیطان

از چه اشیایی استفاده کردین ؟!؟

یه توضیح مختصر لطفا *خنده شیطان

[salmana 174]

یک توضیحی بده یا یک سمپلی بزار که متوجه نشدم. با تشکر

[مهران محمودی 778]

اول یه لیست تعریف شده، یه نمونه از شیء CallLog که در کتابخانه Phone وجود داره تعریف شده. بعدش 10 تماس آخر رو از اون شی گرفته و در لیست ذخیره کرده.

با حلقه for آیتم ها رو یکی یکی میخونه و ویژگیهای مورد نیازشون مثل نوع تماس (ورودی، خروجی، از دست رفته) ، نام مخاطب ، تاریخ تماس و شمارش رو Log میکنه.

کد پیچیده ای نیست درکل، خود ایمان اگه اینجا رو ببینه جوابتون رو میده.