Visual:comment mettre une variable x qui servira de compteur? - Programmation
Marsh Posté le 05-06-2002 à 11:43:10
Pkoi des que je poste un sujet personne ne repond c pas simpa les gars...
Marsh Posté le 05-06-2002 à 11:56:42
sonocorsu a écrit a écrit : Voila c pour un navigateur et j'ai besoin d'une variable x qui s'incremente a chaque fois que je vais sur une nouvelle page et inversement quand je retourne. C'est pour masquer le bouton retour lorsque l'on est a sa page d'acceuil (sinon bug) J'ai essayé ca (ne rigolez pas svp): Private Sub Web_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean) Dim changement As Boolean changement = n(1) Dim nb As String nb = n + 1 (2) If nb = 3 (3) Then back.Visible = True End Sub et ca marche pas donc si qq1 peut m'aider Merci d'avance |
(1) : d'ou sors le n ? ou est il déclaré ?
(2) : tu additionnes nb (qui est une String) à un nombre ???
(3) : nb est une String et tu la testes sur une valeur numérique ??
NB : si changement est un Booléen, alors il ne peut prendre que 2 valeurs : True ou False. "changement = n" est faux, sauf si n = True ou si n = False
Marsh Posté le 05-06-2002 à 12:12:49
De plus, tu t'y prends pas comme il faut pour détecter que tu arrives au début de l'historique. Voici la marche à suivre :
Quand tu arrives au début de l'histo, l'évt CommandStateChange est déclenché avec Command = CSC_NAVIGATEBACK et Enable = False. Tu dois tester ces valeurs dans le handler et agir en conséquence .
Ce qui nous donne :
Code :
|
Marsh Posté le 06-06-2002 à 00:16:18
ok merci mais entre temps g trouvé mieux
On Error Resume Next
c la commande magique
Marsh Posté le 06-06-2002 à 09:24:35
ouh la la... non, c'est pas trop la commande magique...
Utilise la manip que je t'ai indiqué, c'est comme ça qu'il faut faire et pas avec du rafistolage comme Resume Next.
Marsh Posté le 05-06-2002 à 11:32:39
Voila c pour un navigateur et j'ai besoin d'une variable x qui s'incremente a chaque fois que je vais sur une nouvelle page et inversement quand je retourne.
C'est pour masquer le bouton retour lorsque l'on est a sa page d'acceuil (sinon bug)
J'ai essayé ca (ne rigolez pas svp):
Private Sub Web_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean)
Dim changement As Boolean
changement = n
Dim nb As String
nb = n + 1
If nb = 3 Then back.Visible = True
End Sub
et ca marche pas donc si qq1 peut m'aider
Merci d'avance