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


　　如何得到文件路径的文件名

Dim sFilePath As String
sFilePath = "C:\Windows\System\sytem.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

　　如何取得文件大小？

　　VB6 提供了一个新的物件模型，叫做 FSO (File System Object) 物件模型，运用它，我们可以很方便的处理磁盘、资料夹和文件的一些动作。

　　FSO 物件模型含有好几个物件，其中有一个 File 物件是用来求得文件的相关资讯，在目前这个主题，我们就可以使用 File 物件！它有一个属性是 Size，对文件来说就是指文件的大小 (单位为位元组)。 (注一)

　　虽然使用 File 物件的 Size 属性就可以求得文件的大小，但是它有以下二个缺点：

　　1、只能用于 VB6 以后的版本。

　　2、它不是 VB6 内定的功能，必须另外引用 Scrrun.dll (Microsoft Scripting Runtime) 才可以！

　　以下的二个方法就可以使用在所有的 VB 版本中 (含 VB6)，而且是 VB 内定的功能：

　　1、FileLen 函数：返回一个 Long，代表一个文件的长度，单位是位元组。

　　语法：FileLen(pathname) ’ pathname 是全路径之文件名称

　　适用：取得一个尚未开启的文件的长度大小 (注二)

　　2、LOF 函数：返回一个 Long ，单位为位元组，用来代表由 Open 陈述式所开启的文件之大小。

　　语法：LOF(filenumber) ’ filenumber 是一个文件代码

　　适用：取得一个已开启的文件的长度大小

　　注一：File 物件的 Size 属性除了可以求得一个文件的大小，也可以用来取得整个目录的所有文件大小！

　　注二：使用 FileLen 函数时，如果所指定的文件正在开启中，则所返回的值是这个文件在开启前的大小。

　　如何移除或更改桌面背景的底色图案 (Wallpaper)？

　　SystemParametersInfo 这个 API 可以设定许多 Windows 系统的功能参数，而其中一个参数就是桌面底图！通常一般的使用者会透过控制面板中的【显示器】来设定桌面底图。

　　在底下的范例中，我们使用 SPI_SETDESKWALLPAPER 这个参数及图片文件名称来设定新的桌面底图，同时使用 SPIF_SENDWININICHANGE 来通知各个视窗这个改变。

’在表单的声明区中加入以下声明及常数：

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As String, ByVal fuWinIni As Long) As Long

Const SPI_SETDESKWALLPAPER = 20
Const SPIF_UPDATEINIFILE = &H1
Const SPIF_SENDWININICHANGE = &H2

’在表单上加入一个 CommandButton (Command1) 来移除桌面底图，程序码如下：

Private Sub Command1_Click()
　Dim X As Long
　X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, "(None)", SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
　MsgBox "桌面底图 (Wallpaper) 已经被移除"
End Sub

’在表单上加入另一个 CommandButton (Command2) 来更改桌面底图，程序码如下：

Private Sub Command2_Click()
　Dim FileName As String
　Dim X As Long
　FileName = "c:\windows\test.bmp"
　X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, FileName, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
　MsgBox "桌面底图 (Wallpaper) 已经被更改"
End Sub


　　一个快速注册 DLL 及 OCX 的方法

　　有时候我们在 VB 中要引用某一个 DLL 或 OCX 时，会出现文件未注册的讯息，这时，我们可以使用人工注册的方法，也就是直接在命令列中使用 regsvr32.exe 来做，做法如下：

　　文件注册：C:\Windows\System\Regsvr32.exe C:\Windows\System\Test.ocx

　　取消注册：C:\Windows\System\Regsvr32.exe /u C:\Windows\System\Test.ocx

　　这些动作我们也可以直接写到程序中，使用 Shell 来执行，但是我现在要说的，都不是上面提到的方法！

　　注意看罗！方法如下：

　　1、在资源管理器中找到 C:\Windows\System\Regsvr32.exe 并【复制】 ( 按鼠标右键选复制 )

　　2、将目录移到 C:\Windows\SendTo 后，执行【贴上快捷方式】 ( 按鼠标右键选贴上快捷方式 )

　　3、将快捷方式名称改成【REGISTER】

　　4、OK

　　现在，如果您想替某一个文件做注册动作，例如：C:\Windows\System\Test.ocx，您只要打开资源管理器，找到 C:\Windows\System\Test.ocx，按鼠标右键选【传送到】【REGISTER】即可完成注册动作了！

　　注：有一个地方要注意的是，Regsvr32.exe 只能注册 32 位的文件！如果要用它来注册 16 位的文件，会有错误讯息产生。

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


  • 上一篇文章：

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