Rrominet
Messages postés133Date d'inscriptionlundi 26 janvier 2009StatutMembreDernière intervention24 novembre 2014
-
16 sept. 2003 à 22:26
Mahdiiag
Messages postés34Date d'inscriptionlundi 9 mai 2011StatutMembreDernière intervention21 mai 2012
-
10 mai 2012 à 16:41
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
Mahdiiag
Messages postés34Date d'inscriptionlundi 9 mai 2011StatutMembreDernière intervention21 mai 2012 10 mai 2012 à 16:41
je veux savoir s'il y a une API permettant la modification des paramétres régional
denisprojet10
Messages postés2Date d'inscriptionlundi 14 août 2006StatutMembreDernière intervention 7 septembre 2008 19 sept. 2006 à 05:14
Mon commentaire n'est pas vraiment pour ce code , mais pour le site VBfrance , il y a de vrai petit trésor la dedans et de véritable petit génie j'ai été très impresionné félicitation
et que ce site dure encore bien longtemps c'est d'une aide incroyable encore félicitation a tout le monde .
lexsty
Messages postés169Date d'inscriptionsamedi 10 décembre 2005StatutMembreDernière intervention18 juin 2017 12 mai 2006 à 22:23
Bonjour et merci pour ton travail. C'est intéressant pour ceux qui comme moi veulent faire connaissance avec les API.
Ton Code fonctionne bien.
A plus.
CHARFEDDINE1205
Messages postés15Date d'inscriptionmardi 11 avril 2006StatutMembreDernière intervention 8 mai 2006 12 mai 2006 à 17:44
J'ai besoin de certains api qui permettent de récuperer les informations systeme d'un ordinateur tel que marque et numéro de série d'un disque dur,d'une carte réseau et d'un modem
pouvez vous m'aidez?
Public Declare Function FindExecutableA Lib "shell32.dll" (ByVal lpFile As String, ByVal lpdirectory As String, ByVal lpResult As String) As Long
Public Const MAX_FILENAME_LEN = 256
Sub LanceApplication(nomfic$)
' Lance une application à partir du nom de fichier passé en paramètre
' par exemple un fichier doc lance Word, un fichier htm lance Internet Explorer
Dim i%
Dim a
Dim = s2$, application$
s2$ = String(MAX_FILENAME_LEN, 32) & Chr$(0)
i% = FindExecutableA(nomfic$ & Chr$(0), vbNullString, s2)
If i% > 32 Then
application$ = Left$(s2$, InStr(s2$, Chr$(0)) - 1)
a = Shell(application$ & " " & Chr$(34) & nomfic$ & Chr$(34), 3)
End If
End Sub
cs_franckydeluka
Messages postés228Date d'inscriptionmardi 5 avril 2005StatutMembreDernière intervention 4 janvier 20081 20 avril 2005 à 16:24
c'est vraiment sympa de penser au débutant. 10/10 mon gars
oolnet
Messages postés4Date d'inscriptiondimanche 7 novembre 2004StatutMembreDernière intervention 5 juillet 2005 24 mars 2005 à 23:29
Je suis un âne j'ai mis l'API avec "GetTickCount", Y a rien qui tourne.... Merci d'avance,
kalymar
Messages postés4Date d'inscriptiondimanche 14 novembre 2004StatutMembreDernière intervention15 juillet 2006 5 mars 2005 à 17:25
Cela semble très bien mais je suis complètement nouveau avec les API.
Je programme en VBA et j'aurais besoin de connaître le pays/langue d'un usager de mon logiciel (Français (Canada), Anglais (Canada), Anglais (USA), etc.).
J'aurais aussi besoin de savoir le format de date courte de l'usager (yyyy-mm-dd, yy-mm-dd, dd-mm-yy, mm-dd-yy, mm-dd-yyyy, etc.)
Peux-tu m'aider avec un code précis ?
Merci
azerty99_71
Messages postés55Date d'inscriptionsamedi 4 septembre 2004StatutMembreDernière intervention 9 décembre 2005 11 janv. 2005 à 21:51
Très beau tuto bien commenté et tous !!!
10/10 ;)
++
marc660
Messages postés171Date d'inscriptionjeudi 15 avril 2004StatutMembreDernière intervention18 juillet 2007 7 janv. 2005 à 00:56
tres bien 10/10
fg85
Messages postés370Date d'inscriptiondimanche 28 mars 2004StatutMembreDernière intervention13 avril 2007 29 déc. 2004 à 11:35
Très bon merci
obyouadie
Messages postés1Date d'inscriptionvendredi 2 avril 2004StatutMembreDernière intervention 5 décembre 2004 5 déc. 2004 à 23:11
tres bien fait, c'est vraiment tres pratique 9/10
RACHID234
Messages postés15Date d'inscriptionvendredi 6 février 2004StatutMembreDernière intervention10 novembre 2005 12 mars 2004 à 18:11
Simple et efficace ! Merci beaucoup
10/10
peux tu rajouter une API qui modifie la couleur de TOOLBAR
JoVB
Messages postés87Date d'inscriptionlundi 4 novembre 2002StatutMembreDernière intervention10 mars 2009 27 févr. 2004 à 11:38
Super interresant (certaines API pas très utiles, mais la majorité sont bien choisies) !
Merci !
9/10
joelmarie
Messages postés27Date d'inscriptionvendredi 6 juin 2003StatutMembreDernière intervention12 juin 2008 22 déc. 2003 à 14:52
domage que lon ne puisse pas mettre 15/10 merci :-)
cs_leka
Messages postés19Date d'inscriptionjeudi 27 mars 2003StatutMembreDernière intervention17 juin 2004 12 déc. 2003 à 17:47
Simple et efficace ! Merci beaucoup.
cs_Bifrons
Messages postés44Date d'inscriptionjeudi 21 août 2003StatutMembreDernière intervention17 septembre 2005 15 oct. 2003 à 22:03
Coool ton tuto merci
ca va m'aider pour le suite ....
si tu en as d'autres comme ca n'hésites pas
10/10
pcpunch
Messages postés1243Date d'inscriptionmardi 7 mai 2002StatutMembreDernière intervention18 février 20195 28 sept. 2003 à 20:06
Golog---> tu as la critique facile, tes 2 sources ne sont pas trés convaincante!!!!
De plus donne moi un lien sur ce site avec qq une de ces apis et surtout les commentaires destiné au debutant avec (débutant avec les apis)
Golog
Messages postés224Date d'inscriptionjeudi 31 janvier 2002StatutMembreDernière intervention22 décembre 2009 28 sept. 2003 à 18:49
deja vu 1000 fois sur le site
loverjeckill
Messages postés6Date d'inscriptionsamedi 13 septembre 2003StatutMembreDernière intervention12 mai 2006 24 sept. 2003 à 13:14
Bravo pour ton api depuis que je suis passé a vb .net (1semain) je me sens tout perdu c vrai que je me suis jamais mi au api vb6 mais je savai kan meme faire plein de truc mais sous .net ARG. G eu k convertir ton projet un copie collé et pouf a part un truc ki é mal converti tout marche et ca m'aide bien donc bravo!
cs_liquide
Messages postés1016Date d'inscriptionsamedi 22 mars 2003StatutMembreDernière intervention24 juin 2008 17 sept. 2003 à 20:07
Voila, pour le trackmouseevent, je veux juste qu'il y est une action quand la souris quitte mon composant activex ca doit etre du "WM_LEAVER" ou qqe chose comme ca. Le pb c'est qu'une procedure dans un module doit etre declaré pour cette function, et elle se trouve forcement a l'exterieur de mon usercontrol, je dois par consequent rappeler le usercontrol_paint par expemple a partir de cette procedure "externe" de mon controle et ca je sais pas faire. Reinfield m'a donné un sacré coup de main mais il est trop balaise et je ne capte pas le quart de ce qu'il fait.Donc je cherche un moyen simple et efficace d'utiliser cette function. J"aibien essayerr le timer mais mon composant clignote trop quand je suis dessus. cette fonction dans un prjet exe marche tres bien (www.allapi.org) mais sur un usercontrol ca pose qqes pbs.
merci d'avance pour votre aide et notament a pcpunch
frawid
Messages postés47Date d'inscriptionsamedi 2 novembre 2002StatutMembreDernière intervention16 mars 2008 17 sept. 2003 à 17:34
Bonne présentation, simple et avec tallent. 10/10 merci
BruNews
Messages postés21040Date d'inscriptionjeudi 23 janvier 2003StatutModérateurDernière intervention21 août 2019 17 sept. 2003 à 11:53
QueryPerformanceFrequency et QueryPerformanceCounter pour des mesures precises.
pcpunch
Messages postés1243Date d'inscriptionmardi 7 mai 2002StatutMembreDernière intervention18 février 20195 17 sept. 2003 à 11:42
BruNews--->dsl tu as raison me suis tromper c des milisec!!! Mais moi je l'utilise pour relever un temp, je trouve que ca marche assez bien. SInon qu'utilise tu alors???
pcpunch
Messages postés1243Date d'inscriptionmardi 7 mai 2002StatutMembreDernière intervention18 février 20195 17 sept. 2003 à 11:39
Liquide--> Slt que veu tu faire exactement avec l'api TrackMouseEvent ? Donne un exemple explicite???
BruNews
Messages postés21040Date d'inscriptionjeudi 23 janvier 2003StatutModérateurDernière intervention21 août 2019 17 sept. 2003 à 09:25
Bon tutorial, cependant une petite rectif:
GetTickcount donne un temps en MILLI secondes, APPROXIMATIF car ce n'est pas une fonction temps reel et n'est donc pas indique pour mesurer des procedures.
cs_AbriBus
Messages postés492Date d'inscriptionjeudi 28 août 2003StatutMembreDernière intervention25 avril 20075 17 sept. 2003 à 08:55
Simple, efficace, commenté...Merci ;-)
10/10 (pour l'esprit de partege des connaissances)
cs_liquide
Messages postés1016Date d'inscriptionsamedi 22 mars 2003StatutMembreDernière intervention24 juin 2008 17 sept. 2003 à 07:10
Alalalala, enfin je vais pouvoir essayer de comprendre le fonctionnement des api par des choses simples et bien commentées, un grand merci
PS: aurais tu un exemple sur le "TrackMouseEvent", en utilisation dans un activex lorsque l'on quitte ce controle, la fonction est celle-ci :Declare Function TrackMouseEvent Lib "user32" (lpEventTrack As TRACKMOUSEEVENTTYPE) As Long.J'ai bien essayé avec un exemple mais manifestement celui-ci est encore trop compliqué pour moi.
merci d'avance
Tilois
Messages postés721Date d'inscriptiondimanche 10 juin 2001StatutMembreDernière intervention27 mars 20117 17 sept. 2003 à 06:53
Pour un débutant ca peut etre très interressant, surtout que le code est très commenté !
Chrystalyst
Messages postés14Date d'inscriptionjeudi 10 juillet 2003StatutMembreDernière intervention10 septembre 2003 16 sept. 2003 à 23:05
cé vré, sa peu etre utile pr kelk1 ki veut débuter ac les APIS :)
cé bien, lol
(par kontre, jé pas testé...)
Rrominet
Messages postés133Date d'inscriptionlundi 26 janvier 2009StatutMembreDernière intervention24 novembre 20141 16 sept. 2003 à 22:26
10 mai 2012 à 16:41
19 sept. 2006 à 05:14
et que ce site dure encore bien longtemps c'est d'une aide incroyable encore félicitation a tout le monde .
12 mai 2006 à 22:23
Ton Code fonctionne bien.
A plus.
12 mai 2006 à 17:44
pouvez vous m'aidez?
11 janv. 2006 à 22:17
Public Declare Function FindExecutableA Lib "shell32.dll" (ByVal lpFile As String, ByVal lpdirectory As String, ByVal lpResult As String) As Long
Public Const MAX_FILENAME_LEN = 256
Sub LanceApplication(nomfic$)
' Lance une application à partir du nom de fichier passé en paramètre
' par exemple un fichier doc lance Word, un fichier htm lance Internet Explorer
Dim i%
Dim a
Dim = s2$, application$
s2$ = String(MAX_FILENAME_LEN, 32) & Chr$(0)
i% = FindExecutableA(nomfic$ & Chr$(0), vbNullString, s2)
If i% > 32 Then
application$ = Left$(s2$, InStr(s2$, Chr$(0)) - 1)
a = Shell(application$ & " " & Chr$(34) & nomfic$ & Chr$(34), 3)
End If
End Sub
20 avril 2005 à 16:24
24 mars 2005 à 23:29
5 mars 2005 à 17:25
Je programme en VBA et j'aurais besoin de connaître le pays/langue d'un usager de mon logiciel (Français (Canada), Anglais (Canada), Anglais (USA), etc.).
J'aurais aussi besoin de savoir le format de date courte de l'usager (yyyy-mm-dd, yy-mm-dd, dd-mm-yy, mm-dd-yy, mm-dd-yyyy, etc.)
Peux-tu m'aider avec un code précis ?
Merci
11 janv. 2005 à 21:51
10/10 ;)
++
7 janv. 2005 à 00:56
29 déc. 2004 à 11:35
5 déc. 2004 à 23:11
12 mars 2004 à 18:11
10/10
peux tu rajouter une API qui modifie la couleur de TOOLBAR
27 févr. 2004 à 11:38
Merci !
9/10
22 déc. 2003 à 14:52
12 déc. 2003 à 17:47
15 oct. 2003 à 22:03
ca va m'aider pour le suite ....
si tu en as d'autres comme ca n'hésites pas
10/10
28 sept. 2003 à 20:06
De plus donne moi un lien sur ce site avec qq une de ces apis et surtout les commentaires destiné au debutant avec (débutant avec les apis)
28 sept. 2003 à 18:49
24 sept. 2003 à 13:14
17 sept. 2003 à 20:07
merci d'avance pour votre aide et notament a pcpunch
17 sept. 2003 à 17:34
17 sept. 2003 à 11:53
17 sept. 2003 à 11:42
17 sept. 2003 à 11:39
17 sept. 2003 à 09:25
GetTickcount donne un temps en MILLI secondes, APPROXIMATIF car ce n'est pas une fonction temps reel et n'est donc pas indique pour mesurer des procedures.
17 sept. 2003 à 08:55
10/10 (pour l'esprit de partege des connaissances)
17 sept. 2003 à 07:10
PS: aurais tu un exemple sur le "TrackMouseEvent", en utilisation dans un activex lorsque l'on quitte ce controle, la fonction est celle-ci :Declare Function TrackMouseEvent Lib "user32" (lpEventTrack As TRACKMOUSEEVENTTYPE) As Long.J'ai bien essayé avec un exemple mais manifestement celui-ci est encore trop compliqué pour moi.
merci d'avance
17 sept. 2003 à 06:53
16 sept. 2003 à 23:05
cé bien, lol
(par kontre, jé pas testé...)
16 sept. 2003 à 22:26
Merci !!