Bonjour,
Comment afficher au 1er plan (mais PAS toujours à l'écran), je fais
ceci :
Depuis l'exe je lance un site avec l'explorer dans le load, puis je lui
demande de s'afficher au 1er plan (enfin, je crois), dans l'activate, mais
ça ne marche pas le site de l'explorer recouvre le programme GRRrrrrrr...
:o)
ShellExecute Me.hwnd, "Open", Site, "", App.Path, 1
End Sub ' load
Sub Form_Activate()
Picture1(240).SetFocus
'Form1.Show ???
' Form1.SetFocus ??? MARCHE PAS ???
' Me.SetFocus ???
End Sub
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
Bonjour,
Comment afficher au 1er plan (mais PAS toujours à l'écran), je fais
ceci :
Depuis l'exe je lance un site avec l'explorer dans le load, puis je lui
demande de s'afficher au 1er plan (enfin, je crois), dans l'activate, mais
ça ne marche pas le site de l'explorer recouvre le programme GRRrrrrrr...
:o)
ShellExecute Me.hwnd, "Open", Site, "", App.Path, 1
End Sub ' load
Sub Form_Activate()
Picture1(240).SetFocus
'Form1.Show ???
' Form1.SetFocus ??? MARCHE PAS ???
' Me.SetFocus ???
End Sub
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
Bonjour,
Comment afficher au 1er plan (mais PAS toujours à l'écran), je fais
ceci :
Depuis l'exe je lance un site avec l'explorer dans le load, puis je lui
demande de s'afficher au 1er plan (enfin, je crois), dans l'activate, mais
ça ne marche pas le site de l'explorer recouvre le programme GRRrrrrrr...
:o)
ShellExecute Me.hwnd, "Open", Site, "", App.Path, 1
End Sub ' load
Sub Form_Activate()
Picture1(240).SetFocus
'Form1.Show ???
' Form1.SetFocus ??? MARCHE PAS ???
' Me.SetFocus ???
End Sub
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
Bonjour,
Form1.ZOrder
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
Cette page est transmise avec des électrons 100% recyclés.
"LE TROLL" <le a écrit dans le message de news:Bonjour,
Comment afficher au 1er plan (mais PAS toujours à l'écran), je fais
ceci :
Depuis l'exe je lance un site avec l'explorer dans le load, puis je lui
demande de s'afficher au 1er plan (enfin, je crois), dans l'activate,
mais ça ne marche pas le site de l'explorer recouvre le programme
GRRrrrrrr... :o)
ShellExecute Me.hwnd, "Open", Site, "", App.Path, 1
End Sub ' load
Sub Form_Activate()
Picture1(240).SetFocus
'Form1.Show ???
' Form1.SetFocus ??? MARCHE PAS ???
' Me.SetFocus ???
End Sub
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
Bonjour,
Form1.ZOrder
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
Cette page est transmise avec des électrons 100% recyclés.
"LE TROLL" <le troll@enfer.fr> a écrit dans le message de news:
F4150223-B3FA-4FDF-96FC-6EAE3D931060@microsoft.com...
Bonjour,
Comment afficher au 1er plan (mais PAS toujours à l'écran), je fais
ceci :
Depuis l'exe je lance un site avec l'explorer dans le load, puis je lui
demande de s'afficher au 1er plan (enfin, je crois), dans l'activate,
mais ça ne marche pas le site de l'explorer recouvre le programme
GRRrrrrrr... :o)
ShellExecute Me.hwnd, "Open", Site, "", App.Path, 1
End Sub ' load
Sub Form_Activate()
Picture1(240).SetFocus
'Form1.Show ???
' Form1.SetFocus ??? MARCHE PAS ???
' Me.SetFocus ???
End Sub
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
Bonjour,
Form1.ZOrder
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
Cette page est transmise avec des électrons 100% recyclés.
"LE TROLL" <le a écrit dans le message de news:Bonjour,
Comment afficher au 1er plan (mais PAS toujours à l'écran), je fais
ceci :
Depuis l'exe je lance un site avec l'explorer dans le load, puis je lui
demande de s'afficher au 1er plan (enfin, je crois), dans l'activate,
mais ça ne marche pas le site de l'explorer recouvre le programme
GRRrrrrrr... :o)
ShellExecute Me.hwnd, "Open", Site, "", App.Path, 1
End Sub ' load
Sub Form_Activate()
Picture1(240).SetFocus
'Form1.Show ???
' Form1.SetFocus ??? MARCHE PAS ???
' Me.SetFocus ???
End Sub
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
Bonjour,
Comment afficher au 1er plan (mais PAS toujours à l'écran), je fais ceci
:
Depuis l'exe je lance un site avec l'explorer dans le load, puis je lui
demande de s'afficher au 1er plan (enfin, je crois), dans l'activate, mais ça
ne marche pas le site de l'explorer recouvre le programme GRRrrrrrr... :o)
Bonjour,
Comment afficher au 1er plan (mais PAS toujours à l'écran), je fais ceci
:
Depuis l'exe je lance un site avec l'explorer dans le load, puis je lui
demande de s'afficher au 1er plan (enfin, je crois), dans l'activate, mais ça
ne marche pas le site de l'explorer recouvre le programme GRRrrrrrr... :o)
Bonjour,
Comment afficher au 1er plan (mais PAS toujours à l'écran), je fais ceci
:
Depuis l'exe je lance un site avec l'explorer dans le load, puis je lui
demande de s'afficher au 1er plan (enfin, je crois), dans l'activate, mais ça
ne marche pas le site de l'explorer recouvre le programme GRRrrrrrr... :o)
LE TROLL a couché sur son écran :Bonjour,
Comment afficher au 1er plan (mais PAS toujours à l'écran), je fais
ceci :
Depuis l'exe je lance un site avec l'explorer dans le load, puis je lui
demande de s'afficher au 1er plan (enfin, je crois), dans l'activate,
mais ça ne marche pas le site de l'explorer recouvre le programme
GRRrrrrrr... :o)
C'est du chinois ta façon de t'expliquer.
La commande "show" sans aucun argument met la form au premier plan.
Tu peux aussi fouiller dans les codes en recherchant always on top avec
gogole. Always on top met en permanence la form au premier plan.
http://www.google.fr/search?hl=fr&q=always+on+top+vb6&btnG=Rechercher&meta >
LE TROLL a couché sur son écran :
Bonjour,
Comment afficher au 1er plan (mais PAS toujours à l'écran), je fais
ceci :
Depuis l'exe je lance un site avec l'explorer dans le load, puis je lui
demande de s'afficher au 1er plan (enfin, je crois), dans l'activate,
mais ça ne marche pas le site de l'explorer recouvre le programme
GRRrrrrrr... :o)
C'est du chinois ta façon de t'expliquer.
La commande "show" sans aucun argument met la form au premier plan.
Tu peux aussi fouiller dans les codes en recherchant always on top avec
gogole. Always on top met en permanence la form au premier plan.
http://www.google.fr/search?hl=fr&q=always+on+top+vb6&btnG=Rechercher&meta >
LE TROLL a couché sur son écran :Bonjour,
Comment afficher au 1er plan (mais PAS toujours à l'écran), je fais
ceci :
Depuis l'exe je lance un site avec l'explorer dans le load, puis je lui
demande de s'afficher au 1er plan (enfin, je crois), dans l'activate,
mais ça ne marche pas le site de l'explorer recouvre le programme
GRRrrrrrr... :o)
C'est du chinois ta façon de t'expliquer.
La commande "show" sans aucun argument met la form au premier plan.
Tu peux aussi fouiller dans les codes en recherchant always on top avec
gogole. Always on top met en permanence la form au premier plan.
http://www.google.fr/search?hl=fr&q=always+on+top+vb6&btnG=Rechercher&meta >
Bonjour,
Merci de ta réponse, voici le code qui sera moins chinois :
-------------------------
Dim Site As String
Sub Form_Load()
Site = "http://irolog.free.fr"
ShellExecute Me.hwnd, "Open", Site, "", App.Path, 1
End Sub
Sub Form_Activate()
Me.Show
End Sub
-------------------------
Tu peux l'essayer, et tu verras que le site appelé par le programme via
l'exe dans le Load est au dessus du programme qui l'appelle, même si dans
l'Activate (Me.Show) je demande que le programme soit au dessus ?
Et bien moi je voudrais que le programme qui appelle le site soit au 1er
plan ?
Bonjour,
Merci de ta réponse, voici le code qui sera moins chinois :
-------------------------
Dim Site As String
Sub Form_Load()
Site = "http://irolog.free.fr"
ShellExecute Me.hwnd, "Open", Site, "", App.Path, 1
End Sub
Sub Form_Activate()
Me.Show
End Sub
-------------------------
Tu peux l'essayer, et tu verras que le site appelé par le programme via
l'exe dans le Load est au dessus du programme qui l'appelle, même si dans
l'Activate (Me.Show) je demande que le programme soit au dessus ?
Et bien moi je voudrais que le programme qui appelle le site soit au 1er
plan ?
Bonjour,
Merci de ta réponse, voici le code qui sera moins chinois :
-------------------------
Dim Site As String
Sub Form_Load()
Site = "http://irolog.free.fr"
ShellExecute Me.hwnd, "Open", Site, "", App.Path, 1
End Sub
Sub Form_Activate()
Me.Show
End Sub
-------------------------
Tu peux l'essayer, et tu verras que le site appelé par le programme via
l'exe dans le Load est au dessus du programme qui l'appelle, même si dans
l'Activate (Me.Show) je demande que le programme soit au dessus ?
Et bien moi je voudrais que le programme qui appelle le site soit au 1er
plan ?
Dans ce cas, entre autres solutions, tu peux (aussi) faire:
Dans ce cas, entre autres solutions, tu peux (aussi) faire:
Dans ce cas, entre autres solutions, tu peux (aussi) faire:
AT a couché sur son écran :
Dans ce cas, entre autres solutions, tu peux (aussi) faire:
Ajouter un timer sur ta form, donner un interval à 5000 et le mettre
enable sur false.
Site = "http://irolog.free.fr"
ShellExecute Me.hwnd, "Open", Site, "", App.Path, 1
timer1.enable = true
et mettre show dans la procedure timer, puis timer1.enableúlse.
AT a couché sur son écran :
Dans ce cas, entre autres solutions, tu peux (aussi) faire:
Ajouter un timer sur ta form, donner un interval à 5000 et le mettre
enable sur false.
Site = "http://irolog.free.fr"
ShellExecute Me.hwnd, "Open", Site, "", App.Path, 1
timer1.enable = true
et mettre show dans la procedure timer, puis timer1.enableúlse.
AT a couché sur son écran :
Dans ce cas, entre autres solutions, tu peux (aussi) faire:
Ajouter un timer sur ta form, donner un interval à 5000 et le mettre
enable sur false.
Site = "http://irolog.free.fr"
ShellExecute Me.hwnd, "Open", Site, "", App.Path, 1
timer1.enable = true
et mettre show dans la procedure timer, puis timer1.enableúlse.
Bonjour,
Merci de ta réponse, mais ça ne marche pas davantage !
Déjà toi tu lances l'explorer, c'est un logiciel PC, évidemment que
ça marche, mais ce n'est absolument pas l'exemple que j'ai donné (moi
j'appelle un site) !
D'autre part l'API ShellExecute je crois accepte tous les explorer,
alors que Shelle n'accepte qu'InternetExplorer il me semble...
Bonjour,
Merci de ta réponse, mais ça ne marche pas davantage !
Déjà toi tu lances l'explorer, c'est un logiciel PC, évidemment que
ça marche, mais ce n'est absolument pas l'exemple que j'ai donné (moi
j'appelle un site) !
D'autre part l'API ShellExecute je crois accepte tous les explorer,
alors que Shelle n'accepte qu'InternetExplorer il me semble...
Bonjour,
Merci de ta réponse, mais ça ne marche pas davantage !
Déjà toi tu lances l'explorer, c'est un logiciel PC, évidemment que
ça marche, mais ce n'est absolument pas l'exemple que j'ai donné (moi
j'appelle un site) !
D'autre part l'API ShellExecute je crois accepte tous les explorer,
alors que Shelle n'accepte qu'InternetExplorer il me semble...
LE TROLL a écrit :Bonjour,
Merci de ta réponse, mais ça ne marche pas davantage !
Déjà toi tu lances l'explorer, c'est un logiciel PC, évidemment que
ça marche, mais ce n'est absolument pas l'exemple que j'ai donné (moi
j'appelle un site) !
D'autre part l'API ShellExecute je crois accepte tous les explorer,
alors que Shelle n'accepte qu'InternetExplorer il me semble...
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 Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As
Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Load()
Dim Site As String
Site = "http://irolog.free.fr"
ShellExecute Me.hWnd, "Open", Site, "", App.Path, 1
Sleep 500
SetForegroundWindow Me.hWnd
End Sub
LE TROLL a écrit :
Bonjour,
Merci de ta réponse, mais ça ne marche pas davantage !
Déjà toi tu lances l'explorer, c'est un logiciel PC, évidemment que
ça marche, mais ce n'est absolument pas l'exemple que j'ai donné (moi
j'appelle un site) !
D'autre part l'API ShellExecute je crois accepte tous les explorer,
alors que Shelle n'accepte qu'InternetExplorer il me semble...
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 Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As
Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Load()
Dim Site As String
Site = "http://irolog.free.fr"
ShellExecute Me.hWnd, "Open", Site, "", App.Path, 1
Sleep 500
SetForegroundWindow Me.hWnd
End Sub
LE TROLL a écrit :Bonjour,
Merci de ta réponse, mais ça ne marche pas davantage !
Déjà toi tu lances l'explorer, c'est un logiciel PC, évidemment que
ça marche, mais ce n'est absolument pas l'exemple que j'ai donné (moi
j'appelle un site) !
D'autre part l'API ShellExecute je crois accepte tous les explorer,
alors que Shelle n'accepte qu'InternetExplorer il me semble...
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 Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As
Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Load()
Dim Site As String
Site = "http://irolog.free.fr"
ShellExecute Me.hWnd, "Open", Site, "", App.Path, 1
Sleep 500
SetForegroundWindow Me.hWnd
End Sub
AT a couché sur son écran :
Dans ce cas, entre autres solutions, tu peux (aussi) faire:
Ajouter un timer sur ta form, donner un interval à 5000 et le mettre
enable sur false.
Site = "http://irolog.free.fr"
ShellExecute Me.hwnd, "Open", Site, "", App.Path, 1
timer1.enable = true
et mettre show dans la procedure timer, puis timer1.enableúlse.
AT a couché sur son écran :
Dans ce cas, entre autres solutions, tu peux (aussi) faire:
Ajouter un timer sur ta form, donner un interval à 5000 et le mettre
enable sur false.
Site = "http://irolog.free.fr"
ShellExecute Me.hwnd, "Open", Site, "", App.Path, 1
timer1.enable = true
et mettre show dans la procedure timer, puis timer1.enableúlse.
AT a couché sur son écran :
Dans ce cas, entre autres solutions, tu peux (aussi) faire:
Ajouter un timer sur ta form, donner un interval à 5000 et le mettre
enable sur false.
Site = "http://irolog.free.fr"
ShellExecute Me.hwnd, "Open", Site, "", App.Path, 1
timer1.enable = true
et mettre show dans la procedure timer, puis timer1.enableúlse.