[ bit_fucker @ 04.08.2003. 00:07 ] @
Pozdrav,
Zanima me kako da napravim da se u VB-u otvori help file.
Probao sam sa ovim :
Dim RetVal
RetVal = Shell("putanja do help fajla")
ali nisam uspeo.

Hvala unapred.
[ DraganK @ 06.08.2003. 01:09 ] @
Ma jok, ne treba ti to...

U project properties imaš polje "Help filename". Tu unesi putanju do HLP ili CHM datoteke.

Kasnije automatski izlazi help kad pritisneš F1.
Ako pak hoćeš da ti u sklopu CHMa skoči na tačno određeni topic, ili da ti se u What's this tooltip-u pojavi objašnjenje iz CHMa, onda moraš da koristiš API. Takav CHM je mnogo teže i napraviti...
[ bit_fucker @ 06.08.2003. 05:12 ] @
Nema veze nasao sam nacin,

Shell "Winhlp32 putanja do vaseg help fajla", 1

pozdrav
[ mladenovicz @ 10.08.2003. 11:14 ] @
Nadjoh kod koji sam ranije koristio za ove stvari

Code:

Public Declare Function WinHelp Lib _
"user32" Alias "WinHelpA" _
(ByVal hwnd As Long, ByVal _
lpHelpFile As String, _
ByVal wCommand As enm_wCommand, _
ByVal dwData As Long) As Long

Public Declare Function WinHelpString _
Lib "user32" Alias "WinHelpA" _
(ByVal hwnd As Long, ByVal _
lpHelpFile As String, _
ByVal wCommand As enm_wCommand, _
ByVal strData As String) As Long

Public Declare Function WinHelpStruct _
Lib "user32" Alias "WinHelpA" _
(ByVal hwnd As Long, ByVal _
lpHelpFile As String, _
ByVal wCommand As enm_wCommand, _
ByRef udtData As Any) As Long

Public Enum enm_wCommand
    HELP_CONTEXT = &H1&
    HELP_QUIT = &H2&
    HELP_CONTENTS = &H3&
    HELP_INDEX = &H3&
    HELP_HELPONHELP = &H4&
    HELP_SETCONTENTS = &H5&
    HELP_SETINDEX = &H5&
    HELP_CONTEXTPOPUP = &H8&
    HELP_FORCEFILE = &H9&
    HELP_CONTEXTMENU = &HA&
    HELP_FINDER = &HB&
    HELP_WM_HELP = &HC&
    HELP_SETPOPUP_POS = &HD&
    HELP_FORCE_GID = &HE&
    HELP_TAB = &HF&
    HELP_KEY = &H101&
    HELP_COMMAND = &H102&
    HELP_PARTIALKEY = &H105&
    HELP_MULTIKEY = &H201&
    HELP_SETWINPOS = &H203&
End Enum

Public Type MULTIKEYHELP
    mkSize As Long
    mkKeylist As Byte
    szKeyphrase As String * 253
    ' Array length is arbitrary; may be changed
End Type

Public Type HELPWININFO
    wStructSize As Long
    left As Long
    top As Long
    width As Long
    height As Long
    state As enm_windowstate
    rgchMember As String * 2
End Type

Public Enum enm_windowstate
    SW_HIDE = 0&
    SW_SHOWNORMAL = 1&
    SW_SHOWMINIMIZED = 2&
    SW_SHOWMAXIMIZED = 3&
    SW_SHOWNOACTIVATE = 4&
    SW_SHOW = 5&
    SW_MINIMIZE = 6&
    SW_SHOWMINNOACTIVE = 7&
    SW_SHOWNA = 8&
    SW_RESTORE = 9&
End Enum


Code:

WinHelpString 0, App.Path & "\Help.hlp", HELP_FINDER, 0