Fonction appinfo

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 871 fois - Téléchargée 74 fois

Contenu du snippet

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

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de Utilisateur anonyme

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.