اموزش تشخیص نصب بودن یک برنامه

[bahman 165]

اینم کدش

Sub cb As Boolean
Dim pm As PackageManager
Dim packages As List
packages = pm.GetInstalledPackages
For i = 0 To packages.Size - 1
If  packages.Get(i)="com.mxtech.videoplayer.ad" Then Return True
Next
End Sub

برای مثال

من با چک کردن برنامه Mx Player دو تا لیبل رو نمایش میدم

If cb = False Then
Label1.Visible=True
End If
	
	If cb = True Then
Label2.Visible=True
Else
Label1.Visible=True
End If

اگه مورد پسندت بود دکمه پسندیدم یادت نره