正在阅读:vb高手搜集-常见问题总结4(终章)vb高手搜集-常见问题总结4(终章)

2005-06-20 09:59 出处: 作者:阳光宝宝 责任编辑:moningfeng
一、如何取得文件大小   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

键盘也能翻页,试试“← →”键

关注我们

最新资讯离线随时看 聊天吐槽赢奖品