App. et UserControl

Question

Salut !

Je me demande comment activer le app. dans un user control.
En fait, il le voit, mais il n'exécute pas :p
Supposons que j'ai fais à l'initializ ce petit code :

Private Sub UserControl_Initialize()
Label = "Version " & App.Major & "." & App.Minor & "." & App.Revision
End Sub

Dans mon projet de construction, il s'exécute normalement, ensuite je l'exporte en ocx et je l'envois dans un autre projet. Là par contre il ne lis pas la version et m'affiche tout le temps 1.0.0 or je suis à 1.0.3

Avez-vous une tit idée sur ce problème ?

Merci						

----------
OS        : Windows XP SP3 et Vista 32
Platforme : VB 6.0 + SP6
Ok VB6.0 c'est pas net !

Sinsitrus · Answer

Personne pour m'aider ?

Sinsitrus · Answer

Salut !

Vraiment personne pour me filer un coup de main ?

nathansecret · Answer

L'UserControl affiche SA VERSION.

Si la version de l'UserControl c'est 1.0.0 il n'affichera que ça.

Comment faire pour corriger ce problème ?


Ajoute ceci dans ton UserControl :


Sub VersionDuProg(Version$)
 Label = "Version " & Version
End Sub


Ajoute ceci dans le logiciel qui utilise le UserControl :


Private Sub Form_Load()
 UserControl.VerSionDuProg App.Major & "." & App.Minor & "." & App.Revision
End Sub


ET voilà !

Nathan

Sinsitrus · Answer

Salut et merci NathanSecret.
Je mettrai ma source à jour ;)

nathansecret · Answer

De rien (malgré le temps passé entre demande et réponse)...

Sinsitrus · Answer

:P no problémo, ça reste toujours à jour :D

App. et UserControl

6 réponses

Votre réponse

Discussions similaires