vb高手搜集-常见问题总结4(终章)

领测软件测试网

下一页 1 2 3 

　　 　　
　　一、如何取得文件大小
　　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

文章来源于领测软件测试网 https://www.ltesting.net/