📄 050101.htm
字号:
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>vb study</title>
<style>
<!--
td {font-size: 9pt}
A:link {text-decoration: none; color: #0033cc;font-size: 9pt}
A:visited {text-decoration: none; color: #0066CC;font-size: 9pt}
A:active {text-decoration: none; color: #ff0000; font-size: 9pt}
A:hover {text-decoration: underline; color: #000000;font-size: 9pt}
-->
</style>
</head>
<body>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="98%">
<tr>
<td width="100%"><a href="#">你的位置</a>：<a href="http://www.xxby.com" target="_blank">华生小屋</a>--<a href="#">VB学习</a>--<a href="#">对象库</a></td>
</tr>
<tr>
<td width="100%">
<p align="center">对象库</td>
</tr>
<tr>
<td width="100%"><br>
MS Scripting Runtime对象库<br>
该对象库可以用来完成许多驱动器和文件系统的操作,很有用.它包含在scrrun.dll文件中。 其顶层对象为Scripting.
<p>文件系统对象FileSystemObject对象<br>
该对象是Scripting对象的子对象，声明为Dim lxn as new Scripting.FileSystemObject. 这个对象包含大量的方法，以及1个重要的集合--本机驱动器集合。<br>
★ Drives集合：本机驱动器集合，用Drives(驱动器号)来指定每个驱动器，注意驱动器号为字母A-Z，不能用数字作为集合"下标"，要特别注意，如获取C驱动器的可用空间大小：Print lxnDrv.Drives("C").AvailableSpace,其中lxnDrv为一个FileSystemObject对象变量，在Drives驱动器集合中，每一个Drive元素代表一个Drive对象，也可用FileSystemObject对象的GetDrive方法获得一个指定的驱动器赋予Drive对象变量，每个Drive对象具有以下属性：<br>
本驱动器的可用空间大小（字节）：AvailableSpace属性；<br>
本驱动器的总空间大小（字节）：TotalSize属性；<br>
驱动器的类型：DriveType属性；可能的返回值有：Fixed(值2)：固定驱动器（硬盘）；Removable(值1)：可移动驱动器（软盘）；CDRom(值4)：光盘驱动器；Ramdisk(值5)：随机存储驱动器；Remote(值3)：网络驱动器；Unknown(值0)：未知类型。<br>
本驱动器采用的文件系统类型（如FAT32）：FileSystem属性；<br>
本驱动器是否准备好：IsReady属性；（可用此属性检测光驱中是否有光盘）<br>
本驱动器的根目录（如C：\）：RootFolder属性；<br>
本驱动器卷标：VolumeName属性；<br>
本驱动器的序列号：SerialNumber属性；<br>
本驱动器的网络共享名：ShareName属性；<br>
本驱动器的剩余空间大小：FreeSpace属性；（含坏扇区，故不全同于可用空间）<br>
FileSystemObject对象有以下一些主要方法：<br>
★ 移动文件：MoveFile方法，将文件从一个路径移到另一路径。（相当于剪切文件）如：lxnDrv.MoveFile "c:\abc.wav","e:\xx.wav"。<br>
★ 移动目录：MoveFolder方法：会移动目录下包含的全部文件。 <br>
★ 复制文件：CopyFile方法，相当于VB内置的FileCopy语句；<br>
★ 复制整个目录：CopyFolder方法，会复制这个目录下的所有文件，如：<br>
lxnDrv.CopyFolder "c:\viavoice" "e:\lxn"<br>
★ 删除文件：DeleteFile方法：删除文件，说明：其第一个参数是要删除的文件，第二个参数是说明是否强行删除（如果文件是只读或隐含等）。相当于Kill语句。<br>
★ 删除目录：DeleteFolder方法；会删除目录下所有文件，注：不会进入回收站。<br>
★ 创建文本文件：CreateTextFile方法；如：lxnDrv.CreateTextFile "c:\abc.txt"。<br>
★ 创建目录：CreateFolder方法；相当于Mkdir语句。<br>
★ 获得文件扩展名：GetExtensionName方法，Print lxnDrv.GetExtensionName("c:\a.wav")<br>
★ 打开文本文件：OpenTextFile方法；<br>
★ 获取输入/输出文本流：GetStandardStream方法：第一个参数可选StdIN(值0)输入流或stdOut(值1)输出流。？？<br>
★ 获取一个文件夹（目录）对象：用GetFolder方法将一个文件夹对象赋给一个文件夹对象变量，然后读取该文件夹的有关属性。<br>
★ 获取一个文件对象：用GetFile方法将指定路径的文件赋予一个文件对象变量，以读取文件的有关属性，如获取文件的创建时间，修改时间等。例如：<br>
Dim lxn As New Scripting.FileSystemObject<br>
Dim yqs As File<br>
Private Sub Command1_Click()<br>
Set yqs = lxn.GetFile("e:\cde.wav")<br>
Print yqs.DateCreated<br>
End Sub<br>
文件对象File和文件夹对象Folder的属性如下：<br>
文件(夹)的创建时间：DateCreated属性；<br>
文件(夹)的最后访问时间：DateLastAccessed属性；<br>
文件(夹)的最后修改时间：DateLastModified属性；<br>
文件(夹)大小（字节数）：Size属性；<br>
文件(夹)类型：Type属性；如返回值"文本文档"。<br>
文件(夹)所在的全路径：Path属性；<br>
文件(夹)的DOS格式短文件名：ShortName属性；<br>
文件(夹)的DOS格式路径：ShortPath属性；<br>
文件(夹)所在的驱动器：Drive属性；<br>
文件(夹)不含路径的纯文件(夹)名：Name属性；<br>
复制、删除、移动文件(夹)：Copy方法；Delete方法；Move方法。<br>
另外，文件夹对象即目录对象独有以下属性：<br>
Files集合：该文件夹包含的文件集合；<br>
SubFolders集合：该文件夹包含的子目录（子文件夹）集合；<br>
是否为根目录：IsRootFolder属性；<br>
而文件对象独有以下属性：<br>
以文本流方式打开文件：OpenAsTextStream方法。<br>
====================================<br>
MS Internet Controls对象库<br>
这是IE浏览器对象库,与"部件"中的WebBrowser控件一致，但功能更多。<br>
声明IE浏览器：Dim lxn As New SHDocVw.InternetExplorer。浏览器对象internet explorer包含在SHDocVw顶层对象之内。下例是简单使用IE对象的代码：<br>
Dim lxn As New SHDocVw.InternetExplorer<br>
Private Sub Form_Load()<br>
lxn.Visible = True '显示浏览器窗口。<br>
lxn.Navigate "c:\my documents\my webs\index.htm" '链接到指定页面。<br>
lxn.AddressBar = False '不在窗口中显示地址栏。<br>
lxn.MenuBar = False '不在窗口中显示菜单栏。<br>
lxn.ToolBar = False '不显示工具栏。<br>
lxn.StatusBar = False '不显示状态栏。<br>
End Sub </p>
<p>Office对象库：<br>
在VB中可以控制OFFICE应用软件自动实现某些功能，这就是VBA。<br>
在VB环境中可以在对象库中将Word,Excel等对象库加载，然后用对象变量对其进行操作和控制。使Word或Excel就象VB中的1个控件那样，用它们包含的方法和属性及子对象来实现一切可以实现的操作功能。举例说明：①先当然是要在对象库中加载Office对象库，这里加载MS Excel 9.0 Object Library.②Excel就变成了程序中的'控件'，要将控件添加到程序中去变为"对象"，就要定义对象变量，最简单就是Dim lxn as new Excel.Application不过一般常用的还是Dim lxn as Object ; Set lxn=CreateObject("Excel.Application")，需要说明的经验是所有的Office对象库，我们都用其Application对象，记住这点就行了。③接下来就要说明1下Excel.Application对象中到底有些什么东西。我们就干脆把"Excel.Application对象"叫做"Excel对象"得了，先想，Excel下含有什么呢？--在Excel下有工作簿，在工作簿下有工作表；就这两层父子关系，在Excel对象下包含有WorkBooks工作簿集合，在一个WorkBook下包含有WorikSheets工作表集合；就这两层"子对象"或"子子对象"。记住了。现在刚刚定义了Excel对象，这里就要为这个新的空Excel对象建立工作簿子对象，和工作表子子对象，以供我们对工作表操作，这样：<br>
Dim lxnBook as Object<br>
Dim lxnSheet as Object <br>
Set lxnBook=lxn.WorkBooks().Add 怎样？WorkBooks集合也有Add方法，废话。<br>
Set lxnSheet=lxnBook.WorkSheets("sheet1")新建1个工作簿时会自动新建3个表，所以这里就不用Add，直接指定并赋给变量lxnSheet就行了，这是一点特殊之处，记住就行。④现在就等于我们打开了Excel,且又创建了1个缺省工作簿，并将'光标'就放到了Sheet1上，就等我们在单元格中输入数据了，告诉你--给Excel对象'Range(单元格地址)'（指定1个'单元格对象'）的Value属性赋值就行了。如：lxn.Range("d3").Value = "李新宁"，在D3单元格写入"李新宁"三个字。再如给C4-G7单元格区域中每个单元格赋值0：lxn.Range("C4:G7").Value=0.⑤任意地对单元格进行操作吧。最后要保存工作簿，用工作簿子对象的SaveAs方法，格式：工作簿对象变量.SaveAs 路径和文件名。注意要把保存的文件名后缀写为xls,以便与Excle程序关联。如：lxnBook.SaveAs "c:\abc.xls",大致完了，扫尾工作是将引用的对象库从内存中清除，lxn.Quit，毕。<br>
上面是个从头到尾都在VB中操作Excel的例子。操作Word也一 样，不过Word对象包含的子对象不同，在定义好Word对象后，应新添1个Document文档子对象(注:更常用Selection对象)，并在Document文档子对象下新添1个段落子子对象，然后在段落中加入文本，并用文档子对象的SaveAs方法保存文档。如下例：<br>
Dim lxn As New Word.Application 'Word对象<br>
Dim doc As Document 文档子对象。<br>
Dim duan As Paragraph '段落子子对象<br>
Private Sub Command1_Click()<br>
Set doc = lxn.Documents().Add '新建文档。<br>
Set duan = doc.Paragraphs().Add '新添1段。<br>
duan.Range.Text = "你好，这一篇文章就这一行文字。" 在段中写入文字。.<br>
doc.SaveAs "c:\abcd.doc" '保存文档。<br>
lxn.Quit '这句别丢，否则程序退出后，Word仍在内存中，它可会占大量内存。<br>
End Sub <br>
技巧:你是不是为Word对象所包含的方法属性和子对象太多而感苦恼呢?其实不要紧,有一个简便方法可以帮助我们迅速掌握它们,就是在Word软件中,单击"工具"菜单"宏"中的"录制宏"菜单项,这时你所做的操作都会被VBA用代码的形式记录下来,这些代码用的就是Word对象库中的方法属性及子对象,所以,只要我们有意去尝试某个操作如存盘或打印等,Word就会自动生成对应的宏代码,只要打开宏代码,我们就能知道--哦，原来这几句代码（中用的方法属性）就是实现这种功能的。妙！说明：在宏代码中，经常出现１个对象Selection,它是Word.Application即Word对象的子对象。<br>
事实上,我们要实现自动的操作,通常的作法都是把Word中录制的宏代码粘贴到VB中去,以省去麻烦的一步一步的写代码,因为这样做太费事且又抽象,用Word的录制宏功能,可给绝大部分操作自动生成代码,很轻松地就可生成数量可观的大量代码,完成许多步操作,在将代码粘贴到VB中后,要作一点加工：就是把全部宏代码包含到1个With (word对象)…End With结构中,然后在每个Selection子对象前加上个点号"."。值得提醒的三点是：1，在录制宏的过程中，不是所有的操作都能被宏正确无误地识别，不要使用"Shift+方向键"选中某一处文字，进行格式化（如调整字体字号对齐方式）等操作，宏难于精确定位你选中了文档中哪几个位置上的文字，有时会搞错；要格式化某处文字，应在输入这些文字前设好格式；2，在录制宏的过程中，如果向文档输入文本，尽量从头到尾的顺序输入，不要总是移动插入点，在这个位置插入几个字，在那个位置插入几个字，这样宏也难于精确定位，有时会搞错；3，录制宏的过程中，尽量多用工具条上的按纽来完成操作，少用Word的菜单，因为每一步菜单操作几乎都会自动生成一大段的with…end with结构宏代码，虽然全面，但很多缺省选项其实都可不要，而工具栏上的1个按纽一般就只生成1句宏代码，精练！高效。</p>
<p align="center">
<br>
< <a href="040111.htm">上一页</a>--<a href="http://www.xxby.com" target="_blank">华生小屋</a>--<a href="050201.htm">下一页</a>
><br>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -