02-17-2014، 05:49 PM
(02-17-2014، 04:00 PM)'mohsen.zeus' نوشته: ممنون بابت پروژه
عزیز من تمام انجمن رو دیدم حتی این 61 صفحه رو و تا حالا یاد نگرفتم چیزی
سوال 3 هم منظورم این بود که مثلا تو پروژه یه سری مطالب زیاد هست که اگه کاربر از هر مطلب خوشش اومد اون رو به علاقه مندی ها اضافه کنه Favorit یا همون ستاره که کنار مطلب ها میزارن
ممنون اگه کد اشتراک گذاری از طریق بلوتوث و ایمیل رو هم میدونید قرار بدید
سپاس فراوان
درود
دوست عزیز ،سوال اشتراک گذاری هم قبلاً پرسیده شده بود !
برای ارسال متن از این کد استفاده کن :
کد پیاچپی:
Sub Activity_Create(FirstTime As Boolean)
'Activity.LoadLayout("Layout1")
Dim share As Intent
Dim mytext As String
mytext="golzar"
share.Initialize(share.ACTION_SEND,"")
share.SetType("text/plain")
share.PutExtra("android.intent.extra.TEXT", mytext)
share.WrapAsIntentChooser("Share text via")
StartActivity(share)
End Sub
کد پیاچپی:
Sub Activity_Create(FirstTime As Boolean)
‘Activity.LoadLayout(“Layout1”)
Dim i As Intent
Dim sFile As String
Dim sFullPath As String
Dim URI As String
sFile=”MyFile.TXT”
sFullPath=File.Combine( File.DirRootExternal ,sFile)
URI = “file://” & sFullPath
i.Initialize(i.ACTION_SEND, “”)
i.SetType(“text/plain”)
i.PutExtra(“android.intent.extra.STREAM”, URI)
i.WrapAsIntentChooser(“Share via”)
StartActivity(i)
End Sub
مثلاً اگه من بخوام یه برنامه ای مثل جملک بنویسم ، یک فیلد علاقه مندی به پایگاه دادم اضافه میکنم ،مثلاً پایگاه داده رو (از SQL استفاده میکنم) به این شکل طراحی میکنم :[table][tr][td]
Like
[/td][td]Read
[/td][td]SMS
[/td][td]Id
[/td][/tr][tr][td]0
[/td][td]0
[/td][td]متنن پیام
[/td][td]1
[/td][/tr][tr][td]1
[/td][td]1
[/td][td]متن پیام 2
[/td][td]2
[/td][/tr][/table] Id :شماره اندیسSMS: متن اس ام اس هاااااا
Read :اگر 0 باشد یعنی این پیام خوانده شده نیست و 1 یعنی مشاهده شده
Like: اگر 0 باشد یعنی به این پیام علاقه ای ندارد و 1 و 2 و 3 و 4 و ... تعداد ستاره دار بودن پیام !
به همین راحتی
تمام تاریخ عبارت است از جنگ سربازانی که همدیگر را نمیشناسندو با هم میجنگند برای دو نفر که همدیگر را میشناسند و نمیجنگند