OVH Cloud OVH Cloud

Comment fermer une fenetre?

7 réponses
Avatar
Celemka
Re bonjour,

En effet j'ai mon application et j'aimerais pouvoir la fermé si je clique
sur un bouton

mon code est donc :

Private Sub Close_Button_Click()
Me.Close()
End Sub

Mais il me dit erreur de compilation

alors j'ai essayer ca :

Private Sub Close_Button_Click()
Dim F As Form1
F.Close = true
End Sub


mais rien non plus.... qu'elqu'un pourrait il me dire pourquoi je bute sur
un truc aussi simple ?

Merci d'avance
Emka

7 réponses

Avatar
Pascal B.
Pour fermer une Form (et la décharger de la mémoire)

Private Sub Close_Button_Click()
Unload Me
End Sub

Amicalement
Pascal B.

"Celemka" wrote in message news:43d9eafb$0$26819$
| Re bonjour,
|
| En effet j'ai mon application et j'aimerais pouvoir la fermé si je clique
| sur un bouton
|
| mon code est donc :
|
| Private Sub Close_Button_Click()
| Me.Close()
| End Sub
|
| Mais il me dit erreur de compilation
|
| alors j'ai essayer ca :
|
| Private Sub Close_Button_Click()
| Dim F As Form1
| F.Close = true
| End Sub
|
|
| mais rien non plus.... qu'elqu'un pourrait il me dire pourquoi je bute sur
| un truc aussi simple ?
|
| Merci d'avance
| Emka
|
|
Avatar
Celemka
Ah merci !!
fallait trouver ca !!

"Pascal B." a écrit dans le message de
news:%
Pour fermer une Form (et la décharger de la mémoire)

Private Sub Close_Button_Click()
Unload Me
End Sub

Amicalement
Pascal B.

"Celemka" wrote in message


news:43d9eafb$0$26819$
| Re bonjour,
|
| En effet j'ai mon application et j'aimerais pouvoir la fermé si je


clique
| sur un bouton
|
| mon code est donc :
|
| Private Sub Close_Button_Click()
| Me.Close()
| End Sub
|
| Mais il me dit erreur de compilation
|
| alors j'ai essayer ca :
|
| Private Sub Close_Button_Click()
| Dim F As Form1
| F.Close = true
| End Sub
|
|
| mais rien non plus.... qu'elqu'un pourrait il me dire pourquoi je bute


sur
| un truc aussi simple ?
|
| Merci d'avance
| Emka
|
|




Avatar
X
Bonjour,

En complément,

Unload nom_de_la_forme

Je trouve que c'est plus parlant que Me, mais c'est une question de goût :o)

------------------

"Celemka" a écrit dans le message de
news: 43d9eafb$0$26819$
Re bonjour,

En effet j'ai mon application et j'aimerais pouvoir la fermé si je clique
sur un bouton

mon code est donc :

Private Sub Close_Button_Click()
Me.Close()
End Sub

Mais il me dit erreur de compilation

alors j'ai essayer ca :

Private Sub Close_Button_Click()
Dim F As Form1
F.Close = true
End Sub


mais rien non plus.... qu'elqu'un pourrait il me dire pourquoi je bute sur
un truc aussi simple ?

Merci d'avance
Emka




Avatar
Driss HANIB
non puisque cet appel est fait à partir de la feuille elle même : comme on
fermer la feuille où on est cela se comprend bien..
Me = Moi ;o)

"X" <x> a écrit dans le message de
news:
Bonjour,

En complément,

Unload nom_de_la_forme

Je trouve que c'est plus parlant que Me, mais c'est une question de goût


:o)

------------------

"Celemka" a écrit dans le message de
news: 43d9eafb$0$26819$
> Re bonjour,
>
> En effet j'ai mon application et j'aimerais pouvoir la fermé si je


clique
> sur un bouton
>
> mon code est donc :
>
> Private Sub Close_Button_Click()
> Me.Close()
> End Sub
>
> Mais il me dit erreur de compilation
>
> alors j'ai essayer ca :
>
> Private Sub Close_Button_Click()
> Dim F As Form1
> F.Close = true
> End Sub
>
>
> mais rien non plus.... qu'elqu'un pourrait il me dire pourquoi je bute


sur
> un truc aussi simple ?
>
> Merci d'avance
> Emka
>
>




Avatar
Celemka
Merci pour ces precisions.
C'est vrai que pour le moment j'ai qu'une Form.
Mais cela pourra etre utile par la suite.

Merci
Emka


"Driss HANIB" a écrit dans le message de
news:
non puisque cet appel est fait à partir de la feuille elle même : comme on
fermer la feuille où on est cela se comprend bien..
Me = Moi ;o)

"X" <x> a écrit dans le message de
news:
> Bonjour,
>
> En complément,
>
> Unload nom_de_la_forme
>
> Je trouve que c'est plus parlant que Me, mais c'est une question de goût
:o)
>
> ------------------
>
> "Celemka" a écrit dans le message de
> news: 43d9eafb$0$26819$
> > Re bonjour,
> >
> > En effet j'ai mon application et j'aimerais pouvoir la fermé si je
clique
> > sur un bouton
> >
> > mon code est donc :
> >
> > Private Sub Close_Button_Click()
> > Me.Close()
> > End Sub
> >
> > Mais il me dit erreur de compilation
> >
> > alors j'ai essayer ca :
> >
> > Private Sub Close_Button_Click()
> > Dim F As Form1
> > F.Close = true
> > End Sub
> >
> >
> > mais rien non plus.... qu'elqu'un pourrait il me dire pourquoi je bute
sur
> > un truc aussi simple ?
> >
> > Merci d'avance
> > Emka
> >
> >
>
>




Avatar
KaDrA MPFE
ce n' est pas tout simplement les parentheses qui sont en trop ?
"Celemka" a écrit dans le message de
news: 43d9eafb$0$26819$
Re bonjour,

En effet j'ai mon application et j'aimerais pouvoir la fermé si je clique
sur un bouton

mon code est donc :

Private Sub Close_Button_Click()
Me.Close()
End Sub

Mais il me dit erreur de compilation

alors j'ai essayer ca :

Private Sub Close_Button_Click()
Dim F As Form1
F.Close = true
End Sub


mais rien non plus.... qu'elqu'un pourrait il me dire pourquoi je bute sur
un truc aussi simple ?

Merci d'avance
Emka




Avatar
Jean-Marc
"KaDrA MPFE" a écrit dans le
message de news:
"Celemka" a écrit dans le message


de
news: 43d9eafb$0$26819$
> Re bonjour,



Hello,

> En effet j'ai mon application et j'aimerais pouvoir la fermé si je


clique
> sur un bouton
>
> mon code est donc :
>
> Private Sub Close_Button_Click()
> Me.Close()
> End Sub
>
> Mais il me dit erreur de compilation
>
> alors j'ai essayer ca :
>
> Private Sub Close_Button_Click()
> Dim F As Form1
> F.Close = true
> End Sub



la syntaxe est:

Unload me

> mais rien non plus.... qu'elqu'un pourrait il me dire pourquoi je


bute sur
> un truc aussi simple ?



Oui, bien sur! C'est parce que tu n'as pas lu la documentation,
qui se trouve ici:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnanchor/html/vb6anchor.asp

--
Jean-marc
Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;