| 网站首页 | 文章中心 | 电子书下载 | 矢量图库 | 视频教程 | 素材下载 | 程序代码下载 | JS代码 | 论坛 | 
常用软件类：
 |杀毒安全 |联络聊天 |网络软件 |多媒体类 |系统工具 |图形图像 |系统工具 |应用软件 |行业软件
开发设计类：
 |动画制作 |图像处理 |3D设计 |操作系统 |站长学院 |网络相关 |WEB设计 |数据库类 |程序开发
Visual Basic编程常见问题
作者：佚名    文章来源：网络    点击数：    更新时间：2006-11-24
　


　　如何用 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 秒钟."
如何找出 Windows 目录的正确路径？

　　有时候我们在程序中必须用到 Windows 的目录，以存取 Windows 目录下的文件，照理说，这应该是最简单的功能，前提是每个人在 Setup Windows 必须采用 Windows 的预设目录名称，也就是 C:\Windows，但是常常不是这样，有时候由於要使新旧版本共存，或者其他原因，有人会将 Windows 目录改成 c:\win95、c:\win98、Windows95 或 Windows98......

　　若是程序中必须用到 Windows 目录，要找到正确的路径，做法如下：

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

Const MAX_PATH = 260

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Public Function GetWinPath()
　Dim strFolder As String
　Dim lngResult As Long
　strFolder = String(MAX_PATH, 0)
　lngResult = GetWindowsDirectory(strFolder, MAX_PATH)
　If lngResult <> 0 Then
　　GetWinPath = Left(strFolder, InStr(strFolder, Chr(0)) - 1)
　Else
　　GetWinPath = ""
　End If
End Function

’在程序中使用方法如下：

Private Sub Command1_Click()
　Call MsgBox("您电脑中 Windows 目录的正确路径是： " & GetWinPath, vbInformation)
End Sub

　　让您的文字框有 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

　　如何得到某年每个月的第一天是星期几

Private Sub Command1_Click()
Dim i As Integer, A As Integer, B As Integer, C As String
A = InputBox("请输入年份", "某年每个月的第一天是星期几")
Form1.Cls
For i = 1 To 12
C = A & "-" & i & "-1"
B = Weekday(C)
Select Case B
Case vbSunday
Print A & "年" & i & "月1日是 星期日"
Case vbMonday
Print A & "年" & i & "月1日是 星期一"
Case vbTuesday
Print A & "年" & i & "月1日是 星期二"
Case vbWednesday
Print A & "年" & i & "月1日是 星期三"
Case vbThursday
Print A & "年" & i & "月1日是 星期四"
Case vbFriday
Print A & "年" & i & "月1日是 星期五"
Case vbSaturday
Print A & "年" & i & "月1日是 星期六"
End Select
Next i

End Sub

　　如何隐藏及显示任务栏？

　　有时候，我们希望在我们的程序执行中，将任务栏隐藏，让桌面变得比较清爽，等到我们的程序执行完毕之后，再将任务栏显示出来，这时就要用到 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

　　模拟 Windows 的资源回收站！

　　您现在将屏幕上所有的视窗全部缩小，找到资源回收站，按鼠标右键，选择【属性】，便会出现【资源回收站】的属性问话框。

　　其中有几个选项如下：

　　1、不要将文件移到资源回收站，删除时立即移除文件。

　　2、显示删除确认对话框？

　　根据以上之状况，文件之删除有三种情形：

　　1、删除文件，出现确认对话框，文件移到资源回收站。

　　2、删除文件，出现确认对话框，文件不移到资源回收站。

　　3、删除文件，不出现确认对话框，文件也不移到资源回收站。

　　模拟程序如下：

’在模组的声明区中加入以下声明：

Public Type SHFILEOPSTRUCT
　hwnd As Long
　wFunc As Long
　pFrom As String
　pTo As String
　fFlags As Integer
　fAnyOperationsAborted As Long
　hNameMappings As Long
　lpszProgressTitle As Long
End Type

Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Public Const FO_DELETE = &H3
Public Const FOF_ALLOWUNDO = &H40 ’可以还原
Public Const FOF_NOCONFIRMATION = &H10 ’不出现确认对话框
Public Const FOF_SILENT = &H4

’在程序中之使用方法如下：
’以下之例子会出现确认对话框，文件也会移到资源回收站。

Private Sub Command1_Click()
　Dim SHop As SHFILEOPSTRUCT
　Dim strFile As String ’要删除的文件(含全路径)
　strFile = "c:\test.txt"

　With SHop
　　.wFunc = FO_DELETE
　　.pFrom = strFile
　　.fFlags = FOF_ALLOWUNDO
　End With

　SHFileOperation SHop
End Sub

’若要调整，只要更改 fFlags 之值即可，如下：
.fFlags = FOF_SILENT ’删除文件，出现确认对话框，文件不移到资源回收站。
.fFlags = FOF_NOCONFIRMATION ’删除文件，不出现确认对话框，文件也不移到资源回收站。

 

上一页  [1] [2] [3] [4] [5] [6] [7] 下一页


  • 上一篇文章：

  • 下一篇文章： 没有了
    • 相关文章