Discussion :

[benvoorde]

bonjour,
Voila, j'ai fais un menu , et je voudrais maintenant quand je clique sur le menu ouvrir ou fermer une fenetre ( page visual basic ), vous pouvez me dire le code qu'il faut mettre svp?
merci
a bientot
thibaut

[scorpion.os]

ton_form.open() ou bien .show()
ton_form.close()

[Jérôme Lambert]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim maForm2 As Form2
 
' Ouvre une fenêtre non modale
' tu pourras donc avoir le contrôle de la fenêtre principale
maForm2.Show()
 
' Ouvre une fenêtre modale
' tu devras femer cette fenêtre pour reprendre le contrôle de la fenêtre principale
maForm2.ShowDialog()

[benvoorde]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim maForm2 As Form2
 
' Ouvre une fenêtre non modale
' tu pourras donc avoir le contrôle de la fenêtre principale
maForm2.Show()
 
' Ouvre une fenêtre modale
' tu devras femer cette fenêtre pour reprendre le contrôle de la fenêtre principale
maForm2.ShowDialog()

Sa ne marche pas! sa me met en rouge et sa me met un message derreur qd je met : form1.Show() ...

[Jérôme Lambert]

Sa ne marche pas! sa me met en rouge et sa me met un message derreur qd je met : form1.Show() ...

Dans mon exemple, il faut que tu ais créé un fichier Windows Form qui s'appelle Form2.

[Hatchepsout]

Sa ne marche pas! sa me met en rouge et sa me met un message derreur qd je met : form1.Show() ...

salut c'est quoi le message d'erreur??
parsque

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Dim maForm2 As Form2
 
maForm2.Show()
 
' Ouvre une fenêtre modale
' tu devras femer cette fenêtre pour reprendre le contrôle de la fenêtre principale
maForm2.ShowDialog()

c'est la bonne reponse :
mais biensur tu doit mettre ca dans la bonne place c'est a dire sous le button de ta menu

[benvoorde]

Non pour ouvrir une fenetre maintenant sa marche
C'est pour fermer une fenetre que sa pose probleme maintenant
J'ai créer dans un quitter dans le menu
j'ai mis : maform.hide
et sa marche la fenetre disparait
Mais quand je veux le faire dans une form! je met un bouton , OK ! et quand je veux quitter, bah je clique sur le bouton OK , mais la sa ne marche pas, sa fais rien..
merci
bonne journée
thibaut

[Jérôme Lambert]

Un peu de code serait le bienvenue

[tenaka]

Bonjour,

Je profite de ce post pour vous soumettre mon problème:

Je dois créer une fenêtre (nom: Recherche) qui permet de cherche une norme (NF ISO, NF EN, NF EN ISO où NF A).
Donc j'ai creer mes 4 toolbox et le bouton valider.
Cependant je n'arrive pas a faire en sorte que lorsqu'on clique sur le bouton valider, en plus de la recherche, la fenêtre se ferme.

Voici mon code:

Private Sub Valider_Click() 'Clic sur le bouton Valider

norme_a_rechercher = "*" & TextBox1 & "*" 'zone de texte NF A
If TextBox1.Value = "" Then
Else
Selection.AutoFilter Field:=2, Criteria1:="*" & norme_a_rechercher & "*"
End If

norme_a_rechercher = "*" & TextBox2 & "*" 'zone de texte NF EN
If TextBox2.Value = "" Then
Else
Selection.AutoFilter Field:=3, Criteria1:="*" & norme_a_rechercher & "*"
End If

norme_a_rechercher = "*" & TextBox3 & "*" 'zone de texte NF ISO
If TextBox3.Value = "" Then
Else
Selection.AutoFilter Field:=4, Criteria1:="*" & norme_a_rechercher & "*"
End If

norme_a_rechercher = "*" & TextBox4 & "*" 'zone de texte NF EN ISO
If TextBox4.Value = "" Then
Else
Selection.AutoFilter Field:=5, Criteria1:="*" & norme_a_rechercher & "*"
End If

End Sub

Merci d'avance

Tenaka

[bidou]

si c'est ouvert avec ShowDialog, il suffit d'affecter quelque chose à DialogResult

[tenaka]

Merci pour cette réponse rapide.

La fenêtre s'ouvre par Recherche.Show comme ci dessous:

Sub fctrecherche()
'
' fctrecherche Macro
' Macro enregistrée le 18/06/2007 par KOSVOCORE
'

' remise à zéro des filtres
Selection.AutoFilter Field:=2 'filtre NFA
Selection.AutoFilter Field:=3 'filtre NF EN
Selection.AutoFilter Field:=4 'filtre ISO
Selection.AutoFilter Field:=5 'filtre EN ISO
' lancement de la fenêtre (elle s'appelle Recherche)
Recherche.Show

End Sub



Est ce la même chose? Si oui, je ne vois pas trop où et comment le rajouter :/

Merci d'avance
Tenaka