سلام.
من با استفاده از تابع زیر، میخواهم نام و شماره ساخته شده رو توی مخاطبین گوشی ذخیره کنم:
Public Sub InsertContact(Name As String, Phone As String) As cuContact
Dim values As ContentValues
values.Initialize
values.PutNull("account_name")
values.PutNull("account_type")
Dim rawUri As Uri = cr.Insert(rawContactUri, values)
Dim rawContactId As Long = rawUri.ParseId
values.Initialize
values.PutLong("raw_contact_id", rawContactId)
values.PutString("mimetype", "vnd.android.cursor.item/phone_v2")
values.PutString("data1", Phone)
cr.Insert(dataUri, values)
values.Initialize
values.PutLong("raw_contact_id", rawContactId)
values.PutString("mimetype", "vnd.android.cursor.item/name")
values.PutString("data1", Name)
cr.Insert(dataUri, values)
Dim cu As cuContact
cu.Initialize
Dim crsr As Cursor = cr.Query(dataUri, Array As String("contact_id", "display_name"), "raw_contact_id = ?", _
Array As String(rawContactId), "")
crsr.Position = 0
cu.DisplayName = crsr.GetString("display_name")
cu.Id = crsr.GetLong("contact_id")
Return cu
End Sub
با استفاده از حلقه زیر شماره ها و اسامی رو تولید کردم و توی یک لیست به کاربر نمایش دادم:
Private a,b,c,d,e,f,g As String
Private number As String
Private name As String
For i=1 To 50
a=Rnd(0,9)
b=Rnd(0,9)
c=Rnd(0,9)
d=Rnd(0,9)
e=Rnd(0,9)
f=Rnd(0,9)
g=Rnd(0,9)
number="0912"&a&b&c&d&e&f&g
name="مخاطب" & i
lst.add(name,number)
Next
که در بخش بالا، 50 تا شماره با پیش شماره 0912 ساخته میشه.
حالا من میخوام در یک رویداد کلیک که جدایی از کدهای بالا هست، با استفاده از دستور زیر و تابع اولی، شماره تلفن های ساخته شده با اسامی شان را دونه دونه ذخیره کنم:
InsertContact ( ? , ? )
حالا من موندم که چه طوری شماره ها رو دونه دونه که توی متغیر number هست رو با استفاده از دستور بالا، در مخاطبین ذخیره کنم.
اگه به تابع InsertContact ورودی هاش رو بدم ذخیره میکنه ها، اما من میخوام 50 تا مخاطب تولید شده رو برام ذخیره کنه
ممنون میشم راهنماییم کنید.