CADsite forum

Ik wil graag met [F1] een help bestand aanroepen.
Met Lisp gaat dat als volgt:
(setfunhelp "c:testcommando" "Helpbestand" "topicinhelpbestand")

Dit gaat helemaal naar wens   
MAAR  ...
Als ik met Lisp een VBA-macro aanroep bv:
(command "-vbarun" (strcat path "VBAmacro.dvb!Module.Subroutine"))

Dan is het laatste commando in Acad: VBARUN, en geeft het daar de help bij.

Mijn vraag is dan ook hoe kun je tijdens het uitvoeren van een VBA-macro een topic in een eigen help bestand aanroepen met [F1]

Eddy,

http://msdn.microsoft.com/en-us/library/aa140546(v=office.10).aspx
kun je met bovenstaande link iets?


groeten
stephan

Bedankt Stephan,
Maar deze had ik zelf ook al gevonden en doet niet wat ik wil.
Wel als ik een Form (venster) gebruik, dan kan ik dit wel gebruiken.

Wat ik wil is dus zonder Form, alleen via de commandline.
Eigenlijk een vangfunctie voor "keydown".
En dan de ingedrukte toets opvragen.
Als ik dat weet kan ik de help starten als het de [F1] is.

Ik heb iets gevonden... maar kan er nog niet veel mee omdat het in een loop zit, maar het werkt wel als je op [F1] drukt.

Wie kan mij verder helpen, of in de goede richting sturen?

Declare Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Long
Private Const VK_RMC = KeyCodeConstants.vbKeyF1


Private Sub Test_F1()
  Do
    If GetAsyncKeyState(VK_RMC) <> 0 Then
      Debug.Print VK_RMC
       MsgBox "Hier moet het aanroepen van de help komen i.p.v deze MsgBox."
       Exit Do
    End If
  Loop
End Sub

Eddy,

Ik heb ook nog wat verder gekeken en heb de volgende link gevonden
http://www.helpscribble.com/vb.html
Hier vind je 2 modules die je kunt gebruiken voor het oproepen van je help bestanden (.hlp of .chm)


'aanroep van je functies
' ByVal CLng(1234) is de het indexnummer van het help onderwerp
WinHelp(AcadApplication.HWND, <pad naar je  hlp bestand>, HELP_CONTEXT, ByVal CLng(1234))

'Aanroep voor chm bestanden
HtmlHelp(AcadApplication.HWND, <pad naar je  hlp bestand>, HH_HELP_CONTEXT, ByVal CLng(1234))





hopelijk lukt het hiermee je beoogde functionaliteit te maken

groeten

stephan

Stephan,

Ik heb gedaan wat op die site staat maar de code die daar staat is voor "vb" en niet voor "vba".
Nog geprobeerd om het aan te passen maar ik kom er niet uit.

Toen dacht ik als ik het path van de help verander ben ik er ook (tot het mis gaat met een error).
Maar ben er zeker NIET gelukkig mee, maar krijg wel mijn help-file te zien alleen niet het item waar het om gaat.

Hier de manier die ik vond:
Dim oldHelp
  oldHelp = ThisDrawing.Application.Preferences.Files.HelpFilePath
  ThisDrawing.Application.Preferences.Files.HelpFilePath = "X:Map_voor_HelpFile" & "MijnHelp.chm"

Later moet dan het path weer terug gezet worden naar "oldHelp"

ThisDrawing.Application.Preferences.Files.HelpFilePath = oldHelp

Als iemand een ander (dus beter idee) heeft graag... 
Misschien dan ook met voorbeeld code die ik kan gebruiken.

In lisp is dit mogelijk:
(startapp "hh.exe C:\\Program Files\\Bricsys\\Bricscad V11\\Help\\en_US\\Bricscad-CmdRef.chm::/F/FlatShot.htm")

Er wordt gebruik gemaakt van de 'command line switches' van hh.exe.

De code op de site kun je ook gebruiken in vba. De bas bestanden kun je in laden in je vba project. Op die manier kun de code gebruiken. Ik had de aanroepen al in mijn vorige antwoord voor je aangepast.

Betere voorbeelden heb ik niet voor je kunnen vinden.

succes stephan

Citaat van: sschevers op do 15 09 2011, 10:58:54
De code op de site kun je ook gebruiken in vba. De bas bestanden kun je in laden in je vba project. Op die manier kun de code gebruiken. Ik had de aanroepen al in mijn vorige antwoord voor je aangepast.

Betere voorbeelden heb ik niet voor je kunnen vinden.

succes stephan

Maar er verschijnen wel errors die eerst uit de weg geruimd moeten worden in die .bas files.
Voorbeeld:
rcWindowPos As RECT
Dat "... as RECT" snapt mijn vba niet. Ik heb hier een variant van gemaakt.

