نمایش برنامه در لیست برنامه های نمایش تصاویر ( مانند Gallery و . . . )

[مجید آرتا 5,874]

سلام

خوبید ان شاء الله ؟

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

خب به سادگی تمام می تونید انجام بدید.این کد رو به منیفست اضافه کنید »

AddActivityText(Main,
<intent-filter>
   <action android:name="android.intent.action.SEND" />
   <category android:name="android.intent.category.DEFAULT" />
   <data android:mimeType="image/*" />
</intent-filter>)

خب کدمون »

#BridgeLogger: True

Sub Process_Globals
   Private OldIntent As Intent
End Sub

Sub Globals

End Sub

Sub Activity_Create(FirstTime As Boolean)

End Sub

Sub Activity_Resume
   If IsRelevantIntent(Activity.GetStartingIntent) Then
     Dim in As JavaObject = Activity.GetStartingIntent
     Dim uri As String = in.RunMethod("getParcelableExtra", Array("android.intent.extra.STREAM"))
     Try
       Log("Loading bitmap from: " & uri)
       Dim bmp As Bitmap = LoadBitmapSample("ContentDir", uri, 100%x, 100%y)
       Activity.SetBackgroundImage(bmp)
     Catch
       Log(LastException)
     End Try
   End If
End Sub

Private Sub IsRelevantIntent(in As Intent) As Boolean
   If in.IsInitialized And in <> OldIntent And in.Action = in.ACTION_SEND Then
     OldIntent = in
     Return True
   End If
   Return False
End Sub

 

مورد خاصی نیست دیگه.

لذت ببرید

[milad19 113]

سلام وقت بخیر

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

[milad19 113]

جواب سوال خودم

کد مینفست :

AddActivityText(main,
<intent-filter>
   <action android:name="android.intent.action.SEND" />
   <category android:name="android.intent.category.DEFAULT" />
   <data android:mimeType="text/plain" />
</intent-filter>)

کد داخل اکتیویتی :

	Try
		Dim In As Intent, url As String
		In = Activity.GetStartingIntent
		If In.Action = "android.intent.action.SEND" Then
			If In.HasExtra("android.intent.extra.TEXT") Then
				url = In.GetExtra("android.intent.extra.TEXT")
				EditText1.Text =url
			End If
		End If
	Catch
		Log(LastException)
	End Try