VB6 : Utilisation d'un module

Question

Bonjour, 
Voici un code que j'utilise à plusieurs reprise dans un formulaire VB6 :
Cmd_Oui.Enabled = False
Cmd_Non.Enabled = False
Cmd_Commande.Enabled = False
Cmd_Annuler.Enabled = False

Cmd_Oui.Enabled = True
Cmd_Non.Enabled = True
Cmd_Commande.Enabled = True
Cmd_Annuler.Enabled = True

Je voudrais savoir comment déclarer ces codes dans un module standard afin de limiter de les écrire à chaque fois dans le formulaire Form1. Et comment on fait l'appel du procédure dans le formulaire une fois déclaré dans le module. Merci !



Configuration: Windows XP / Firefox 20.0

Utilisateur anonyme · Answer

Dans Module1, tu écris ton Sub (le même servira aussi bien à mettre à true qu'à false)

Public Sub Afficher(ByVal Visible as Boolean)
  With Form1
    .Cmd_Oui.Enabled = Visible
    .Cmd_Non.Enabled = Visible
    .Cmd_Commande.Enabled = Visible
    .Cmd_Annuler.Enabled = Visible
  End With
End Sub


Dans le formulaire (ou ailleurs) tu l'appelles :Afficher TrueouAfficher Falseselon les besoins

Utilisateur anonyme · Answer

Des solutions plus ou moins faciles ? Celle-ci peut être considérée comme très simple, je ne t'en donnerai pas de plus facile. 

Si tu veux utiliser le même code avec d'autres formulaires, il ne faut pas que le nom "Form1" soit écrit explicitement dans le code, car si tu l'appelles depuis Form2, ce qui est possible, ce sera toujours Form1 qui sera modifié. 
Il faut donc ajouter le Form en paramètre : 

Public Sub Afficher(MonForm as Form, ByVal Visible as Boolean) 
  With MonForm
    .Cmd_Oui.Enabled = Visible 
    .Cmd_Non.Enabled = Visible 
    .Cmd_Commande.Enabled = Visible 
    .Cmd_Annuler.Enabled = Visible 
  End With 
End Sub 


Et pour l'appeler, sachant que le mot-clé Me désigne le Form à l'intérieur duquel il est utilisé :Afficher Me, TrueouAfficher Me, False

Bien sûr, tout ceci ne marche que si tu as bien les boutons Cmd_Oui, Cmd_Non, Cmd_Commande et Cmd_Annuler sur tes différents forms

VB6 : Utilisation d'un module

2 réponses

Discussions similaires

Newsletters