Problème de communication entre interfaces VB6 [Résolu]

[VBAG38]

Bonjour,

Je connais assez mal VB6. Je pratique plutôt le VBA d'ordinaire. N'étant pas informaticien, je développe simplement de petits outils pour automatiser certains traitement ou simuler des étapes de process de façon itérative. Aujourd'hui, on me demande de développer une application un peu plus vaste et un peu mieux protéger afin que le code ne soit pas visible/modifiable par l'utilisateur. C'est pourquoi, je me dis que la solution VB6 avec la génération d'un exécutable peut être une bonne solution.

J'ai donc importer la version VBA sous VB6, j'ai refait mes "Form" puisque je n'arrivais pas à les utiliser sous VB6. Elles apparaissaient en tant que "Concepteur" et non de "Feuilles". Y a-t-il d'ailleurs une solution pour pouvoir utiliser directement des forms réalisées sous VBA en VB6 ?

Mon problème majeur et pour lequel je vous sollicite vient du fait que j'ai plusieurs interfaces :

• Une interface principale qui me sert à configurer ma simulation
• 2 autres interfaces secondaires qui doivent apparaître si et seulement si l'option correspondant à celle-ci est sélectionnée dans la première interface. L'utilisateur doit alors préciser un paramètre de sa configuration sur l'interface secondaire qui apparaît

Sous VBA, cela fonctionne parfaitement. C'est à dire, je choisis mes 1ères options, le code se déroule. J'ai une ligne de code qui est :

InterfaceX.Show

L'interface idoine apparaît et le code se stoppe en attendant que l'utilisateur sélectionne son option puis clique sur OK ou Cancel.

Sous VB6, l'interface apparaît mais le code ne se stoppe pas. C'est à dire qu'il affiche l'interface mais passe directement à la ligne suivante et enchaîne.

Est-ce que j'ai raté une commande à ajouter avant ou après le .Show ou bien y a-t-il quelque chose à faire au niveau de la conception de mes formes ?

Si je déroule le code en pas à pas et que je le bloque sur l'instruction .Show, l'interface apparaît mais je n'ai pas le contrôle dessus. Je ne peux par exemple pas cocher mes check box ou inscrire des valeurs dans les Textbox.

Je ne suis pas sûr d'avoir été très clair. N'hésitez pas à me demander des renseignements si besoin.

Merci d'avance.

[l_autodidacte]

Sous VB6, l'interface apparaît mais le code ne se stoppe pas. C'est à dire qu'il affiche l'interface mais passe directement à la ligne suivante et enchaîne.
Est-ce que j'ai raté une commande à ajouter avant ou après le .Show ou bien y a-t-il quelque chose à faire au niveau de la conception de mes formes ?

Dans le code de l'interface principale, il devrait y avoir une condition sur l'option à choisir dans l'événement "Click" des boutons d'option (OptionButton) ou des cases à cocher(CheckBox). Cette condition doit faire attendre l'exécution du code jusqu'à ce qu'on choisisse un traitement à faire.
Un exemple :

Code :

1
2
3
4
5
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) ' Public s'il s'agit d'un module de base .bas ou Private s'il s'agit d'un objet Form
' Quelque part dans le code, on peut utiliser :
Do
 Sleep 100
Loop Until Option1.Value = True Or Option2.Value = True

[ProgElecT]

Salut l_autodidacte et VBAG38

Envoyé par VBAG38

....
InterfaceX.Show
L'interface idoine apparaît et le code se stoppe en attendant que l'utilisateur sélectionne son option puis clique sur OK ou Cancel.
....

Si c'est dans InterfaceX que doit se faire un choix et ne pouvoir quitter cette InterfaceX que par OK ou Cancel, il faut paramétrer l'ouverture de InterfaceX au monument de son ouverture.

Show, méthode
object.Show style, ownerform
....
style Facultatif. Nombre entier qui détermine si la feuille est modale ou non modale. Si l'argument style a pour valeur 0, la feuille est non modale ; s'il a pour valeur 1, elle est modale.

ownerform Facultatif.Expression de chaîne qui spécifie quel composant "possède" la feuille affichée. Pour les feuilles standard Visual Basic, utilisez le mot clé Me.

Donc pour toi InterfaceX.Show 1, Me le code suivant le Show du Form qui l'a lancé ne reprend qu'après la fermeture du Form lancé.

La bible du programmeur Visual Basic 6 et VBScript - MSDN

[VBAG38]

Envoyé par ProgElecT

Donc pour toi InterfaceX.Show 1, Me le code suivant le Show du Form qui l'a lancé ne reprend qu'après la fermeture du Form lancé.

La bible du programmeur Visual Basic 6 et VBScript - MSDN

Merci beaucoup ProElegT pour ton conseil. Cela fonctionne. Je ne connaissais par. Merci également pour le lien, je vais essayer de trouver les réponses à mes futures questions dedans avant de revenir demander de l'aide au forum.

A tout hasard, dans mon appli VBA, j'utilise la méthode Find qui ne semble pas exister en VB6. Vous ne connaîtriez pas l'équivalent par hasard ?

Merci encore.