آموزش دریافت لیست آخرین تماس های گوشی ( دریافتی , ارسالی , بی پاسخ )

[Elyas Erfani 3,582]

سلام به همه دوستان عزیز

 

خوب ما دوباره برگشتیم و واسه شروع تصمیم گرفتم آموزش دریافت لیست آخرین تماس های گوشی رو قرار بدم خدمت دوستان

 

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

 

میتونید تماس هارو در قالب تب هاست یا لیست ویو دریافت کنید ک ی قسمت مثلا باشه واسه بی پاسخ و  دریافتی و ارسالی

 

من از تب هاست استفاده میکنم و لیستو در قالب لیست ویو دریافت میکنم

 

ابتدا در Sub Globals :

Dim CallItem As CallItem
Dim listView1 As ListView
Dim TabHost1 As TabHost

ی ساب مینویسیم واسه دریافت لیست تماسا و کدامونو درش قرار میدیم

Sub getLog(Type As String,Image As String)
Dim Calls As List
Dim CallLog As CallLog
Dim name As String
Calls = CallLog.GetAll(10) 
listview1.Clear
For i = 0 To Calls.Size - 1
    Dim c As CallItem
    c = Calls.Get(i)
    If c.CallType = Type Then
     name = c.CachedName
     If name = "" Then name = "ناشناس"
     listview1.AddTwoLinesAndBitmap2("(" & name & ")" , "0" & c.Number.Replace("+98","") & "   " & DateTime.Date(c.Date),LoadBitmap(File.DirAssets,Image),"0" & c.Number.Replace("+98",""))
	End If
Next 
End Sub

اومدیم ی متغیر ازنوع لیست

ی متغیر از نوع CallLog

و ی متغیر name از نوع استرینگ یا رشته

و اومدیم گفتیم ک لیست ما 10 تماس اخیر رو دریافت کنه داخل خودش

و لیست ویو 1 رو پاک کردیم

و بعد از حلقه اومدیم اسم رو دریافت کردیم و گفتیم اگر اسم ما وجود نداشت اونو ب عنوان ناشناس نمایش بده

و بعدشم ک توی لیست ویومون ادد کردیمش

 

 

 

حالا میرسیم به جدا کردن دریافتی ها , بی پاسخا  , ....

 

گفتم ک از تب هاست استفاده میکنیم و تب هارو چنج میکنیم :

Sub TabHost1_TabChanged
 If TabHost1.CurrentTab = 0 Then
  getLog(CallItem.TYPE_MISSED,"miss.png")
 Else If TabHost1.CurrentTab = 1 Then
  getLog(CallItem.TYPE_INCOMING,"incoming.png")
 Else If TabHost1.CurrentTab = 2 Then
  getLog(CallItem.TYPE_OUTGOING,"outcoming.png")
 End If
End Sub

 و اینجوری نوعش رو با عکس دلخواه مشخص میکنیم

 

 

امیدوارم مفید بوده باشه

 

موفق باشید