Vb probleme pause pendant form
dan
-
Utilisateur anonyme -
Utilisateur anonyme -
Hello,
J'écris un petit programme en VB, mais j'ai un souci.
Mon programme ouvre un form, l'utilisateur est sensé inscrire un numero dedans puis appuyer sur le bouton command (ok), et derrière mon programme fait qq opérations.
Le code est correct (vérifié, car avant de faire un form, j'avais un simple InputBox et cela fonctionnait nickel), mais le souci est que mon code continue d'être lu pendant que le form apparaît.
Autrement dit, le form apparaît pour demander la valeur, mais le programme continue à se lire, avec une valeur nulle avant qu'on ait le temps de faire quoi que se soit.
Comment pourrais-je faire? Il faudrait une sorte de pause au moment de l'apparition du form.
Merci infiniment.
J'écris un petit programme en VB, mais j'ai un souci.
Mon programme ouvre un form, l'utilisateur est sensé inscrire un numero dedans puis appuyer sur le bouton command (ok), et derrière mon programme fait qq opérations.
Le code est correct (vérifié, car avant de faire un form, j'avais un simple InputBox et cela fonctionnait nickel), mais le souci est que mon code continue d'être lu pendant que le form apparaît.
Autrement dit, le form apparaît pour demander la valeur, mais le programme continue à se lire, avec une valeur nulle avant qu'on ait le temps de faire quoi que se soit.
Comment pourrais-je faire? Il faudrait une sorte de pause au moment de l'apparition du form.
Merci infiniment.
Configuration: Windows Vista Firefox 2.0.0.6
1 réponse
-
Bonjour,
exemple :
Code d'un module :Option Explicit ' Public MaVariable As Long ' Sub TestForme() Dim Boite As Long Boite = 0: MaVariable = 0 MsgBox "Boite = " & Boite & vbLf & "MaVariable = " & MaVariable Call AfficheForme MsgBox "Boite = " & Boite & vbLf & "MaVariable = " & MaVariable End Sub ' Sub AfficheForme() MaForme.Show End Sub '
et le code de la forme :
Option Explicit Private Sub cmd_Execute_Click() MaVariable = Val(tbx_Texte.Text) End Sub ' Private Sub cmd_Quitter_Click() Unload Me End Sub '
Lupin