B4A Library Amir_TileService

Private Sub Class_Globals
End Sub

Public Sub Initialize (TileService As Amir_TileService)
    'Amir_TileService will create and initialize this class!
End Sub

Private Sub TileService_Clicked (TileService As Amir_TileService)
    'Called when the user clicks on this tile.
End Sub

Private Sub TileService_Added (TileService As Amir_TileService)
    'Called when the user adds this tile to Quick Settings.
End Sub

Private Sub TileService_Removed (TileService As Amir_TileService)
    'Called when the user removes this tile from Quick Settings.
End Sub

Private Sub TileService_StartListening (TileService As Amir_TileService)
    'Called when this tile moves into a listening state. (when the Tile becomes visible)
End Sub

Private Sub TileService_StopListening (TileService As Amir_TileService)
    'Called when this tile moves out of the listening state. (when the tile is no longer visible)
End Sub

AddApplicationText(
<service
    android:name="com.aghajari.tileservice.TileService"
    android:icon="$ICON$"
    android:label="$LABEL$"
    android:permission="android.permission.BIND_QUICK_SETTINGS_TILE">
    
    <meta-data android:name="com.aghajari.tileservice.TileService"
               android:value="$StandardClassName$" />
    
    <intent-filter>
        <action android:name="android.service.quicksettings.action.QS_TILE" />
    </intent-filter>
</service>)

Private Sub TileService_Clicked (TileService As Amir_TileService)
    Dim Tile As Amir_Tile = TileService.QsTile
    Tile.State = Tile.STATE_ACTIVE
    Tile.Icon = Tile.CreateIconWithAndroidResource("ic_media_pause")
    Tile.Label = "Connected"
    Tile.ContentDescription = "AmirTileService"
    Tile.UpdateTile
End Sub

Dim p As Phone
If p.SdkVersion>=24 Then
    Dim TS As Amir_TileService
    TS.Initialize(Null)
    TS.RequestListeningState2(1)
End If