Private Sub cmdControl2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles cmdControl2.Click Dim sHelpFile As String Dim sStartupPath As String '--- Initialize context-sensitive help --- sStartupPath = Application.StartupPath.ToString sHelpFile = Replace(sStartupPath, "\bin", "\hlp") & "\VBnetCHM.chm" Me.hlpProvider1.HelpNamespace = sHelpFile Me.hlpProvider1.SetHelpNavigator(Me.cmdControl1, HelpNavigator.KeywordIndex) Me.hlpProvider1.SetHelpKeyword(Me.cmdControl1, "Help topic of control 1") End Sub
sHelpFile = Replace(sStartupPath, "\bin", "\hlp") & "\VBnetCHM.chm"
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)