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

 

امید وارم تکه کد های زیر مورد مفید برای عزیزان واقع گردد.

رویداد باز کردن صفحه اس ام اس:

 

Sub SendSms(PhoneNumber As String, Text As String)
Dim In As Intent
In.Initialize(In.ACTION_VIEW, "sms:" & PhoneNumber)
In.PutExtra("sms_body", Text)
StartActivity(In)
End Sub

 

phoneNumber شماره تلفن مخاطبه

Text هم متن پیامه.

——————————————————————————————————————————————————————————————————————————————————————————————————————————–

رویداد باز کردن عکس با گالری(البته آدرسی که میدید نباید تو DirInternal یا DirAssets باشه.)

PicAdress آدرس عکسه و

FileName هم اسم عکستونه.

 

Sub Open Gallery(PicAdress As String , FileName As String)
Dim In As Intent
Dim AD As String

AD = "file://" PicAdress & "/" & FileName

In.Initialize(In.ACTION_VIEW , AD)
In.SetType("image/jpeg")
StartActivity(In)
End Sub

---

 

اینم لینک بازکردن بخش‌های مختلف تنظیمات گوشی

 

---

 

این کد باز کردن دوربین گوشی

Dim In As Intent
In.Initialize("android.media.action.IMAGE_CAPTURE", "")
StartActivity(In)

————————————————————————————————————————————————————-

 

با تیک زدن کتابخونه Phone و تعریف یه متغیر از نوع PhoneIntent میتونید:

مرورگر با آدرس دلخواه، صوت با موزیک پلیر گوشی و فیلم از آدرس دلخواه رو باز کنید.

Dim p As PhoneIntents
StartActivity(P.OpenBrowser("http://www.google.com"))
StartActivity(p.PlayAudio(File.DirAssets , "SomeName.mp3"))
StartActivity(p.PlayVideo(File.DirAssets , "SomeName.mp4"))