USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Miscelâneas)

Título da Dica:  Acionar um Help (*.HLP) pelo VB
Postada em 14/8/2000 por Webmaster      Clique aqui para enviar email para o autor  webmaster@vbweb.com.br
'No Declarations do Form:
Private Declare Function WinHelp Lib "user32" Alias _
        "WinHelpA" (ByVal hwnd As Long, ByVal lpHelpFile _
        As String, ByVal wCommand As Long, ByVal dwData _
        As Long) As Long

Private Const HELP_CONTENTS As Long = &H3&
Private Const HELP_QUIT As Long = &H2

'P/ chamar (no evento que você quizer):

Dim CONF As Long
Dim DIR As String
DIR = App.Path & "SeuHelp.HLP"
If Right(App.Path,1) <> "\" Then DIR = App.Path & "\SeuHelp.HLP"
CONF = WinHelp(hwnd, DIR, HELP_CONTENTS, CLng(0))
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página