Jou code heb ik als volgt aangepast:
Dim HelpFilePath As String
  HelpFilePath = "U:\Acad_2010\Lisp\" & "Tools Help.chm"
'aanroep van je functies
' ByVal CLng(1234) is de het indexnummer van het help onderwerp
Call WinHelp(AcadApplication.hwnd, HelpFilePath, HELP_CONTEXT, ByVal CLng(1234))
'Aanroep voor chm bestanden
Call HTMLHelp(AcadApplication.hwnd, HelpFilePath, HH_HELP_CONTEXT, ByVal CLng(1234))

Als ik er geen "Call" voor zet dan kan vba de "WinHelp" en de  "HTMLHelp" niet vinden.

Ik krijg hier mee nog steeds de "Acad 2010 Help", en niet mijn "Tools Help.chm".

Citaat van: roy_043 op do 15 09 2011, 10:09:12
In lisp is dit mogelijk:

Code Selecteer Uitklappen

(startapp "hh.exe C:\\Program Files\\Bricsys\\Bricscad V11\\Help\\en_US\\Bricscad-CmdRef.chm::/F/FlatShot.htm")


In Lisp had ik al dit:
(setfunhelp "c:testcommando" "Helpbestand" "topicinhelpbestand")
Maar dat is het probleem niet.

Ik heb nauwelijks kennis van VBA, maar ik zat aan deze pseudo code gebaseerd op jouw bijdrage #3 te denken:

Private Sub Test_F1()
  Do
    If GetAsyncKeyState(VK_RMC) <> 0 Then
       VertaalDitNaarVBA: (startapp "hh.exe C:\\Program Files\\Bricsys\\Bricscad V11\\Help\\en_US\\Bricscad-CmdRef.chm::/F/FlatShot.htm")
    End If
  Loop
End Sub

Citaat van: roy_043 op do 15 09 2011, 11:59:33
Ik heb nauwelijks kennis van VBA, maar ik zat aan deze pseudo code gebaseerd op jouw bijdrage #3 te denken:

Code Selecteer Uitklappen


Private Sub Test_F1()
  Do
    If GetAsyncKeyState(VK_RMC) <> 0 Then
       VertaalDitNaarVBA: (startapp "hh.exe C:\\Program Files\\Bricsys\\Bricscad V11\\Help\\en_US\\Bricscad-CmdRef.chm::/F/FlatShot.htm")
    End If
  Loop
End Sub

Oh, oke. Maar dit zit in een "Do .... Loop".
Deze in de uitvoering wacht vba op de [F1]- toets.

Maar wat als de gebruiker geen "help" nodig heeft... dan moet hij/zij gewoon verder kunnen werken.
Anders krijg je zo iets als:
"Druk op F1 om verder te gaan." Waarna de help opent en je dan pas verder kunt.
Voor de gebruikers niet echt handig en voor mij niet iets wat ik wil.

Het is alweer een poosje geleden maar ik zit weer te stoeien met mijn helpbestand.

Ik heb de volgende code geprobeerd:
(setfunhelp "c:Xreflijst" "http://www.eddylucas.co.nf/Xreflijst.htm")
Dit werkt wel maar zonder css in het normale acadhelp-venster.
Maar ik wil het op de server (P-schijf) van ons bedrijf zetten en niet uploaden met ftp.

Nu zou ik het volgende willen gebruiken maar dit werk niet.
(setfunhelp "c:Xreflijst" "P:/help/Xreflijst.htm")

Maar als ik het op mijn eigen D-schijf zet gaat het in eens wel weer en met css:
(setfunhelp "c:Xreflijst" "D:/help/Xreflijst.htm")

Iemand een idee hoe dit op te lossen?

Eddy,

probeer het volgende eens in vba:

Shell "HH <pad naar chm>", vbNormalFocus


toch nog even aan het zoeken geweest
http://msdn.microsoft.com/en-us/library/office/aa164218(v=office.10).aspx

stephan

Bedankt voor je reactie Stephan, maar dit wil ik niet in VBA oplossen.

Als ik (setfunhelp "c:Xreflijst" "D:/help/Xreflijst.htm") gebruik dan gaat het goed.
Maar het is de bedoelling dat het hier op de server geplaatst wordt, op de P-schijf.
Verschillende kantoren, dus verschillende locaties, krijgen s'nachts een update van deze P-schijf.
Als ik het netwerkpath op geef werkt het ook.
Dit laatste lijkt een oplossing, maar handiger is een schijf aanwijzen zoals "P:\" of in lisp "P:/" ("P:\\")