iOS Question AppLabel, ApplicationVersionName ?

MitchBu said:

In B4A, I do this for the About dialog:

B4X:

Log("---About_click")
    Msgbox(M("By") & " Michel Bujardet", AppLabel & " " & Application.VersionName)

Is there an equivalent in B4i ?

Click to expand...

Sub AppVersion(intval As Boolean) As Object
    Dim no As NativeObject
    no = no.Initialize("NSBundle").RunMethod("mainBundle", Null)
    Dim version As Object = no.RunMethod("objectForInfoDictionaryKey:", Array("CFBundleShortVersionString"))
    Dim sver As String = version
    Dim intver As Int = sver.Replace(".", "")
    
    If intval Then
        Return intver
    Else
        Return version
    End If
End Sub

Sub AppName As String
    Dim no As NativeObject
    no = no.Initialize("NSBundle").RunMethod("mainBundle", Null)
    Dim name As Object = no.RunMethod("objectForInfoDictionaryKey:", Array("CFBundleDisplayName"))
    Return name
End Sub

Erel said:

How to get ApplicationLabel and Version at runtime?

Hi all, Maybe I'm being slow, but I can't seem to find any way to get the app's name and version at runtime? I.e. the values of the Project Attributes #ApplicationLabel and #Version that are set in the Main module. In B4A I would do it by calling Application.LabelName and...

www.b4x.com

Click to expand...