cs_Multiprise
Messages postés63Date d'inscriptionjeudi 4 décembre 2003StatutMembreDernière intervention23 avril 2013 16 oct. 2012 à 08:08
Source intéressante claire et propre.
L'interface est un peu tapageuse mais c'est un exemple.
Un petit reproche, il est inutile de charger une 'brouette' de composants (contrôls) s'ils ne sont pas utilisés, je sais qu'il est possible de ne pas en tenir compte à la compilation, mais il est préférable de ne pas surcharger la boîte à outils car au chargement du projet, si un ocx ou une dll n'a pas été trouvé, un message d'erreur apparaît ce qui peu être déroutant pour un non initié.
Quant au call d'une fonction ou procédure, il ne me parraît pas déplacé ou inutile, l'appel étant dans ce cas identique au format cible ce qui n'est pas plus mal pour la compréhension du code, tout le monde n'est pas expert et un débutant s'y retrouvera plus facilement.
Cjvg
Messages postés330Date d'inscriptionmercredi 6 décembre 2000StatutMembreDernière intervention26 octobre 2017 15 oct. 2012 à 10:20
Merci pour ce petit mot. Quant à NHENRY, c'est un habitué de ce genre de commentaire, il ne faut pas faire attention.
Merci encore.
coyotej2
Messages postés13Date d'inscriptionmercredi 22 février 2006StatutMembreDernière intervention20 mai 2013 15 oct. 2012 à 08:12
Pourquoi croirait-on que c'est un gag ? Il y a des utilisateurs de tous les niveaux, dont certains ont parfois appris sur le tas et sont friands de découvrir "comment faire ceci ou cela", donc toute astuce, même très simple, n'est pas inutile. Merci.
Quant au "call" de procédure qui semble superflu à NHENRY, c'est parfaitement justifié pour la clarté du source. Je procède depuis toujours de cette façon, pour que l'on comprenne d'un seul coup d'oeil ce dont il s'agit, surtout lorsque l'on travaille à plusieurs sur un projet. Bravo.
NHenry
Messages postés15102Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention27 mars 2024159 8 oct. 2012 à 19:27
Bonsoir, ta fonction :
Function PageWeb(ADRESSE As String)
Dim Handle As Long
Dim Retour As Long
If IsConnected = False Then Call WebConnect
Handle = GetDesktopWindow()
Retour = ShellExecute(Handle, vbNullString, ADRESSE, "", vbNullString, 0)
End Function
Ne retourne rien, dans ce cas, une Sub serait plus appropriée.
Et ton Call PageWeb(...) peut de simplifié en retirant le mot clé Call.
Sinon pour faire simple, c'est juste un forçage de connexion (si pas en ADSL ou autre) et un ShellExecute.
16 oct. 2012 à 08:08
L'interface est un peu tapageuse mais c'est un exemple.
Un petit reproche, il est inutile de charger une 'brouette' de composants (contrôls) s'ils ne sont pas utilisés, je sais qu'il est possible de ne pas en tenir compte à la compilation, mais il est préférable de ne pas surcharger la boîte à outils car au chargement du projet, si un ocx ou une dll n'a pas été trouvé, un message d'erreur apparaît ce qui peu être déroutant pour un non initié.
Quant au call d'une fonction ou procédure, il ne me parraît pas déplacé ou inutile, l'appel étant dans ce cas identique au format cible ce qui n'est pas plus mal pour la compréhension du code, tout le monde n'est pas expert et un débutant s'y retrouvera plus facilement.
15 oct. 2012 à 10:20
Merci encore.
15 oct. 2012 à 08:12
Quant au "call" de procédure qui semble superflu à NHENRY, c'est parfaitement justifié pour la clarté du source. Je procède depuis toujours de cette façon, pour que l'on comprenne d'un seul coup d'oeil ce dont il s'agit, surtout lorsque l'on travaille à plusieurs sur un projet. Bravo.
8 oct. 2012 à 19:27
Function PageWeb(ADRESSE As String)
Dim Handle As Long
Dim Retour As Long
If IsConnected = False Then Call WebConnect
Handle = GetDesktopWindow()
Retour = ShellExecute(Handle, vbNullString, ADRESSE, "", vbNullString, 0)
End Function
Ne retourne rien, dans ce cas, une Sub serait plus appropriée.
Et ton Call PageWeb(...) peut de simplifié en retirant le mot clé Call.
Sinon pour faire simple, c'est juste un forçage de connexion (si pas en ADSL ou autre) et un ShellExecute.