ouvrir un site

Bon, en claire, quesque je dois faire pour que le programme VB ce ferme une
fois ma fenetre ouverte avec le code ci-dessous ?
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
End If
End Sub





"Jacques93" <jacques@Nospam> a écrit dans le message de news:
%23tCL4ZN0GHA.3908@TK2MSFTNGP05.phx.gbl...

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 :

Bon, en claire, quesque je dois faire pour que le programme VB ce ferme une
fois ma fenetre ouverte avec le code ci-dessous ?
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
End If
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

Ca devrait tourner, chez moi c'est le cas.

--
Cordialement,

Jacques.

Ça, ça marche, testé:

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
'
Sub Form_Load()
Text1 = "http://irolog.free.fr/"
End Sub
'
Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
ShellExecute Me.hwnd, "open", Text1, 0&, 0&, SW_SHOWMAXIMIZED
KeyCode = 0
Unload Form1
End
End If
End Sub

MAIS !!! Ce n'est pas dans les principe de Windows de valider par <rc> dans
une boîte de saisie, on met plutôt un bouton :o)
--
Site ROMANS édités
http://www.manuscritdepot.com/a.joseph-attila-pusztay.1.htm
Site LOGICIELS
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
------------------------------------------------------------------------------------
"Le Méruvien" <Roger@free.fr> a écrit dans le message de news:
44fd71d6$0$10060$636a55ce@news.free.fr...

Bon, en claire, quesque je dois faire pour que le programme VB ce ferme
une fois ma fenetre ouverte avec le code ci-dessous ?
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
End If
End Sub





"Jacques93" <jacques@Nospam> a écrit dans le message de news:
%23tCL4ZN0GHA.3908@TK2MSFTNGP05.phx.gbl...

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.