German Msgbox mit Changelog

[pjo12345]

Hallo,

ich suche gerade eine Möglichkeit beim ersten Start der App bzw. nach einem Update eine Msgbox mit den Änderungen anzuzeigen. Diese Msgbox soll aber wirklich nur beim ersten Start nach der Installation und nach einem Update erscheinen. Danach nicht wieder. Ich komme da irgendwie nicht weiter und bräuchte mal einen Denkanstoß in die richtige Richtung.
vielen Dank....

 

[Deleted member 103]

Hallo pjo12345,

also ich mache es z.B. so:

Sub Activity_Create(FirstTime As Boolean)
   'App-History anzeigen
   If Not(File.Exists(File.DirInternal,"v_" & getVersion & ".txt")) Then
      File.WriteString(File.DirInternal,"v_" & getVersion & ".txt","ok")
      mnuHistory_Click
   End If
End Sub

Sub getVersion As String
   Dim pm As PackageManager
   Return pm.GetVersionName("b4a.test")
End Sub

Ciao,
Filippo

 

[pjo12345]

Und was machst du in mnuHistory_Click?

 

[muopc]

Und was machst du in mnuHistory_Click?

Ich vermute er öffnet die Messagebox und lässt den Text der txt Datei erscheinen.

Sub mnuHistory_Click
Dim change as String
change = File.ReadString("ordner","Datei")
MsgBox(change,"Changelog")
End Sub

Ist ausm Kopf, müsste aber so oder so ähnlich aussehen.

Grüße