VB开发安卓程序_例程7简洁的分享图片函数

Sub SharePic (fPath As String)
			
		
	Dim u As Uri 'Uri类来自库ContentResolver library
	u.Parse("file://" & fPath)
	
	Dim inten As Intent

	inten.Initialize(inten.ACTION_SEND,"")
	inten.SetType("image/*")
	inten.PutExtra("android.intent.extra.STREAM",u)

	inten.WrapAsIntentChooser("分享图片")
		
	StartActivity(inten)
	
End Sub

   

参考 cInstagram AND Twitter share image AND text with Intent