vb高手搜集-常见问题总结

一、如何用 VB 启动其他程序或开启各类文件

　　要在 VB 中启动其他程序或开启各类文件，最简单的方法就是使用 Shell 函数，例如：要开启 C:\Test.txt 这个文字文件，则要启动记事本来开启这个文件案，程序如下：

Dim RetVal As Long
RetVal = Shell("C:\Windows\Notepad.exe C:\Test.txt", 3)

　　''''3代表视窗会最大化，并具有驻点，细节请查 Help

　　以上的语法虽然很简单，但有一个风险，若是我们不知道开启文件的执行文件位置，则程序便会有错误产生，尤其一般软件在安装的时候都可以让使用者自行选择安装目录，所以执行文件的路径不能写死在程序中，要解决这个问题，就是在注册文件中找到该副文件名之启动程序位置，再放入 Shell 中。

　　但是以上的作法必须熟悉注册文件，而且必须使用 Windows API 来 Call (注册文件的存取以后会有专文来说明)，如果您对注册文件的存取及 API 的使用都很纯熟的话，当然没问题，但是有些人对于注册文件会有畏惧，这时候，您可以使用下面的方法：

　　Shell("Start C:\Test.txt")

　　您完全不用知道这份文件的启动程序是什么？它放在什么地方？参数 Start 便会自动依照附文件名到注册文件中找到启动程序来开启该份文件案！ 不赖吧！

　　注一：在 Windows 95/98/NT 平台中, 什么副文件名之文件案, 该由什么执行文件来启动, 都设在关联中,代码为 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Extensions

　　例如: 名称为 ".DOC" 之资料为 "C:\Progra~1\Micros~2\Office\WINWORD.EXE ^.DOC"

　　名称为 ".TXT" 之资料为 "notepad.exe ^.txt"

　　注二：使用 Start 之唯一缺点为 "会比直接指定执行文件稍为慢 0.5-1 秒钟."

二、让您的文字框有 Undo / Redo 的功能

　　很多软件都有提供 Undo / Redo 的功能，Microsoft 的产品都可以提供多次 Undo 反悔，功能更强大！

　　在 VB 的程序中，我们也可以提供这样的功能！不过只能 Undo / Redo 一次

　　''''在声明区中加入以下声明：

　　''''32位元
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const EM_UNDO = &HC7

　　''''16位元
Private Declare Function SendMessage Lib "User" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
Const WM_USER = &H400
Const EM_UNDO = WM_USER + 23

　　''''在程序中使用的方式如下： ( Undo Text1 中的输入 )
Private Sub Command1_Click()
Dim UndoResult As Long
UndoResult = SendMessage(Text1.hwnd, EM_UNDO, 0, 0)
''''传回值 UndoResult = -1 表示 Undo 不成功
End Sub

　　''''使用以上的方法，第一次是 Undo ，第二次就等于是 Redo

三、如何隐藏及显示任务栏

　　有时候，我们希望在我们的程序执行中，将任务栏隐藏，让桌面变得比较清爽，等到我们的程序执行完毕之后，再将任务栏显示出来，这时就要用到 SetWindowPos 这个 API 了！
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Const SWP_HIDEWINDOW = &H80 ''''隐藏视窗
Const SWP_SHOWWINDOW = &H40