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

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

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

Dim RetVal As Long
RetVal = Shell(CWindowsNotepad.exe CTest.txt, 3)

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

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

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

　　Shell(Start CTest.txt)

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

　　注一：在 Windows 9598NT 平台中, 什么副文件名之文件案, 该由什么执行文件来启动, 都设在关联中,代码为 HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionExtensions

　　例如 名称为 .DOC 之资料为 CProgra~1Micros~2OfficeWINWORD.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 '显示视窗

　　'在程序中若要隐藏任务栏

Private Sub Command1_Click()
Dim Thwnd As Long
Thwnd = FindWindow(Shell_traywnd, )
Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
End Sub

　　'在程序中若要再显示任务栏

Private Sub Command2_Click()
Dim Thwnd As Long
Thwnd = FindWindow(Shell_traywnd, )
Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
End Sub

四、如何得到文件路径的文件名
Dim sFilePath As String
sFilePath = CWindowsSystemsytem.dll

Dim lGetLen As Long, lNum As Long
Dim sGetFile As String, sTemp As String
lGetLen = Len(sFilePath) '得到文件路径长度
sTemp = lGetLen
For lNum = 1 To lGetLen
If Left(sGetFile, 1) =  Then Exit For
sGetFile = Mid(sFilePath, sTemp, lNum)
sTemp = sTemp - 1
Next lNum
sGetFile = Mid(sGetFile, 2) '得到文件名
MsgBox sGetFile

五、如何防止使用者按下 CTRL + ALT + DEL

　　有些时候，我们的应用程序执行时，不希望使用者按下 CTRL + ALT + DEL 来异常结束程序或关机，这时候我们可以在启动程序时，将 CTRL + ALT + DEL 功能键之功能取消，然后在结束程序之前，再从新恢复 CTRL + ALT + DEL 之功能。

　　在模组声明区中加入以下声明及模组：
Declare Function SystemParametersInfo Lib user32 Alias SystemParametersInfoA (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long

Public Const SPI_SCREENSAVERRUNNING = 97

Public Sub Disable_Ctrl_Alt_Del()
　　'让 CTRL+ALT+DEL 失效
Dim AyW As Integer
Dim TurFls As Boolean
AwY = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, TurFls, 0)
End Sub

Public Sub Enable_Ctrl_Alt_Del()
　　'让 CTRL+ALT+DEL 恢复功能
Dim AwY As Integer
Dim TurFls As Boolean
AwY = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, TurFls, 0)
End Sub

　　'实际使用时，在 Form 中加入以下程序码：

Private Sub Form_Load()
Disable_Ctrl_Alt_Del
End Sub

Private Sub Form_Unload(Cancel As Integer)
Enable_Ctrl_Alt_Del
End Sub

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18