谢谢。
解决方案 »
- vb打印问题
- 如何将后面几位数据截取出来 ?
- 如何得到datagrid 每一行每一列的数据? (vb.net)
- 从串口的激光扫描平台获得的数据乱码,有做过的进来帮忙。
- 50分求助:远程控制即pc anywhere 的原理是什么,怎么做一个类似的?
- 如何在程序中,读取一个word文档的内容。请大家提供一个可行的方法!谢谢了
- 急急急!!!
- find (sql)出错.帮帮忙!!
- 关于数据库查询的问题,一个数据库中有两条相同的纪录,怎样把他们查找出来。
- 请问,一个TEXT框如果要做成输入IP地址装,即有"."在固定位置应该怎么做?
- 又一个关于Addin工程的问题... (在线等待)
- 高分求VB网络编程的电子书或配套光盘,30-50分一本,按质论价,按先后顺序给分,决不食言!!
按F1就可以了
sendkeys "{F1}"
If Right(App.Path, 1) = "\" Then
App.HelpFile = App.Path + "Learn.chm"
Else
App.HelpFile = App.Path + "\Learn.chm"
End If
End SubPrivate Sub cmdHelp_Click()
cmdHelp.HelpContextID = 1 ' 选定 ID 号为 1 的主题
SendKeys "{F1}"
End Sub 当然,该按钮的HelpContextID属性值可以根据实际情况改为其它数值。
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPublic Const SW_SHOWNORMAL = 1例如:
ShellExecute Me.hWnd, "Open", "c:\myHelp.chm", "", "", SW_SHOWNORMAL
http://expert.csdn.net/Expert/topic/1609/1609199.xml?temp=.3270838