bonjour, comment en visual basic faire un commande, qui apres validation de
la saisie dans un champ texte, ouvrirait le site correspondant a ce que j'ai
saisie ?
bonjour, comment en visual basic faire un commande, qui apres validation de la saisie dans un champ texte, ouvrirait le site correspondant a ce que j'ai saisie ?
Le code suivant ouvrira le site dans le navigateur par défaut :
Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" Alias _ "ShellExecuteA" (ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Private Const SW_SHOWMAXIMIZED = 3
Private Sub Text1_Validate(Cancel As Boolean) ShellExecute Me.hwnd, "open", Text1.Text, 0&, 0&, SW_SHOWMAXIMIZED End Sub
-- Cordialement,
Jacques.
Bonjour le Méruvien,
Le Méruvien a écrit :
bonjour, comment en visual basic faire un commande, qui apres validation de
la saisie dans un champ texte, ouvrirait le site correspondant a ce que j'ai
saisie ?
Le code suivant ouvrira le site dans le navigateur par défaut :
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Private Const SW_SHOWMAXIMIZED = 3
Private Sub Text1_Validate(Cancel As Boolean)
ShellExecute Me.hwnd, "open", Text1.Text, 0&, 0&, SW_SHOWMAXIMIZED
End Sub
bonjour, comment en visual basic faire un commande, qui apres validation de la saisie dans un champ texte, ouvrirait le site correspondant a ce que j'ai saisie ?
Le code suivant ouvrira le site dans le navigateur par défaut :
Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" Alias _ "ShellExecuteA" (ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Private Const SW_SHOWMAXIMIZED = 3
Private Sub Text1_Validate(Cancel As Boolean) ShellExecute Me.hwnd, "open", Text1.Text, 0&, 0&, SW_SHOWMAXIMIZED End Sub
-- Cordialement,
Jacques.
Le Méruvien
Bonjour Jacques, et merci beaucoup, il ne me reste plus qu'a me remettre à visual basic, que j'avais laisser tomber depuis longtemps, car maintenant je travail beaucoup avec access, en vba, alors va pas faloir que je me melange merci encore roger
"Jacques93" a écrit dans le message de news: %23%23Q$
Bonjour le Méruvien, Le Méruvien a écrit :
bonjour, comment en visual basic faire un commande, qui apres validation de la saisie dans un champ texte, ouvrirait le site correspondant a ce que j'ai saisie ?
Le code suivant ouvrira le site dans le navigateur par défaut :
Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" Alias _ "ShellExecuteA" (ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Private Const SW_SHOWMAXIMIZED = 3
Private Sub Text1_Validate(Cancel As Boolean) ShellExecute Me.hwnd, "open", Text1.Text, 0&, 0&, SW_SHOWMAXIMIZED End Sub
-- Cordialement,
Jacques.
Bonjour Jacques, et merci beaucoup, il ne me reste plus qu'a me remettre à
visual basic, que j'avais laisser tomber depuis longtemps, car maintenant je
travail beaucoup avec access, en vba, alors va pas faloir que je me melange
merci encore
roger
"Jacques93" <jacques@Nospam> a écrit dans le message de news:
%23%23Q$jpA0GHA.720@TK2MSFTNGP02.phx.gbl...
Bonjour le Méruvien,
Le Méruvien a écrit :
bonjour, comment en visual basic faire un commande, qui apres validation
de la saisie dans un champ texte, ouvrirait le site correspondant a ce
que j'ai saisie ?
Le code suivant ouvrira le site dans le navigateur par défaut :
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Private Const SW_SHOWMAXIMIZED = 3
Private Sub Text1_Validate(Cancel As Boolean)
ShellExecute Me.hwnd, "open", Text1.Text, 0&, 0&, SW_SHOWMAXIMIZED
End Sub
Bonjour Jacques, et merci beaucoup, il ne me reste plus qu'a me remettre à visual basic, que j'avais laisser tomber depuis longtemps, car maintenant je travail beaucoup avec access, en vba, alors va pas faloir que je me melange merci encore roger
"Jacques93" a écrit dans le message de news: %23%23Q$
Bonjour le Méruvien, Le Méruvien a écrit :
bonjour, comment en visual basic faire un commande, qui apres validation de la saisie dans un champ texte, ouvrirait le site correspondant a ce que j'ai saisie ?
Le code suivant ouvrira le site dans le navigateur par défaut :
Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" Alias _ "ShellExecuteA" (ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Private Const SW_SHOWMAXIMIZED = 3
Private Sub Text1_Validate(Cancel As Boolean) ShellExecute Me.hwnd, "open", Text1.Text, 0&, 0&, SW_SHOWMAXIMIZED End Sub
-- Cordialement,
Jacques.
Le Méruvien
Encore une petite question: la propriétée "quitter" n'existe -t-elle pas en VB ? je ne l'ai pas trouvée dans mon bouquin, je voudrai que quand le code est executé, mon application ce ferme ! J'ai fait une application tres simple, qui contient un champ texte, avec par defaut: http://www. et je tape la suite, donc quand je quitte ce champ avec la touche TAB, (je n'ai pas trouvé comment faire marcher avec la touche "entrée") donc apres appuie sur la touche TAB, j'ouvre le site demandé! C'est vachement pratique, car j'ai ce truc la sur un bouton de mon clavier logitech, mais pas sur mon portable, c'est pourquoi j'ai fait ça. Merci
"Jacques93" a écrit dans le message de news: %23%23Q$
Bonjour le Méruvien, Le Méruvien a écrit :
bonjour, comment en visual basic faire un commande, qui apres validation de la saisie dans un champ texte, ouvrirait le site correspondant a ce que j'ai saisie ?
Le code suivant ouvrira le site dans le navigateur par défaut :
Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" Alias _ "ShellExecuteA" (ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Private Const SW_SHOWMAXIMIZED = 3
Private Sub Text1_Validate(Cancel As Boolean) ShellExecute Me.hwnd, "open", Text1.Text, 0&, 0&, SW_SHOWMAXIMIZED End Sub
-- Cordialement,
Jacques.
Encore une petite question: la propriétée "quitter" n'existe -t-elle pas en
VB ?
je ne l'ai pas trouvée dans mon bouquin, je voudrai que quand le code est
executé, mon application ce ferme !
J'ai fait une application tres simple, qui contient un champ texte, avec par
defaut: http://www. et je tape la suite, donc quand je quitte ce champ avec
la touche TAB, (je n'ai pas trouvé comment faire marcher avec la touche
"entrée") donc apres appuie sur la touche TAB, j'ouvre le site demandé!
C'est vachement pratique, car j'ai ce truc la sur un bouton de mon clavier
logitech, mais pas sur mon portable, c'est pourquoi j'ai fait ça.
Merci
"Jacques93" <jacques@Nospam> a écrit dans le message de news:
%23%23Q$jpA0GHA.720@TK2MSFTNGP02.phx.gbl...
Bonjour le Méruvien,
Le Méruvien a écrit :
bonjour, comment en visual basic faire un commande, qui apres validation
de la saisie dans un champ texte, ouvrirait le site correspondant a ce
que j'ai saisie ?
Le code suivant ouvrira le site dans le navigateur par défaut :
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Private Const SW_SHOWMAXIMIZED = 3
Private Sub Text1_Validate(Cancel As Boolean)
ShellExecute Me.hwnd, "open", Text1.Text, 0&, 0&, SW_SHOWMAXIMIZED
End Sub
Encore une petite question: la propriétée "quitter" n'existe -t-elle pas en VB ? je ne l'ai pas trouvée dans mon bouquin, je voudrai que quand le code est executé, mon application ce ferme ! J'ai fait une application tres simple, qui contient un champ texte, avec par defaut: http://www. et je tape la suite, donc quand je quitte ce champ avec la touche TAB, (je n'ai pas trouvé comment faire marcher avec la touche "entrée") donc apres appuie sur la touche TAB, j'ouvre le site demandé! C'est vachement pratique, car j'ai ce truc la sur un bouton de mon clavier logitech, mais pas sur mon portable, c'est pourquoi j'ai fait ça. Merci
"Jacques93" a écrit dans le message de news: %23%23Q$
Bonjour le Méruvien, Le Méruvien a écrit :
bonjour, comment en visual basic faire un commande, qui apres validation de la saisie dans un champ texte, ouvrirait le site correspondant a ce que j'ai saisie ?
Le code suivant ouvrira le site dans le navigateur par défaut :
Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" Alias _ "ShellExecuteA" (ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Private Const SW_SHOWMAXIMIZED = 3
Private Sub Text1_Validate(Cancel As Boolean) ShellExecute Me.hwnd, "open", Text1.Text, 0&, 0&, SW_SHOWMAXIMIZED End Sub
-- Cordialement,
Jacques.
Jacques93
Bonjour le Méruvien, Le Méruvien a écrit :
Encore une petite question: la propriétée "quitter" n'existe -t-elle pas en VB ? je ne l'ai pas trouvée dans mon bouquin, je voudrai que quand le code est executé, mon application ce ferme ! J'ai fait une application tres simple, qui contient un champ texte, avec par defaut: http://www. et je tape la suite, donc quand je quitte ce champ avec la touche TAB, (je n'ai pas trouvé comment faire marcher avec la touche "entrée") donc apres appuie sur la touche TAB, j'ouvre le site demandé! C'est vachement pratique, car j'ai ce truc la sur un bouton de mon clavier logitech, mais pas sur mon portable, c'est pourquoi j'ai fait ça. Merci
Pour quitter un application VB, il faut décharger, et de-référencer les objets. Pour un application simple avec une seule feuille, un :
Unload Me
devrait suffire.
Pour valider avec la touche <Entré> tu peux utiliser :
Private Sub Text1_Keydown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then ShellExecute Me.hwnd, "open", Text1.Text, 0&, 0&, SW_SHOWMAXIMIZED KeyCode = 0 Unload Me End If End Sub
-- Cordialement,
Jacques.
Bonjour le Méruvien,
Le Méruvien a écrit :
Encore une petite question: la propriétée "quitter" n'existe -t-elle pas en
VB ?
je ne l'ai pas trouvée dans mon bouquin, je voudrai que quand le code est
executé, mon application ce ferme !
J'ai fait une application tres simple, qui contient un champ texte, avec par
defaut: http://www. et je tape la suite, donc quand je quitte ce champ avec
la touche TAB, (je n'ai pas trouvé comment faire marcher avec la touche
"entrée") donc apres appuie sur la touche TAB, j'ouvre le site demandé!
C'est vachement pratique, car j'ai ce truc la sur un bouton de mon clavier
logitech, mais pas sur mon portable, c'est pourquoi j'ai fait ça.
Merci
Pour quitter un application VB, il faut décharger, et de-référencer les
objets. Pour un application simple avec une seule feuille, un :
Unload Me
devrait suffire.
Pour valider avec la touche <Entré> tu peux utiliser :
Private Sub Text1_Keydown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
ShellExecute Me.hwnd, "open", Text1.Text, 0&, 0&, SW_SHOWMAXIMIZED
KeyCode = 0
Unload Me
End If
End Sub
Encore une petite question: la propriétée "quitter" n'existe -t-elle pas en VB ? je ne l'ai pas trouvée dans mon bouquin, je voudrai que quand le code est executé, mon application ce ferme ! J'ai fait une application tres simple, qui contient un champ texte, avec par defaut: http://www. et je tape la suite, donc quand je quitte ce champ avec la touche TAB, (je n'ai pas trouvé comment faire marcher avec la touche "entrée") donc apres appuie sur la touche TAB, j'ouvre le site demandé! C'est vachement pratique, car j'ai ce truc la sur un bouton de mon clavier logitech, mais pas sur mon portable, c'est pourquoi j'ai fait ça. Merci
Pour quitter un application VB, il faut décharger, et de-référencer les objets. Pour un application simple avec une seule feuille, un :
Unload Me
devrait suffire.
Pour valider avec la touche <Entré> tu peux utiliser :
Private Sub Text1_Keydown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then ShellExecute Me.hwnd, "open", Text1.Text, 0&, 0&, SW_SHOWMAXIMIZED KeyCode = 0 Unload Me End If End Sub
-- Cordialement,
Jacques.
Le Méruvien
Bonjour Jacques, avec l'instruction "unload me", j'ai un message d'erreur "impossible de decharger dans ce contexte" voila mon code: Private Sub Text1_Validate(Cancel As Boolean) ShellExecute Me.hwnd, "open", Text1.Text, 0&, 0&, SW_SHOWMAXIMIZED Unload Me End Sub
"Jacques93" a écrit dans le message de news: O$
Bonjour le Méruvien, Le Méruvien a écrit :
Encore une petite question: la propriétée "quitter" n'existe -t-elle pas en VB ? je ne l'ai pas trouvée dans mon bouquin, je voudrai que quand le code est executé, mon application ce ferme ! J'ai fait une application tres simple, qui contient un champ texte, avec par defaut: http://www. et je tape la suite, donc quand je quitte ce champ avec la touche TAB, (je n'ai pas trouvé comment faire marcher avec la touche "entrée") donc apres appuie sur la touche TAB, j'ouvre le site demandé! C'est vachement pratique, car j'ai ce truc la sur un bouton de mon clavier logitech, mais pas sur mon portable, c'est pourquoi j'ai fait ça. Merci
Pour quitter un application VB, il faut décharger, et de-référencer les objets. Pour un application simple avec une seule feuille, un :
Unload Me
devrait suffire.
Pour valider avec la touche <Entré> tu peux utiliser :
Private Sub Text1_Keydown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then ShellExecute Me.hwnd, "open", Text1.Text, 0&, 0&, SW_SHOWMAXIMIZED KeyCode = 0 Unload Me End If End Sub
-- Cordialement,
Jacques.
Bonjour Jacques, avec l'instruction "unload me", j'ai un message d'erreur
"impossible de decharger dans ce contexte"
voila mon code:
Private Sub Text1_Validate(Cancel As Boolean)
ShellExecute Me.hwnd, "open", Text1.Text, 0&, 0&, SW_SHOWMAXIMIZED
Unload Me
End Sub
"Jacques93" <jacques@Nospam> a écrit dans le message de news:
O$zuhtD0GHA.1252@TK2MSFTNGP04.phx.gbl...
Bonjour le Méruvien,
Le Méruvien a écrit :
Encore une petite question: la propriétée "quitter" n'existe -t-elle pas
en VB ?
je ne l'ai pas trouvée dans mon bouquin, je voudrai que quand le code est
executé, mon application ce ferme !
J'ai fait une application tres simple, qui contient un champ texte, avec
par defaut: http://www. et je tape la suite, donc quand je quitte ce
champ avec la touche TAB, (je n'ai pas trouvé comment faire marcher avec
la touche "entrée") donc apres appuie sur la touche TAB, j'ouvre le site
demandé!
C'est vachement pratique, car j'ai ce truc la sur un bouton de mon
clavier logitech, mais pas sur mon portable, c'est pourquoi j'ai fait ça.
Merci
Pour quitter un application VB, il faut décharger, et de-référencer les
objets. Pour un application simple avec une seule feuille, un :
Unload Me
devrait suffire.
Pour valider avec la touche <Entré> tu peux utiliser :
Private Sub Text1_Keydown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
ShellExecute Me.hwnd, "open", Text1.Text, 0&, 0&, SW_SHOWMAXIMIZED
KeyCode = 0
Unload Me
End If
End Sub
Bonjour Jacques, avec l'instruction "unload me", j'ai un message d'erreur "impossible de decharger dans ce contexte" voila mon code: Private Sub Text1_Validate(Cancel As Boolean) ShellExecute Me.hwnd, "open", Text1.Text, 0&, 0&, SW_SHOWMAXIMIZED Unload Me End Sub
"Jacques93" a écrit dans le message de news: O$
Bonjour le Méruvien, Le Méruvien a écrit :
Encore une petite question: la propriétée "quitter" n'existe -t-elle pas en VB ? je ne l'ai pas trouvée dans mon bouquin, je voudrai que quand le code est executé, mon application ce ferme ! J'ai fait une application tres simple, qui contient un champ texte, avec par defaut: http://www. et je tape la suite, donc quand je quitte ce champ avec la touche TAB, (je n'ai pas trouvé comment faire marcher avec la touche "entrée") donc apres appuie sur la touche TAB, j'ouvre le site demandé! C'est vachement pratique, car j'ai ce truc la sur un bouton de mon clavier logitech, mais pas sur mon portable, c'est pourquoi j'ai fait ça. Merci
Pour quitter un application VB, il faut décharger, et de-référencer les objets. Pour un application simple avec une seule feuille, un :
Unload Me
devrait suffire.
Pour valider avec la touche <Entré> tu peux utiliser :
Private Sub Text1_Keydown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then ShellExecute Me.hwnd, "open", Text1.Text, 0&, 0&, SW_SHOWMAXIMIZED KeyCode = 0 Unload Me End If End Sub
-- Cordialement,
Jacques.
Gloops
Le 05/09/2006 05:35, Le Méruvien a écrit :
Bonjour Jacques, avec l'instruction "unload me", j'ai un message d'erreur "impossible de decharger dans ce contexte" voila mon code: Private Sub Text1_Validate(Cancel As Boolean) ShellExecute Me.hwnd, "open", Text1.Text, 0&, 0&, SW_SHOWMAXIMIZED Unload Me End Sub
Hello, Permets-moi de te dire que ton code me laisse perplexe : tu veux agrandir ta fenêtre, ou du moins une partie, et en même temps la fermer ?
Si je suis perplexe, il se peut que le système aussi. Si il s'agit de commencer par agrandir pour décorer, puis ensuite fermer, essaie avec une temporisation entre les deux. Je ne sais pas si Sleep suffirait, sinon avec un Timer ...
Le 05/09/2006 05:35, Le Méruvien a écrit :
Bonjour Jacques, avec l'instruction "unload me", j'ai un message d'erreur
"impossible de decharger dans ce contexte"
voila mon code:
Private Sub Text1_Validate(Cancel As Boolean)
ShellExecute Me.hwnd, "open", Text1.Text, 0&, 0&, SW_SHOWMAXIMIZED
Unload Me
End Sub
Hello,
Permets-moi de te dire que ton code me laisse perplexe : tu veux
agrandir ta fenêtre, ou du moins une partie, et en même temps la fermer ?
Si je suis perplexe, il se peut que le système aussi.
Si il s'agit de commencer par agrandir pour décorer, puis ensuite
fermer, essaie avec une temporisation entre les deux. Je ne sais pas si
Sleep suffirait, sinon avec un Timer ...
Bonjour Jacques, avec l'instruction "unload me", j'ai un message d'erreur "impossible de decharger dans ce contexte" voila mon code: Private Sub Text1_Validate(Cancel As Boolean) ShellExecute Me.hwnd, "open", Text1.Text, 0&, 0&, SW_SHOWMAXIMIZED Unload Me End Sub
Hello, Permets-moi de te dire que ton code me laisse perplexe : tu veux agrandir ta fenêtre, ou du moins une partie, et en même temps la fermer ?
Si je suis perplexe, il se peut que le système aussi. Si il s'agit de commencer par agrandir pour décorer, puis ensuite fermer, essaie avec une temporisation entre les deux. Je ne sais pas si Sleep suffirait, sinon avec un Timer ...
Le Méruvien
Non, ma commande apres saisie de text1 ouvre le site que j'ai tapez dans text1, et donc maintenant je veut quitter VB.
"Gloops" a écrit dans le message de news:
Le 05/09/2006 05:35, Le Méruvien a écrit :
Bonjour Jacques, avec l'instruction "unload me", j'ai un message d'erreur "impossible de decharger dans ce contexte" voila mon code: Private Sub Text1_Validate(Cancel As Boolean) ShellExecute Me.hwnd, "open", Text1.Text, 0&, 0&, SW_SHOWMAXIMIZED Unload Me End Sub
Hello, Permets-moi de te dire que ton code me laisse perplexe : tu veux agrandir ta fenêtre, ou du moins une partie, et en même temps la fermer ?
Si je suis perplexe, il se peut que le système aussi. Si il s'agit de commencer par agrandir pour décorer, puis ensuite fermer, essaie avec une temporisation entre les deux. Je ne sais pas si Sleep suffirait, sinon avec un Timer ...
Non, ma commande apres saisie de text1 ouvre le site que j'ai tapez dans
text1, et donc maintenant je veut quitter VB.
"Gloops" <gloops@niark.invalid> a écrit dans le message de news:
ejrQDLN0GHA.1040@TK2MSFTNGP06.phx.gbl...
Le 05/09/2006 05:35, Le Méruvien a écrit :
Bonjour Jacques, avec l'instruction "unload me", j'ai un message d'erreur
"impossible de decharger dans ce contexte"
voila mon code:
Private Sub Text1_Validate(Cancel As Boolean)
ShellExecute Me.hwnd, "open", Text1.Text, 0&, 0&, SW_SHOWMAXIMIZED
Unload Me
End Sub
Hello,
Permets-moi de te dire que ton code me laisse perplexe : tu veux agrandir
ta fenêtre, ou du moins une partie, et en même temps la fermer ?
Si je suis perplexe, il se peut que le système aussi.
Si il s'agit de commencer par agrandir pour décorer, puis ensuite fermer,
essaie avec une temporisation entre les deux. Je ne sais pas si Sleep
suffirait, sinon avec un Timer ...
Non, ma commande apres saisie de text1 ouvre le site que j'ai tapez dans text1, et donc maintenant je veut quitter VB.
"Gloops" a écrit dans le message de news:
Le 05/09/2006 05:35, Le Méruvien a écrit :
Bonjour Jacques, avec l'instruction "unload me", j'ai un message d'erreur "impossible de decharger dans ce contexte" voila mon code: Private Sub Text1_Validate(Cancel As Boolean) ShellExecute Me.hwnd, "open", Text1.Text, 0&, 0&, SW_SHOWMAXIMIZED Unload Me End Sub
Hello, Permets-moi de te dire que ton code me laisse perplexe : tu veux agrandir ta fenêtre, ou du moins une partie, et en même temps la fermer ?
Si je suis perplexe, il se peut que le système aussi. Si il s'agit de commencer par agrandir pour décorer, puis ensuite fermer, essaie avec une temporisation entre les deux. Je ne sais pas si Sleep suffirait, sinon avec un Timer ...
Jacques93
Bonjour Le Méruvien, Le Méruvien a écrit :
Bonjour Jacques, avec l'instruction "unload me", j'ai un message d'erreur "impossible de decharger dans ce contexte" voila mon code: Private Sub Text1_Validate(Cancel As Boolean) ShellExecute Me.hwnd, "open", Text1.Text, 0&, 0&, SW_SHOWMAXIMIZED Unload Me End Sub
[...]
Private Sub Text1_Keydown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then ShellExecute Me.hwnd, "open", Text1.Text, 0&, 0&, SW_SHOWMAXIMIZED KeyCode = 0 Unload Me End If End Sub
Il n'est effectivement pas possible de fermer une feuille dans l'événement 'Validate' d'un contrôle, d'où l'utilisation de l'événement 'KeyDown'. Si tu veux valider par <Tab>, tu peux utiliser l'événement 'LostFocus' au lieu de 'Validate'
-- Cordialement,
Jacques.
Bonjour Le Méruvien,
Le Méruvien a écrit :
Bonjour Jacques, avec l'instruction "unload me", j'ai un message d'erreur
"impossible de decharger dans ce contexte"
voila mon code:
Private Sub Text1_Validate(Cancel As Boolean)
ShellExecute Me.hwnd, "open", Text1.Text, 0&, 0&, SW_SHOWMAXIMIZED
Unload Me
End Sub
[...]
Private Sub Text1_Keydown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
ShellExecute Me.hwnd, "open", Text1.Text, 0&, 0&, SW_SHOWMAXIMIZED
KeyCode = 0
Unload Me
End If
End Sub
Il n'est effectivement pas possible de fermer une feuille dans
l'événement 'Validate' d'un contrôle, d'où l'utilisation de l'événement
'KeyDown'. Si tu veux valider par <Tab>, tu peux utiliser l'événement
'LostFocus' au lieu de 'Validate'
Bonjour Jacques, avec l'instruction "unload me", j'ai un message d'erreur "impossible de decharger dans ce contexte" voila mon code: Private Sub Text1_Validate(Cancel As Boolean) ShellExecute Me.hwnd, "open", Text1.Text, 0&, 0&, SW_SHOWMAXIMIZED Unload Me End Sub
[...]
Private Sub Text1_Keydown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then ShellExecute Me.hwnd, "open", Text1.Text, 0&, 0&, SW_SHOWMAXIMIZED KeyCode = 0 Unload Me End If End Sub
Il n'est effectivement pas possible de fermer une feuille dans l'événement 'Validate' d'un contrôle, d'où l'utilisation de l'événement 'KeyDown'. Si tu veux valider par <Tab>, tu peux utiliser l'événement 'LostFocus' au lieu de 'Validate'
-- Cordialement,
Jacques.
Jacques93
Bonjour Gloops, Gloops a écrit :
Le 05/09/2006 05:35, Le Méruvien a écrit :
Bonjour Jacques, avec l'instruction "unload me", j'ai un message d'erreur "impossible de decharger dans ce contexte" voila mon code: Private Sub Text1_Validate(Cancel As Boolean) ShellExecute Me.hwnd, "open", Text1.Text, 0&, 0&, SW_SHOWMAXIMIZED Unload Me End Sub
Hello, Permets-moi de te dire que ton code me laisse perplexe : tu veux agrandir ta fenêtre, ou du moins une partie, et en même temps la fermer ?
Si je suis perplexe, il se peut que le système aussi. Si il s'agit de commencer par agrandir pour décorer, puis ensuite fermer, essaie avec une temporisation entre les deux. Je ne sais pas si Sleep suffirait, sinon avec un Timer ...
La fenêtre agrandie par SW_SHOWMAXIMIZED est celle lancée par ShellExecute, ici dans l'exemple le navigateur, mais cela pourrait être n'importe qu'elle fenêtre : celle de l'application liée au type de fichier à ouvrir. C'est totalement indépendant de la fenêtre VB qui le lance ;-)
-- Cordialement,
Jacques.
Bonjour Gloops,
Gloops a écrit :
Le 05/09/2006 05:35, Le Méruvien a écrit :
Bonjour Jacques, avec l'instruction "unload me", j'ai un message
d'erreur "impossible de decharger dans ce contexte"
voila mon code:
Private Sub Text1_Validate(Cancel As Boolean)
ShellExecute Me.hwnd, "open", Text1.Text, 0&, 0&, SW_SHOWMAXIMIZED
Unload Me
End Sub
Hello,
Permets-moi de te dire que ton code me laisse perplexe : tu veux
agrandir ta fenêtre, ou du moins une partie, et en même temps la fermer ?
Si je suis perplexe, il se peut que le système aussi.
Si il s'agit de commencer par agrandir pour décorer, puis ensuite
fermer, essaie avec une temporisation entre les deux. Je ne sais pas si
Sleep suffirait, sinon avec un Timer ...
La fenêtre agrandie par SW_SHOWMAXIMIZED est celle lancée par
ShellExecute, ici dans l'exemple le navigateur, mais cela pourrait être
n'importe qu'elle fenêtre : celle de l'application liée au type de
fichier à ouvrir. C'est totalement indépendant de la fenêtre VB qui le
lance ;-)
Bonjour Jacques, avec l'instruction "unload me", j'ai un message d'erreur "impossible de decharger dans ce contexte" voila mon code: Private Sub Text1_Validate(Cancel As Boolean) ShellExecute Me.hwnd, "open", Text1.Text, 0&, 0&, SW_SHOWMAXIMIZED Unload Me End Sub
Hello, Permets-moi de te dire que ton code me laisse perplexe : tu veux agrandir ta fenêtre, ou du moins une partie, et en même temps la fermer ?
Si je suis perplexe, il se peut que le système aussi. Si il s'agit de commencer par agrandir pour décorer, puis ensuite fermer, essaie avec une temporisation entre les deux. Je ne sais pas si Sleep suffirait, sinon avec un Timer ...
La fenêtre agrandie par SW_SHOWMAXIMIZED est celle lancée par ShellExecute, ici dans l'exemple le navigateur, mais cela pourrait être n'importe qu'elle fenêtre : celle de l'application liée au type de fichier à ouvrir. C'est totalement indépendant de la fenêtre VB qui le lance ;-)
-- Cordialement,
Jacques.
Gloops
Argh, on dirait que j'ai gloopsé alors ? C'est pourtant vrai que c'est le texte, qu'on prenait, et non le contrôle lui-même. Bon, une occasion de me taire, de perdue ... Merci d'avoir rectifié. ________________________________________ Le 05/09/2006 12:50, Jacques93 a écrit :
Bonjour Gloops, La fenêtre agrandie par SW_SHOWMAXIMIZED est celle lancée par ShellExecute, ici dans l'exemple le navigateur, mais cela pourrait être n'importe qu'elle fenêtre : celle de l'application liée au type de fichier à ouvrir. C'est totalement indépendant de la fenêtre VB qui le lance ;-)
Argh, on dirait que j'ai gloopsé alors ?
C'est pourtant vrai que c'est le texte, qu'on prenait, et non le
contrôle lui-même.
Bon, une occasion de me taire, de perdue ...
Merci d'avoir rectifié.
________________________________________
Le 05/09/2006 12:50, Jacques93 a écrit :
Bonjour Gloops,
La fenêtre agrandie par SW_SHOWMAXIMIZED est celle lancée par
ShellExecute, ici dans l'exemple le navigateur, mais cela pourrait être
n'importe qu'elle fenêtre : celle de l'application liée au type de
fichier à ouvrir. C'est totalement indépendant de la fenêtre VB qui le
lance ;-)
Argh, on dirait que j'ai gloopsé alors ? C'est pourtant vrai que c'est le texte, qu'on prenait, et non le contrôle lui-même. Bon, une occasion de me taire, de perdue ... Merci d'avoir rectifié. ________________________________________ Le 05/09/2006 12:50, Jacques93 a écrit :
Bonjour Gloops, La fenêtre agrandie par SW_SHOWMAXIMIZED est celle lancée par ShellExecute, ici dans l'exemple le navigateur, mais cela pourrait être n'importe qu'elle fenêtre : celle de l'application liée au type de fichier à ouvrir. C'est totalement indépendant de la fenêtre VB qui le lance ;-)
