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.
A voir également:
- Vb probleme pause pendant form
- Imprimante hp en pause ✓ - Forum Imprimante
- Vb - Télécharger - Langages
- Imprimante en pause hp ✓ - Forum Imprimante
- Vbs pause ✓ - Forum VB / VBA
- Google form sans compte google - Forum Google Docs
1 réponse
Bonjour,
exemple :
Code d'un module :
et le code de la forme :
Lupin
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