先存为HTML文件
再用HTML HELP 生成.CHM文件
用API调用即可VB CODE:Option ExplicitPrivate Declare Function HtmlHelp Lib "hhctrl.ocx" _
Alias "HtmlHelpA" _
(ByVal hwndCaller As Long, _
ByVal pszFile As String, _
ByVal uCommand As Long, _
ByVal dwData As Long) _
As LongPrivate Const HH_DISPLAY_TOPIC = &H0
Private Const HH_CLOSE_ALL = &H12Private Sub Command1_Click()
Call HtmlHelp(Me.hWnd, "IEXPLORE.CHM", _
HH_DISPLAY_TOPIC, 0)
Unload Me
End Sub
再用HTML HELP 生成.CHM文件
用API调用即可VB CODE:Option ExplicitPrivate Declare Function HtmlHelp Lib "hhctrl.ocx" _
Alias "HtmlHelpA" _
(ByVal hwndCaller As Long, _
ByVal pszFile As String, _
ByVal uCommand As Long, _
ByVal dwData As Long) _
As LongPrivate Const HH_DISPLAY_TOPIC = &H0
Private Const HH_CLOSE_ALL = &H12Private Sub Command1_Click()
Call HtmlHelp(Me.hWnd, "IEXPLORE.CHM", _
HH_DISPLAY_TOPIC, 0)
Unload Me
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货