German Msgbox mit Changelog

pjo12345

Active Member
Licensed User
Longtime User
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....
 
D

Deleted member 103

Guest
Hallo pjo12345,

also ich mache es z.B. so:
B4X: 
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

Active Member
Licensed User
Longtime User
Und was machst du in mnuHistory_Click?
 
M

muopc

Member
Licensed User
Longtime User
pjo12345 said:
Und was machst du in mnuHistory_Click?
Click to expand...

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

B4X: 
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
 
You must log in or register to reply here.
Menu
Log in
Register
Cookies are required to use this site. You must accept them to continue using the site. Learn more…