Android Question clickable list to launch another app [Solved]

[trepdas]

Hello good people,
I have this Erel's example to list installed app.

Get List Of Installed Apps and their icons

Hi all. This function logs a list of installed apps and can also get their icons. I have had this for a few years and it could be modernized to the new b4a features but it works so... Right now it just logs the output but there is also remarked out code to add everything to a ListView This is...

www.b4x.com

Private Sub ShowInstalledApps
   Dim pm As PackageManager  'phone library
   For Each pck As String In pm.GetInstalledPackages
     Dim name As String = pm.GetApplicationLabel(pck)
     Log(name)
   Next
End Sub

can this list be clickable to launch the apps ?
if so, how ?

?

 

[Erel]

Add the items to xCLV and implement the ItemClick event.

You need to use pm.GetApplicationIntent to get the intent that starts the app.

 

[trepdas]

a small example of code, anyone?

 

[sfsameer]

a small example of code, anyone?

No Problem

Sub Globals
   
    Dim lst As ListView

End Sub
Sub Activity_Create(FirstTime As Boolean)

    lst.Initialize("lst")
    Activity.AddView(lst,0,0,100%x,100%y)
    ShowInstalledApps
end sub
Private Sub ShowInstalledApps
    Dim pm As PackageManager  'phone library
    For Each pck As String In pm.GetInstalledPackages
        Dim name As String = pm.GetApplicationLabel(pck)
        lst.AddSingleLine2(pm.GetApplicationLabel(pck),pm.GetApplicationIntent(pck))
    Next
End Sub
Sub lst_ItemClick (Position As Int, Value As Object)
    Try
        Dim in As Intent
        in = Value
        If in.IsInitialized Then StartActivity(in)
       
    Catch
        Log(LastException)
    End Try
End Sub

 

[trepdas]

Thank you
?

 

[sfsameer]

Thank you
?

you are most welcome

 

[Mahares]

No Problem

Thank you

I don't think the code that Saif posted is correct. But then again who am I to argue with the powerhouse Saif (The Sword). The value returned by the item click in the listview should be the package name, then the intent code in the item click should be quite different from what you have.
This line:

lst.AddSingleLine2(pm.GetApplicationLabel(pck),pm.GetApplicationIntent(pck))

should be:

lst.AddSingleLine2(pm.GetApplicationLabel(pck),pck)

the Sub lst_ItemClick (Position As Int, Value As Object) code you have needs to change also.
It is also preferable to use an xCLV instead of Listview

 

[sfsameer]

This line:

lst.AddSingleLine2(pm.GetApplicationLabel(pck),pm.GetApplicationIntent(pck))

should be:

lst.AddSingleLine2(pm.GetApplicationLabel(pck),pck)

the Sub lst_ItemClick (Position As Int, Value As Object) code you have needs to change also.
It is also preferable to use an xCLV instead of Listview

The code to run the package intent is :

Dim in As Intent
Dim pm As PackageManager
in = pm.GetApplicationIntent("com.google.android.youtube")
If in.IsInitialized Then StartActivity(in)
StartActivity(in)

so what i did was put this line :

pm.GetApplicationIntent("com.google.android.youtube")

in the value of the listview :

lst.AddSingleLine2(pm.GetApplicationLabel(pck),pm.GetApplicationIntent(pck))

so when you want to run the package you dont have to do :

Dim in As Intent
Dim pm As PackageManager
in = pm.GetApplicationIntent(value)
If in.IsInitialized Then StartActivity(in)
StartActivity(in)

you could just run :

Dim in As Intent
        in = Value
        If in.IsInitialized Then StartActivity(in)

which produces the same result as your code above

I don't think the code that Saif posted is correct. But then again who am I to argue with the powerhouse Saif (The Sword).

it's an honor and pleasure to be considered that

 

[Mahares]

it's an honor and pleasure to be considered that

Did you try to run your code though. I tried it and it crashed for me. If it works for you, I am good with that.

 

[sfsameer]

Did you try to run your code though. I tried it and it crashed for me. If it works for you, I am good with that.

wow, i stand corrected!
no matter how much i have learned, there is always something new to be learnt.

my apologies for the wrong solution, i should have ran it first.
You solution is the correct one.

 

[sfsameer]

The correct code should be :

Private Sub ShowInstalledApps
    Dim pm As PackageManager  'phone library
    For Each pck As String In pm.GetInstalledPackages
        Dim name As String = pm.GetApplicationLabel(pck)
        
    
        Dim in As Intent
        Dim pm As PackageManager
        in = pm.GetApplicationIntent(pck)
        If in.IsInitialized Then 
            lst.AddSingleLine2(pm.GetApplicationLabel(pck),in)
            
        End If
        
    Next
End Sub

 

[Mahares]

The correct code should be :

Now you are cooking Saif. And your item click event code is correct the way you had in post #4

 

[trepdas]

Thank you very much Mahares and sfsameer.
right after I tested it and it crashed I see here that the answer is already there !
? ?