من میخوام مخاطبین رو لیست کنم .ولی برنامه تا 5 ثانیه تو هنگه .راهی داره تا جلوی هنگ رو گرفت؟
Dim cu As ContactsUtils
Dim xx As String
cu.Initialize
For Each c As cuContact In cu.FindContactsByPhone("", False, False)
For Each phone As cuPhone In cu.GetPhones(c.Id)
xx=xx&phone.Number&"-"&c.DisplayName&CRLF
Next
Next
سوال
alinoori 123
سلام دوستان
من میخوام مخاطبین رو لیست کنم .ولی برنامه تا 5 ثانیه تو هنگه .راهی داره تا جلوی هنگ رو گرفت؟
Dim cu As ContactsUtils Dim xx As String cu.Initialize For Each c As cuContact In cu.FindContactsByPhone("", False, False) For Each phone As cuPhone In cu.GetPhones(c.Id) xx=xx&phone.Number&"-"&c.DisplayName&CRLF Next Next
لینک ارسال
به اشتراک گذاری در سایت های دیگر
2 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.