Tengo un usercontrol en VB6, con propiedades, métodos y eventos, hasta aqui todo bien, necesito agregar ayuda a las propiedades del control en modo diseño, de forma tal que cuando el usuario inserte el control en un form y pulse F1 o pinche en la página de de propiedades cargue un chm con el tópico correspondiente,
en modo runtime funciona perfecto, el tema es que no hace nada en modo diseño, mejor dicho, si funciona, pero carga la ayuda del VB en vez d ela del control.
les explico como le hago.
en la seccion declare
Private Declare Function HtmlHelp Lib "hhctrl.ocx" Alias "HtmlHelpA" (ByVal hwnd As Long, ByVal HelpFile$, ByVal wCommand As Long, ByVal dwData As Long) As Long
Private Const HH_DISPLAY_TOPIC As Long = 0
Private Const HH_HELP_CONTEXT As Long = &HF
'--------------------------------------------------------------------
en el initialize del control pongo
UserControl.KeyPreview = True
en el terminate
UserControl.KeyPreview = True
en el evento keydown del usercontrol
Private Sub UserControl_KeyDown(KeyCode As Integer, Shift As Integer)
' 10 es el número de la ayuda de contexto en el .chm
' checkpath es una funcion que devuelve si el fichero existe físicamente
If KeyCode = vbKeyF1 Then
If CheckPath(App.Path & "\aa.chm") = True Then
HtmlHelp hwnd, App.Path & "\aa.chm", HH_HELP_CONTEXT, 10
End If
End Sub
espero puedan ayudarme, ya que la ayuda en modo de diseño es genial para los usuarios finales y da buen toque de profesionalidad.
saludos,
Tack0
