AIDE CONTEXTUELLE AU FORMAT HTML

Commentaire de rene38 le 28/03/2003 01:49:59

Laissez-moi au moins un commentaire, sinon, ça sert à quoi que rene38 il se décarcasse ?

Commentaire de rene38 le 08/05/2003 14:51:45

Sniff ! Vu 391 fois et pas une seule note !

Commentaire de jbsoulet le 29/05/2003 08:31:23

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

Commentaire de jbsoulet le 31/07/2003 13:36:22

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

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...

Commentaire de VBbigineure le 19/12/2003 13:42:04

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.

Commentaire de tankian18 le 22/04/2004 13:25:55

Merci rene38 ! C'est génial