cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 2013
-
28 mars 2003 à 01:49
ananapster
Messages postés3Date d'inscriptionmercredi 28 juin 2006StatutMembreDernière intervention25 avril 2008
-
9 août 2008 à 18:22
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
ananapster
Messages postés3Date d'inscriptionmercredi 28 juin 2006StatutMembreDernière intervention25 avril 2008 9 août 2008 à 18:22
merci
tankian18
Messages postés122Date d'inscriptionlundi 21 juillet 2003StatutMembreDernière intervention16 septembre 2014 22 avril 2004 à 13:25
Merci rene38 ! C'est génial
cs_nikko
Messages postés62Date d'inscriptionjeudi 18 avril 2002StatutMembreDernière intervention29 septembre 2004 9 janv. 2004 à 10:23
Et à tout hasard, l'un d'entre vous saurait-il afficher le bouton d'aide |?| situé à côté de celui pour fermer |x| ?
VBbigineure
Messages postés169Date d'inscriptionvendredi 27 septembre 2002StatutMembreDernière intervention27 février 20091 19 déc. 2003 à 13:42
Et bien merci, ca fait deux semaines que je cherchais, j'avais presque trouvé et tu parfais le travail...
Si kunkun sait maintenant quel est le meilleur code pour lancer l'aide depuis un menu ou un bouton (il m'étonnerai que le mieux soit le sendkey(F1)...)
Un 10/10, pas paske c'est parfait, mais pasque c'est un brin plus utile que 90% des trucs qui passent sur ce site, et pasque j'en avais besoin, et pasque c'est bientôt noël.
jbsoulet
Messages postés23Date d'inscriptionvendredi 23 mai 2003StatutMembreDernière intervention10 novembre 2013 31 juil. 2003 à 13:59
Une erreur d'interprétation javascript après App.Path & il y a "" il faut un antislash entre "" ce qui devrait donner (si ça passe !) :
====================================
FicAide$ App.Path & "" & App.EXEName & ".chm"
jbsoulet
Messages postés23Date d'inscriptionvendredi 23 mai 2003StatutMembreDernière intervention10 novembre 2013 31 juil. 2003 à 13:36
Ca doit certainement marcher sous VB6 et suivantes mais pas sur VB5. On peut toutefois faire un "rafistolage" qui ne satisfera pas les puristes puisque l'on n'a pas accès à une rubrique précise et que l'on ne sait pas si la config. de l'utilisateur permet d'accéder aux fichiers *.CHM :
=========================================
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 Const SW_SHOWNORMAL = 1
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF1 Then
Dim ret As Long
FicAide$ = App.Path & "" & App.EXEName & ".chm"
ret = ShellExecute(Me.hwnd, "Open", FicAide$, vbNullString, vbNullString, SW_SHOWNORMAL)
If ret <= 32 Then MsgBox ("Impossible de lancer le fichier d'aide")
End If
End Sub
cs_PROGRAMMIX
Messages postés1133Date d'inscriptionmercredi 2 octobre 2002StatutMembreDernière intervention24 juillet 20112 30 juil. 2003 à 23:41
Bonjour Rene38
Je n'ai pas encore fait d'essai, mais à te lire, la réalisation d'un fichier d'aide semble relativement facile.
Il faut absolument que je prenne le temps de mettre cela en pratique.
jbsoulet
Messages postés23Date d'inscriptionvendredi 23 mai 2003StatutMembreDernière intervention10 novembre 2013 29 mai 2003 à 08:31
Bonjour rené38,
j'ai bien lu ton interrogation au sujet de VB5 (voir article http://vbfrance.com/article.aspx?Val=9018). Je vais essayer et je te ferais part du résultat. Je pense de prime abord que ça devrait marcher, mais avec un bémol... Je ne connais pas VB6, mais je suppose que, dans cette version, toutes les fonctions ont été implémentées pour mettre en place les fichiers d'aide au format CHM. Le problème avec vb5 c'est qu'il n'y aucune fonction de prévu pour le faire. Les modules dont je parle dans mon article (http://vbfrance.com/article.aspx?Val=9018) comprennent des fonctions qui permettent de tester si la configuration du micro peut lire les fichiers CHM : fonction pour tester si HTLM Help est installé sur le micro, fonction pour tester la version de HTLM Help et la Version d'IE. Ce qui permet de bloquer les appels aux fonctions de l'aide CHM si la configuration n'est pas adéquate et d'indiquer à l'utilisateur la mise à niveau à faire pour pouvoir avoir accès à l'aide CHM (ou bien d'avoir recours en parallèle à un fichier Help classique si les tests sont négatifs).
Jean-Bernard Soulet
Arsena
Messages postés190Date d'inscriptionlundi 24 mars 2003StatutMembreDernière intervention27 septembre 2005 8 mai 2003 à 15:50
Merci pour ton travail rene38. Bien expliqué comme cela c'est beaucoup plus simple 9 sur 10 parce que 10 ça serai parfait
cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 201311 8 mai 2003 à 14:51
Sniff ! Vu 391 fois et pas une seule note !
SebetKris
Messages postés7Date d'inscriptionlundi 27 mai 2002StatutMembreDernière intervention16 avril 2004 28 mars 2003 à 08:47
Je savais qu'on pouvais le faire, mais je savais pas que s'était aussi simple...
Merci
cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 201311 28 mars 2003 à 01:49
Laissez-moi au moins un commentaire, sinon, ça sert à quoi que rene38 il se décarcasse ?
9 août 2008 à 18:22
22 avril 2004 à 13:25
9 janv. 2004 à 10:23
19 déc. 2003 à 13:42
Si kunkun sait maintenant quel est le meilleur code pour lancer l'aide depuis un menu ou un bouton (il m'étonnerai que le mieux soit le sendkey(F1)...)
Un 10/10, pas paske c'est parfait, mais pasque c'est un brin plus utile que 90% des trucs qui passent sur ce site, et pasque j'en avais besoin, et pasque c'est bientôt noël.
31 juil. 2003 à 13:59
====================================
FicAide$ App.Path & "" & App.EXEName & ".chm"
31 juil. 2003 à 13:36
=========================================
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 Const SW_SHOWNORMAL = 1
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF1 Then
Dim ret As Long
FicAide$ = App.Path & "" & App.EXEName & ".chm"
ret = ShellExecute(Me.hwnd, "Open", FicAide$, vbNullString, vbNullString, SW_SHOWNORMAL)
If ret <= 32 Then MsgBox ("Impossible de lancer le fichier d'aide")
End If
End Sub
Private Sub Form_Load()
KeyPreview = True
End Sub
=========================================
Bon pas terrible, voir également http://vbfrance.com/article.aspx?Val=9018 qui est un peu plus fiable que ce que je viens d'écrire...
30 juil. 2003 à 23:41
Je n'ai pas encore fait d'essai, mais à te lire, la réalisation d'un fichier d'aide semble relativement facile.
Il faut absolument que je prenne le temps de mettre cela en pratique.
29 mai 2003 à 08:31
j'ai bien lu ton interrogation au sujet de VB5 (voir article http://vbfrance.com/article.aspx?Val=9018). Je vais essayer et je te ferais part du résultat. Je pense de prime abord que ça devrait marcher, mais avec un bémol... Je ne connais pas VB6, mais je suppose que, dans cette version, toutes les fonctions ont été implémentées pour mettre en place les fichiers d'aide au format CHM. Le problème avec vb5 c'est qu'il n'y aucune fonction de prévu pour le faire. Les modules dont je parle dans mon article (http://vbfrance.com/article.aspx?Val=9018) comprennent des fonctions qui permettent de tester si la configuration du micro peut lire les fichiers CHM : fonction pour tester si HTLM Help est installé sur le micro, fonction pour tester la version de HTLM Help et la Version d'IE. Ce qui permet de bloquer les appels aux fonctions de l'aide CHM si la configuration n'est pas adéquate et d'indiquer à l'utilisateur la mise à niveau à faire pour pouvoir avoir accès à l'aide CHM (ou bien d'avoir recours en parallèle à un fichier Help classique si les tests sont négatifs).
Jean-Bernard Soulet
8 mai 2003 à 15:50
8 mai 2003 à 14:51
28 mars 2003 à 08:47
Merci
28 mars 2003 à 01:49