Variable qui se vide sans aucune raison !
Résolu
JOUD
-
Utilisateur anonyme -
Utilisateur anonyme -
A voir également:
- Variable qui se vide sans aucune raison !
- Pc qui freeze sans raison - Guide
- Compte facebook désactivé sans raison - Guide
- Supprimer page word vide - Guide
- Compte instagram desactivé sans raison - Guide
- Caractere vide - Guide
2 réponses
Hello...
VB, c'est pas mon fort, mais peut être ça peut te mettre sur la piste
d'abord, dans un module, tout en haut, écrit la ligne suivante:
option explicit
ça permet d'éviter d'utiliser des variables qui n'ont pas été déclarées (contraire à toutes règles de bonne programmation).
(ça je suis moins sûr, c'est au feeling ;))ensuite, ta variable intcompteur est déclarée dans une procédure sub. Sa portée est donc la procédure. Pour pouvoir déclarer une variable au niveau du module, tu dois la déclarer en dehors d'une procédure.
pour un projet, je ne sais pas comment il faut faire, mais je suis sûr qu'il y a une doc là-dessus.
bonne soirée et courage!
VB, c'est pas mon fort, mais peut être ça peut te mettre sur la piste
d'abord, dans un module, tout en haut, écrit la ligne suivante:
option explicit
ça permet d'éviter d'utiliser des variables qui n'ont pas été déclarées (contraire à toutes règles de bonne programmation).
(ça je suis moins sûr, c'est au feeling ;))ensuite, ta variable intcompteur est déclarée dans une procédure sub. Sa portée est donc la procédure. Pour pouvoir déclarer une variable au niveau du module, tu dois la déclarer en dehors d'une procédure.
pour un projet, je ne sais pas comment il faut faire, mais je suis sûr qu'il y a une doc là-dessus.
bonne soirée et courage!
Bonjour,
'-------------------------------
Dim intcompteur As Integer
Private Sub Form_Load()
intcompteur = 2
End Sub
Private Sub Command1_Click()
Text1.Text = intcompteur
End Sub
'-------------------------------
pour être reconnu dans tous le projet !
'-------------------------------
Public intcompteur As Integer
Private Sub Form_Load()
intcompteur = 2
End Sub
Private Sub Command1_Click()
Text1.Text = intcompteur
End Sub
'-------------------------------
Lupin
'-------------------------------
Dim intcompteur As Integer
Private Sub Form_Load()
intcompteur = 2
End Sub
Private Sub Command1_Click()
Text1.Text = intcompteur
End Sub
'-------------------------------
pour être reconnu dans tous le projet !
'-------------------------------
Public intcompteur As Integer
Private Sub Form_Load()
intcompteur = 2
End Sub
Private Sub Command1_Click()
Text1.Text = intcompteur
End Sub
'-------------------------------
Lupin