Cette fonction retourne un string du genre "MyProject - Version 1.0". Mettez la fonction dans module, faites un Debug.Print AppInfo(App,"^t ^v.^r^n (Build ^b)") et voyez comment ça marche.
Je ne pense pas que les fonctions Choose et Replace existent sous VB5...
Source / Exemple :
' ****************************************************************************
' *** Caractères spéciaux dans AppInfoCustomString ***
' *** [^T]itle = App.Title ***
' *** [^V]ersion = App.Major ***
' *** [^R]elease = App.Minor ***
' *** [^S]tep = (App.Minor \ 3) ***
' *** [^I]nfo = Choose((App.Minor Mod 3) + 1, "Alpha", "Beta", "Final") ***
' *** [^N]fo = Choose((App.Minor Mod 3) + 1, "a", "b", "") ***
' *** [^B]uild = App.Revision ***
' ****************************************************************************
Public Function AppInfo(ByVal AppObject As Object, _
Optional ByVal AppInfoCustomString As String = "") As String
Dim A As App
If AppObject Is Nothing Then
Set A = App
ElseIf TypeOf AppObject Is App Then
Set A = AppObject
Else
Set A = App
End If
AppInfo = AppInfoCustomString
AppInfo = Replace(AppInfo, "^T", A.Title)
AppInfo = Replace(AppInfo, "^t", A.Title)
AppInfo = Replace(AppInfo, "^V", A.Major)
AppInfo = Replace(AppInfo, "^v", A.Major)
AppInfo = Replace(AppInfo, "^R", A.Minor)
AppInfo = Replace(AppInfo, "^r", A.Minor)
AppInfo = Replace(AppInfo, "^S", (A.Minor \ 3))
AppInfo = Replace(AppInfo, "^s", (A.Minor \ 3))
AppInfo = Replace(AppInfo, "^I", Choose((A.Minor Mod 3) + 1, "Alpha", "Beta", "Final"))
AppInfo = Replace(AppInfo, "^i", Choose((A.Minor Mod 3) + 1, "Alpha", "Beta", "Final"))
AppInfo = Replace(AppInfo, "^N", Choose((A.Minor Mod 3) + 1, "a", "b", ""))
AppInfo = Replace(AppInfo, "^n", Choose((A.Minor Mod 3) + 1, "a", "b", ""))
AppInfo = Replace(AppInfo, "^B", A.Revision)
AppInfo = Replace(AppInfo, "^b", A.Revision)
End Function
Conclusion :
Pour ceux qui ne l'auraient pas compris, le premier paramètre est un objet de type VB.App
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.