باز کردن یه برنامه دیگه در برنامه خود

[mkabir 186]

خودم سوال این مطلب رو گذاشتم کسی جواب نداد

حالا پیداش کردم گفتم شما هم بدونید 

 

 

برای اینکار اول کتابخونه phone رو تیک بزنید 

این کد رو تو پروژه بزارید

Sub openapp(package As String)
Dim pm As PackageManager
Dim in As Intent
in.Initialize("","")
in=pm.GetApplicationIntent(package&"")
If in.IsInitialized Then 
StartActivity(in)
End If 
End Sub

و با این کد ازش استفاده کنید 

openapp("نام پکیج نیم برنامه ")

و اگر خواستید شرط بزارید که ببینه برنامه نصب شده یا نه از کتابخونه arialib  استفاده کنید  با کد 

	Dim a1 As AriaLib
	If a1.isAppInstalled("پکیج نیم کورد نظر") = False
	ToastMessageShow("برنامه نصب نیست",False)
	End If