ساخت گالری (سورس اضافه شد)

[حاج حسین 2,098]

اینو تست کن ببین حل میشه

Sub Button5_Click
       Dim sndIntent As Intent
   sndIntent.Initialize(sndIntent.ACTION_SEND,"")
   sndIntent.PutExtra("android.intent.extra.STREAM",CreateUri("file://"&File.Combine( File.DirRootExternal,"image1.jpg")))
   sndIntent.SetType("image/*")
   sndIntent.WrapAsIntentChooser("اشتراک گذاری با:")
   StartActivity(sndIntent)

End Sub

[dostmobile 329]

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

[mamix 2]

تو همین سورس اگه بخایم عکسامون تو گالری گوشی ذخیره شی چیکار میشه کرد؟