标题VB编程俱乐部

　　大家好，VB编程俱乐部又与大家见面了，欢迎大家积极参与进来。提交问题或解答问题，既可使用 VBForums@126.com 或 VBForums@bigfoot.com邮件地址，也可以通过访问网站 http://VBForums.yeah.net 在 BBS板上讨论来达到。订阅VBForums请向 sub-vbforums@e-lists.lawton.com.cn 发送一封空白信即可。
　　问题1：制作一个帮助文件如wangqr.hlp并采用帮助菜单来访问，如何在vb程序中实现？
　　答：在窗体上放一CommonDialog控件，在菜单 Click 代码中写入：
　　CommonDialog1.HelpFile = "路径和帮助文件名称"
　　CommonDialog1.HelpCommand = cdlHelpContents
　　'列出帮助主题，若为cdlHelpPartialKey则为列出搜索项目列表。
　　CommonDialog1.ShowHelp
　　问题2：我原来的程序是在VB5中作的，用了DBGRID控件，但在VB6中没有这个控件，我想把程序从VB5升级到VB6，我先把DBGRID32.OCX，DBGRID32.DEF拷到Windows/System32/下，然后注册，当用到这个控件时，提示“该部件的许可信息没有找到，在设计环境中，没有合适的许可证使用该功能”。为什么？请问该怎么做？
　　答：解决方法有两种，其一、可以先安装VB5，再安装VB6即可；其二、也可以将VB5下的dbgrid32.reg和dbgrid32.ocx等文件复制到Windows\System下，运行dbgrid32.reg进行注册，最后在VB6下引用即可。
　　问题3: 如何用Dir()函数列出C:\下所有*.TMP文件，并且用文本框输出？
　　答：下面是一个列出指定目录下所有符合要求的文件名的函数：
　　Public Function AutoListFiles(ByVal sDirName As String，ByVal FileFilter As String ) As Boolean
　　On Error GoTo RF_ERROR
　　Dim sName As String， sFile As String， sExt As String
　　Dim sDirList() As String， iDirNum As Integer， i As Integer
　　'首先枚举所有文件
　　sFile = Dir(sDirName + FileFilter， vbNormal + vbArchive + vbHidden)
　　Do While Len(sFile) >0
　　sFile = UCase(Trim(sFile))
　　'在此处可以将 sFile 加入到一个 Text 控件...
　　sFile = Dir　'下一个文件
　　Loop
　　iDirNum = 0
　　sName = Dir(sDirName + "*.*"， vbDirectory + vbNormal)
　　Do While Len(sName) >0
　　If sName <> "." And sName <> ".." Then
　　iDirNum = iDirNum + 1
　　ReDim Preserve sDirList(1 To iDirNum)
　　sDirList(iDirNum) = sDirName + sName + "\"
　　End If
　　sName = Dir　'下一个目录
　　Loop
　　For i = 1 To iDirNum
　　AutoListFiles sDirList(i) '递归调用
　　Next
　　End If
　　RF_EXIT:
　　AutoListFiles = True
　　Exit Function
　　RF_ERROR:
　　MsgBox Err.Description， vbCritical， ""
　　Resume RF_EXIT
　　End Function
　　调用上述函数的示例：
　　AutoListFiles("C:\"，"*.TMP")
　　之所以采用上述先处理文件，再处理子目录，一是思路较清晰，另外也有模仿 Prolog 语言中的“尾递归”的想法，当然，VB中是不支持尾递归的。
　　问题4：请问怎样才能实现重启系统？是用shell"rundll32.exe user.exe，restartwindows"吗？为什么会提示user.exe出错，restartwindows项目丢失？
　　答：请首先在模块中增加以下说明：
　　Public Const EWX_LOGOFF = 0
　　Public Const EWX_SHUTDOWN = 1
　　Public Const EWX_REBOOT = 2
　　Public Const EWX_FORCE = 4
　　Declare Function ExitWindowsEx Lib "user32" Alias "ExitWindowsEx" (ByVal uFlags As Long， ByVal dwReserved As Long) As Long
　　'如果想强制重新启动计算机，函数应该这样使用：
　　t& = ExitWindowsEx(EWX_FORCE OR EWX_REBOOT， 0)
　　(魏霄鹏 提供解答)
　　问题5：怎样在软件中设定热键呢？就像抓图软件一样，无论窗体活不活动只要按下热键就可执行一定功能。
　　答：可以用API，在Form中加入
　　Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (Byval vkey as Long) as integer
　　Private Function MyHotKey(vKeyCode) As Boolean
　　MyHotKey=((GetAsyncKeyState(vKeyCode)<0)
　　End Function
　　然后在循环中或Timer的Timer事件中检测：
　　If myHotKey(vbkeyA) then .....
　　其中vbkeyA是键盘"A"的常数，其他键可按F1查得。(杨光宏 提供解答)