LE TROLL,
Merci pour l'exemple mais serait-il possible de m'envoyer la
source du Module1. En effet, tu as dû te planter dans le copier coller et le
fichier Module1.bas ne m'a pas été envoyé. Il me manque donc des choses pour
tester.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
LE TROLL
Salut,
Ben si, t'as mal vu (ou ça coince), j'ai envoyé le dudule et de toute façon t'as le code dans le message de réponse, sous le code de la form...
Qu'en penses-tu ? ---------
"Informatique_LIDV" a écrit dans le message de news: e97jRet$
LE TROLL, Merci pour l'exemple mais serait-il possible de m'envoyer la source du Module1. En effet, tu as dû te planter dans le copier coller et le fichier Module1.bas ne m'a pas été envoyé. Il me manque donc des choses pour tester.
Merci d'avance
Laëtitia
Salut,
Ben si, t'as mal vu (ou ça coince), j'ai envoyé le dudule et de toute
façon t'as le code dans le message de réponse, sous le code de la form...
Qu'en penses-tu ?
---------
"Informatique_LIDV" <alain.souniou.pasdepub@wanadoo.fr> a écrit dans le
message de news: e97jRet$EHA.3028@TK2MSFTNGP10.phx.gbl...
LE TROLL,
Merci pour l'exemple mais serait-il possible de m'envoyer la
source du Module1. En effet, tu as dû te planter dans le copier coller et
le
fichier Module1.bas ne m'a pas été envoyé. Il me manque donc des choses
pour
tester.
Ben si, t'as mal vu (ou ça coince), j'ai envoyé le dudule et de toute façon t'as le code dans le message de réponse, sous le code de la form...
Qu'en penses-tu ? ---------
"Informatique_LIDV" a écrit dans le message de news: e97jRet$
LE TROLL, Merci pour l'exemple mais serait-il possible de m'envoyer la source du Module1. En effet, tu as dû te planter dans le copier coller et le fichier Module1.bas ne m'a pas été envoyé. Il me manque donc des choses pour tester.
Merci d'avance
Laëtitia
Informatique_LIDV
Pour la fonction "GetWindowsList", je n'ai pas de code ???
Merci
Laëtitia
"LE TROLL" <le a écrit dans le message de news: OVLTX$t$
Salut,
Ben si, t'as mal vu (ou ça coince), j'ai envoyé le dudule et de toute façon t'as le code dans le message de réponse, sous le code de la form...
Qu'en penses-tu ? ---------
"Informatique_LIDV" a écrit dans le message de news: e97jRet$
LE TROLL, Merci pour l'exemple mais serait-il possible de m'envoyer la source du Module1. En effet, tu as dû te planter dans le copier coller et le fichier Module1.bas ne m'a pas été envoyé. Il me manque donc des choses pour tester.
Merci d'avance
Laëtitia
Pour la fonction "GetWindowsList", je n'ai pas de code ???
Merci
Laëtitia
"LE TROLL" <le troll@paris.fr> a écrit dans le message de news:
OVLTX$t$EHA.1396@tk2msftngp13.phx.gbl...
Salut,
Ben si, t'as mal vu (ou ça coince), j'ai envoyé le dudule et de toute
façon t'as le code dans le message de réponse, sous le code de la form...
Qu'en penses-tu ?
---------
"Informatique_LIDV" <alain.souniou.pasdepub@wanadoo.fr> a écrit dans le
message de news: e97jRet$EHA.3028@TK2MSFTNGP10.phx.gbl...
LE TROLL,
Merci pour l'exemple mais serait-il possible de m'envoyer la
source du Module1. En effet, tu as dû te planter dans le copier coller et
le
fichier Module1.bas ne m'a pas été envoyé. Il me manque donc des choses
pour
tester.
Pour la fonction "GetWindowsList", je n'ai pas de code ???
Merci
Laëtitia
"LE TROLL" <le a écrit dans le message de news: OVLTX$t$
Salut,
Ben si, t'as mal vu (ou ça coince), j'ai envoyé le dudule et de toute façon t'as le code dans le message de réponse, sous le code de la form...
Qu'en penses-tu ? ---------
"Informatique_LIDV" a écrit dans le message de news: e97jRet$
LE TROLL, Merci pour l'exemple mais serait-il possible de m'envoyer la source du Module1. En effet, tu as dû te planter dans le copier coller et le fichier Module1.bas ne m'a pas été envoyé. Il me manque donc des choses pour tester.
Merci d'avance
Laëtitia
LE TROLL
Salut,
Voici ce que contient le module1:
' module 1 : FermerProg ' Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _ (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long ' Public Declare Function EnumWindows Lib "user32" _ (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long '
Public Function GetWindowsList() Dim lgRep As Long ' stGetWindowsList = vbNullString lgRep = EnumWindows(AddressOf EnumWindowsProc, 0) End Function
Public Function EnumWindowsProc(ByVal lgHwnd As Long, ByVal lgParam As Long) As Long Dim stTmp As String, lgTmp As Long, lgRet As Long ' stTmp = Space$(120) lgTmp = 119 lgRet = GetWindowText(lgHwnd, stTmp, lgTmp) If Len(stTmp) > 1 And lgRet <> 0 Then Form1.List1.AddItem Format(lgHwnd, "00000000") & " : " & stTmp End If EnumWindowsProc = 1 End Function --------------------
"Informatique_LIDV" a écrit dans le message de news: %23BHAFJu$
Pour la fonction "GetWindowsList", je n'ai pas de code ???
Merci
Laëtitia
"LE TROLL" <le a écrit dans le message de news: OVLTX$t$
Salut,
Ben si, t'as mal vu (ou ça coince), j'ai envoyé le dudule et de toute façon t'as le code dans le message de réponse, sous le code de la form...
Qu'en penses-tu ? ---------
"Informatique_LIDV" a écrit dans le message de news: e97jRet$
LE TROLL, Merci pour l'exemple mais serait-il possible de m'envoyer la source du Module1. En effet, tu as dû te planter dans le copier coller et le fichier Module1.bas ne m'a pas été envoyé. Il me manque donc des choses pour tester.
Merci d'avance
Laëtitia
Salut,
Voici ce que contient le module1:
' module 1 : FermerProg
'
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA"
_
(ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As
Long
'
Public Declare Function EnumWindows Lib "user32" _
(ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
'
Public Function GetWindowsList()
Dim lgRep As Long
'
stGetWindowsList = vbNullString
lgRep = EnumWindows(AddressOf EnumWindowsProc, 0)
End Function
Public Function EnumWindowsProc(ByVal lgHwnd As Long, ByVal lgParam As Long)
As Long
Dim stTmp As String, lgTmp As Long, lgRet As Long
'
stTmp = Space$(120)
lgTmp = 119
lgRet = GetWindowText(lgHwnd, stTmp, lgTmp)
If Len(stTmp) > 1 And lgRet <> 0 Then
Form1.List1.AddItem Format(lgHwnd, "00000000") & " : " & stTmp
End If
EnumWindowsProc = 1
End Function
--------------------
"Informatique_LIDV" <alain.souniou.pasdepub@wanadoo.fr> a écrit dans le
message de news: %23BHAFJu$EHA.2568@TK2MSFTNGP11.phx.gbl...
Pour la fonction "GetWindowsList", je n'ai pas de code ???
Merci
Laëtitia
"LE TROLL" <le troll@paris.fr> a écrit dans le message de news:
OVLTX$t$EHA.1396@tk2msftngp13.phx.gbl...
Salut,
Ben si, t'as mal vu (ou ça coince), j'ai envoyé le dudule et de toute
façon t'as le code dans le message de réponse, sous le code de la form...
Qu'en penses-tu ?
---------
"Informatique_LIDV" <alain.souniou.pasdepub@wanadoo.fr> a écrit dans le
message de news: e97jRet$EHA.3028@TK2MSFTNGP10.phx.gbl...
LE TROLL,
Merci pour l'exemple mais serait-il possible de m'envoyer la
source du Module1. En effet, tu as dû te planter dans le copier coller
et le
fichier Module1.bas ne m'a pas été envoyé. Il me manque donc des choses
pour
tester.
' module 1 : FermerProg ' Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _ (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long ' Public Declare Function EnumWindows Lib "user32" _ (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long '
Public Function GetWindowsList() Dim lgRep As Long ' stGetWindowsList = vbNullString lgRep = EnumWindows(AddressOf EnumWindowsProc, 0) End Function
Public Function EnumWindowsProc(ByVal lgHwnd As Long, ByVal lgParam As Long) As Long Dim stTmp As String, lgTmp As Long, lgRet As Long ' stTmp = Space$(120) lgTmp = 119 lgRet = GetWindowText(lgHwnd, stTmp, lgTmp) If Len(stTmp) > 1 And lgRet <> 0 Then Form1.List1.AddItem Format(lgHwnd, "00000000") & " : " & stTmp End If EnumWindowsProc = 1 End Function --------------------
"Informatique_LIDV" a écrit dans le message de news: %23BHAFJu$
Pour la fonction "GetWindowsList", je n'ai pas de code ???
Merci
Laëtitia
"LE TROLL" <le a écrit dans le message de news: OVLTX$t$
Salut,
Ben si, t'as mal vu (ou ça coince), j'ai envoyé le dudule et de toute façon t'as le code dans le message de réponse, sous le code de la form...
Qu'en penses-tu ? ---------
"Informatique_LIDV" a écrit dans le message de news: e97jRet$
LE TROLL, Merci pour l'exemple mais serait-il possible de m'envoyer la source du Module1. En effet, tu as dû te planter dans le copier coller et le fichier Module1.bas ne m'a pas été envoyé. Il me manque donc des choses pour tester.
Merci d'avance
Laëtitia
LE TROLL
Fait! Je t'ai envoyé le code, mais j'ai aussi mis sur le forum les code dans ses supports à charger en fichier (vbp, form1, module1), n'as-tu pas vu, vois le trombone avec le message = à charger ??? --------
"Informatique_LIDV" a écrit dans le message de news: %23BHAFJu$
Pour la fonction "GetWindowsList", je n'ai pas de code ???
Merci
Laëtitia
"LE TROLL" <le a écrit dans le message de news: OVLTX$t$
Salut,
Ben si, t'as mal vu (ou ça coince), j'ai envoyé le dudule et de toute façon t'as le code dans le message de réponse, sous le code de la form...
Qu'en penses-tu ? ---------
"Informatique_LIDV" a écrit dans le message de news: e97jRet$
LE TROLL, Merci pour l'exemple mais serait-il possible de m'envoyer la source du Module1. En effet, tu as dû te planter dans le copier coller et le fichier Module1.bas ne m'a pas été envoyé. Il me manque donc des choses pour tester.
Merci d'avance
Laëtitia
Fait!
Je t'ai envoyé le code, mais j'ai aussi mis sur le forum les code dans ses
supports à charger en fichier (vbp, form1, module1), n'as-tu pas vu, vois le
trombone avec le message = à charger ???
--------
"Informatique_LIDV" <alain.souniou.pasdepub@wanadoo.fr> a écrit dans le
message de news: %23BHAFJu$EHA.2568@TK2MSFTNGP11.phx.gbl...
Pour la fonction "GetWindowsList", je n'ai pas de code ???
Merci
Laëtitia
"LE TROLL" <le troll@paris.fr> a écrit dans le message de news:
OVLTX$t$EHA.1396@tk2msftngp13.phx.gbl...
Salut,
Ben si, t'as mal vu (ou ça coince), j'ai envoyé le dudule et de toute
façon t'as le code dans le message de réponse, sous le code de la form...
Qu'en penses-tu ?
---------
"Informatique_LIDV" <alain.souniou.pasdepub@wanadoo.fr> a écrit dans le
message de news: e97jRet$EHA.3028@TK2MSFTNGP10.phx.gbl...
LE TROLL,
Merci pour l'exemple mais serait-il possible de m'envoyer la
source du Module1. En effet, tu as dû te planter dans le copier coller
et le
fichier Module1.bas ne m'a pas été envoyé. Il me manque donc des choses
pour
tester.
Fait! Je t'ai envoyé le code, mais j'ai aussi mis sur le forum les code dans ses supports à charger en fichier (vbp, form1, module1), n'as-tu pas vu, vois le trombone avec le message = à charger ??? --------
"Informatique_LIDV" a écrit dans le message de news: %23BHAFJu$
Pour la fonction "GetWindowsList", je n'ai pas de code ???
Merci
Laëtitia
"LE TROLL" <le a écrit dans le message de news: OVLTX$t$
Salut,
Ben si, t'as mal vu (ou ça coince), j'ai envoyé le dudule et de toute façon t'as le code dans le message de réponse, sous le code de la form...
Qu'en penses-tu ? ---------
"Informatique_LIDV" a écrit dans le message de news: e97jRet$
LE TROLL, Merci pour l'exemple mais serait-il possible de m'envoyer la source du Module1. En effet, tu as dû te planter dans le copier coller et le fichier Module1.bas ne m'a pas été envoyé. Il me manque donc des choses pour tester.
