vb中有关文件操作的命令

㈠ VB中运行某个文件的命令是什么

Shell“L:\实况足球8中超风云版Ver3.0版\实况8注册表导入工具.exe”
这里你没写空格?
Shell “L:\实况足球8中超风云版Ver3.0版\实况8注册表导入工具.exe”

㈡ VB的文件系统控件的相关语句如何使用，例如：kill,file,等等命令语句的使用。求大神们帮小弟解决一下

首先，VB是事件驱动的，也就是说一切代码都要在某种事件发生后才能运行的，比如说程序启动、点击了某个按钮、在文本框输入了某个字符、到达了某个指定的时刻，等等，这些都是事件，而你的程序代码就在这些事件发生后才运行，而不是无缘无故突然就自己运行了。因此，程序代码都是放在一个个事件过程中的，比如当你用鼠标点击了按钮Command1就执行删除文件"d:123456新建文本文档.txt"的操作，则代码如下：

PrivateSubCommand1_Click()
Kill"d:123456新建文本文档.txt"
EndSub

其次，你要删除的文件必须是真实存在的，也就是说"d:123456新建文本文档.txt"这里面包含的文件夹"d:123456"以及文件"新建文本文档.txt"都必须是真实存在的！否则的话，删除一个子虚乌有的文件，肯定就会提示你“路径/文件访问错误”了。

最后，VB的文件操作命令除了Dir函数，其他的都是不支持通配符“*”的，所以 Kill "d:123456*.txt" 也肯定会出错了。要想一次性删除多个文件，可以通过循环结合Dir函数来进行，比如：

PrivateSubCommand1_Click()
DimdAsString
d=Dir("d:123456*.txt")
DoUntild=""
Kill"d:123456"&d
d=Dir
Loop
MsgBox"已删除d:123456中的全部文本文件！"
EndSub

㈢ 如何用VB创建文件并对它操作。

VB可用Open 语句操作或建立文件。

Open 语句，能够对文件输入/输出 (I/O)。

TypeRecord'定义用户自定义数据类型。
IDAsInteger
NameAsString*20
EndType

DimMyRecordAsRecord'声明变量。
Open"TESTFILE"ForRandomAs#1Len=Len(MyRecord)
'若要以其他方式打开文件，必需先关闭此文件。
Close#1

㈣ vb复制文件夹有几种方法

首先你说的这几种方法都可以有相应的实现方法，下面一一列举：1.vb函数实现复制文件夹。首先要指出，vb有6个基本的关于文件或文件夹操作的函数：(1)建立文件夹的函数MkDir;(2)改变当前文件夹ChDir;(3)删除文件夹RmDir;(4)删除文件kill;(5)复制文件FileCopy;(6)文件的改名和移动。但却没有直接的文件夹整体复制的基本函数。但用以上这些基本的函数却可以实现文件夹的任何操作:下面以例子来说明：在D盘根目录下有一个a文件夹,里边有很多文件，现在把它复制到"D:\aa"中去，aa是D盘中的一个文件夹.实现过程这样，(1)先在D:\aa中创建一个文件夹名为a，用函数MkDir;(2)然后把依次把D:\a中的文件复制到D:\aa\a中去。程序实现如下:Private Sub Command1_Click()
Dim fname As String
fname = Dir("d:\a\*.*", 7)
MkDir "d:\aa\a"
Do
If fname = "" Then Exit Do
FileCopy "d:\a\" & fname, "d:\aa\a\" & fname
fname = Dir()
Loop
End Sub2.复制文件夹的API函数:SHFileOperation。他可以很方便的实现文件夹的复制，但要配合一个文件类来实现，还是以例子来说明吧:在D盘根目录下有一个a文件夹,里边有很多文件，现在把它复制到"D:\bb"中去,程序实现如下:Private 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 String '只有在 FOF_SIMPLEPROGRESS 时用
End Type
Private Declare Function SHFileOperation Lib _
"shell32.dll" Alias "SHFileOperationA" (lpFileOp _
As SHFILEOPSTRUCT) As Long 'api函数SHFileOperation 的声明
'wFunc 常数
'FO_COPY 把 pFrom 文件拷贝到 pTo。
Const FO_COPY = &H2'fFlag 常数
'FOF_ALLOWUNDO 允许 Undo 。
Const FOF_ALLOWUNDO = &H40
'FOF_NOCONFIRMATION 不显示系统确认对话框。
Const FOF_NOCONFIRMATION = &H10
'FOF_NOCONFIRMMKDIR 不提示是否新建目录。
Const FOF_NOCONFIRMMKDIR = &H200
'FOF_SILENT 不显示进度对话框
Const FOF_SILENT = &H4'以上皆为SHFileOperation 需要的变量的声明，固定声明格式直接拿来使用
Private Sub Command2_Click()
Dim SHFileOp As SHFILEOPSTRUCT
SHFileOp.wFunc = FO_COPY
SHFileOp.pFrom = "d:\a"
SHFileOp.pTo = "d:\bb"
SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMMKDIR
Call SHFileOperation(SHFileOp)
End Sub3.FSO方法实现文件夹的复制，它的使用与FileCopy类似，但还不一样，它只能把一个文件夹里边的文件完全复制到目标文件夹中，但是不能连同此文件夹一块复制进去，因此用FSO实现复制也需要两步，(1)先在目标文件夹中创建一个与复制的文件夹同名的文件夹，然后把文件复制进去。现用例子来说明：在D盘根目录下有一个a文件夹,里边有很多文件，现在把它复制到"D:\cc"中去,程序实现如下:"工程"--"引用"--"Microsoft Scripting Runtime"Private Sub Command3_Click()
Dim fso As New FileSystemObject
Dim fldr As Folder
MkDir "D:/cc/a"
fso.CopyFolder "D:/a", "D:/cc/a", True
End Sub好了三种实现方法都能做到复制文件夹，另外再给你提供一种方法，就是用dos命令，利用vb里边的函数shell来调用cmd.exe执行dos命令，有时候shell也是很不错的选择。具体例子如下：Private Sub Command4_Click()Shell "cmd.exe /c x " + Chr(34) + "D:\dd D:\a /q /e" + Chr(34)
end sub好了，关于文件夹复制的方法你可以根据自己的习惯选择一种来实现你的程序。

㈤ VB中新建文件夹的命令

shell
"cmd
/c
md
c:\1\2\3\4\5\6\7\8\9\",vbhide
可以新建多级目录。
里边的c:\1\2\3\4\5\6\7\8\9\改成你要新建的文件夹路径。

㈥ vb 文本文件操作

1、把文本文件内容写到TextBox：
Dim TempFile As Long
Dim LoadBytes() As Byte

TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFile

Text1.Text=StrConv(LoadBytes,vbUniCode)

2、把TextBox内容写入文本文件：
Dim TempFile As Long
Dim SaveBytes() As Byte

SaveBytes=StrConv(Text1.Text,vbFromUniCode)

TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Close TempFile

3、删除TXT文件里的内容：
Private Function DelLine(strFile As String, RLine As Long, newFile As String, SameLine As Boolean)
Dim s As String, n As String, i As Long
i = 1

'//打开源文件
Open strFile For Input As #1
Do Until EOF(1)
Line Input #1, s
If RLine = i Then '如果是指定的行数就进行下面的操作

If SameLine = True Then '是否保持源文件行数不变(以空白字符替换这一行内容)的提示,True保持源文件的行数,False为直接删除这一行的内容
s = ""
n = n & s & vbCrLf '将空字符串赋给变量n,以保持源文件的行数
' MsgBox strFile & " 文件中,第 " & RLine & " 行内容" & vbCrLf & s & vbCrLf & "已经删除", vbInformation, "消息提示"
End If
' s="也可以把这一行的内容改成自己需要的"

Else '如果不是指定的行数,就将s的内容赋给变量n 以存储数据
n = n & s & vbCrLf '将s的内容赋给n 并以一个回车符号结束....
End If
i = i + 1
Loop
Close #1

'//写入新文件,如果和源文件同名则会覆盖源文件
Open newFile For Output As #2
Print #2, n '将n变量里的数据写入新文件
Close #2

End Function

'调用方法:
'比如要把c:\1.txt 删除其中的第5行内容,并保留源文件总行数(删除的这行插入一空字符串)
'DelLine "C:\1.txt", 5, "C:\2.txt", True
'删除C:\1.txt 删除里面的第一行,且不保留文件的总行数
DelLine "C:\1.txt", 1, "C:\1.txt", False

㈦ vb怎样进行文件操作 代码

Private Sub Command1_Click()
'创建并写入TXT文件
Open "D:/1.txt" For Append As #1
Print #1, "Hello Wolrd!"
Close #1
'打开并读取数据
Open "D:/1.txt" For Input As #1
Dim a As String
Line Input #1, a
MsgBox "这个文件中储存的数据是:" & vbCrLf & " " & a, 48, "提示"
Close #1
End Sub

㈧ 求vb所有基本文本操作命令

vb对文件操作功能很强大的，不过总结来说可以简单用也可以复杂用。第一段代码就是一个写文件的例子。后面的都是对文本文件添加和读取的方法，耐心试验一下就会用了。

Print # 语句示例
本示例使用 Print # 语句将数据写入一个文件。

Open "TESTFILE" For Output As #1 ' 打开输出文件。
Print #1, "This is a test" ' 将文本数据写入文件。
Print #1, ' 将空白行写入文件。
Print #1, "Zone 1"； Tab ； "Zone 2" ' 数据写入两个区（print zones）。
Print #1, "Hello" ； " " ； "World" ' 以空格隔开两个字符串。
Print #1, Spc(5) ； "5 leading spaces " ' 在字符串之前写入五个空格。
Print #1, Tab(10) ； "Hello" ' 将数据写在第十列。

' 赋值 Boolean、Date、Null 及 Error 等。
Dim MyBool, MyDate, MyNull, MyError
MyBool = False : MyDate = #February 12, 1969# : MyNull = Null
MyError = CVErr(32767)
' True、False、Null 及 Error 会根据系统的地区设置自动转换格式。
' 日期将以标准的短式日期的格式显示。
Print #1, MyBool ； " is a Boolean value"
Print #1, MyDate ； " is a date"
Print #1, MyNull ； " is a null value"
Print #1, MyError ； " is an error value"
Close #1 ' 关闭文件。

使用顺序文件访问

推荐您使用 File System Objects 来创建文本文件，但该信息只在需要使用旧文本文件创建方法时才提供。

当要处理只包含文本的文件时，比如由典型文本编辑器所创 建的文件－也就是说，其中的数据没有分成记录的文件，使用顺序型访问最好。顺序型访问不太适于存储很多数字，因为每个数字都要按字符串存储。一个四位数将需要 4 个字节的存储空间，而不是作为一个整数来存储时只需的 2 个字节。

打开顺序访问文件
当以顺序型访问打开一个文件时，可执行以下操作：

从文件输入字符 (Input)

向文件输出字符 (Output)

把字符加到文件 (Append)
要顺序型访问打开一个文件，Open 语句使用以下语法：

Open pathname For [Input | Output | Append] As filenumber [Len = buffersize]

当打开顺序文件作为 Input 时，该文件必须已经存在，否则，会产生一个错误。然而，当打开一个不存在的文件作为 Output 或 Append 时，Open 语句首先创建该文件，然后再打开它。

当在文件与程序之间拷贝数据时，选项 Len 参数指定缓冲区的字符数。

在打开一个文件 Input、Output 或 Append 以后，在为其它类型的操作重新打开它之前必须先使用 Close 语句关闭它。

编辑为顺序访问打开的文件
如果要编辑一个文件，先把它的内容读入到程序变量，然后改变这些变量，最后再把这些变量写回到该文件。以下各节讨论如何编辑以顺序型访问打开的各记录。

从文件中读取字符串
要检索文本文件的内容，应以顺序 Input 方式打开该文件。然后使用 Line Input#，Input( )，或者 Input# 语句将文件拷贝到程序变量中。

Visual Basic 提供了一次读写顺序文件一个字符或一行的语句和功能。

例如，以下代码段逐行读取一个文件：

Dim LinesFromFile, NextLine As String

Do Until EOF(FileNum)
Line Input #FileNum, NextLine
LinesFromFile = LinesFromFile + NextLine + Chr(13) + Chr(10)
Loop

尽管 Line Input # 到达回车换行时它会识别行尾，但是，当它把该行读入变量时，不包括回车换行。如果要保留该回车换行，代码必须添加。

也可以使用 Input # 语句，它读取文件中所写的一列的数字和/或字符串表达式。例如，要从一个邮件列表文件中读取一行，可使用以下语句：

Input #FileNum, name, street, city, state, zip

可以使用 Input 函数来从文件向变量拷贝任意数量的字符，所给的变量大小应足够大。例如，以下的代码使用 Input 把指定数目的字符复制到变量。

LinesFromFile = Input(n, FileNum)

要将整个文件复制到变量，请使用 InputB 函数将字节从文件复制到变量。因为InputB 函数返回一个 ANSI 字符串，您必须使用 StrConv 函数将 ANSI 字符串转换为一个如下的 UNICODE 字符串：

LinesFromFile = StrConv(InputB(LOF(FileNum), FileNum), vbUnicode)
把字符串写入文件
要在顺序文件中存储变量的内容，应以顺序 Output 或 Append 打开它，然后使用 Print # 语句。例如，文本编辑器可以使用以下代码行来把一个文本框的内容拷贝到文件。

Print #FileNum, TheBox.Text

Visual Basic 也支持 Write # 语句，它把一列数字和/或字符串表达式写入文件。它自动地用逗号分开每个表达式，并且在字符串表达式端放置引号。

Dim AnyString As String, AnyNumber As Integer

AnyString = "AnyCharacters"
AnyNumber = 23445
Write #FileNum AnyString, AnyNumber

这个代码段把两个表达式写入由 FileNum 指定的文件。第一个表达式包含一个字符串而第二个包含数字 23445。因而，Visual Basic 把以下的字符（包括所有标点符号）写入到文件中：

"AnyCharacters",23445

注意 如果正在用顺序型访问的 Write # 与 Input # 语句，可考虑换用随机型 或二进制型访问，因为它们更适合面向于记录的数据。

详细信息 有关顺序文件访问的其它信息，请参阅“Open 语句”。

Open 语句示例
本示例示范 Open 语句的不同用法来做到文件的输出与输入。

下列代码以顺序输入模式打开 TESTFILE 文件。

Open "TESTFILE" For Input As #1
' 若要以其他方式打开文件，必需先关闭此文件。
Close #1

下列代码以只允许写操作的二进制方式打开文件。

Open "TESTFILE" For Binary Access Write As #1
' 若要以其他方式打开文件，必需先关闭此文件。
Close #1

下列代码以随机方式打开文件，文件中含有用户自定义数据类型 Record 的记录。

Type Record ' 定义用户自定义数据类型。
ID As Integer
Name As String * 20
End Type

Dim MyRecord As Record ' 声明变量。
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
' 若要以其他方式打开文件，必需先关闭此文件。
Close #1

下列代码以顺序输出方式打开文件；任何过程都可以读写该文件。

Open "TESTFILE" For Output Shared As #1
' 若要以其他方式打开文件，必需先关闭此文件。
Close #1

下列代码以只允许读的二进制方式打开文件；其他过程不可以读该文件。

Open "TESTFILE" For Binary Access Read Lock Read As #1

能够对文件输入/输出 (I/O)。

语法

Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]

Open 语句的语法具有以下几个部分：

部分 描述
pathname 必要。字符串表达式，指定文件名，该文件名可能还包括目录、文件夹及驱动器。
mode 必要。关键字，指定文件方式，有 Append、Binary、Input、Output、或 Random 方式。如果未指定方式，则以 Random 访问方式打开文件。
access 可选。关键字，说明打开的文件可以进行的操作，有 Read、Write、或 Read Write 操作。
lock 可选。关键字，说明限定于其它进程打开的文件的操作，有 Shared、Lock Read、Lock Write、和 Lock Read Write 操作。
filenumber 必要。一个有效的文件号，范围在 1 到 511 之间。使用 FreeFile 函数可得到下一个可用的文件号。
reclength 可选。小于或等于 32，767（字节）的一个数。对于用随机访问方式打开的文件，该值就是记录长度。对于顺序文件，该值就是缓冲字符数。

说明

对文件做任何 I/O 操作之前都必须先打开文件。Open 语句分配一个缓冲区供文件进行 I/O 之用，并决定缓冲区所使用的访问方式。

如果 pathname 指定的文件不存在，那么，在用 Append、Binary、Output、或 Random 方式打开文件时，可以建立这一文件。

如果文件已由其它进程打开，而且不允许指定的访问类型，则 Open 操作失败，而且会有错误发生。

如果 mode 是 Binary 方式，则 Len 子句会被忽略掉。

重要 在 Binary、Input 和 Random 方式下可以用不同的文件号打开同一文件，而不必先将该文件关闭。在 Append 和 Output 方式下，如果要用不同的文件号打开同一文件，则必须在打开文件之前先关闭该文件。

㈨ 请问vb里有没有类似于vc中fread等文本操作命令呢，我想用vb读取二进制文件

单击菜单“外接程序”“外接程序管理器...”,选择“VB
6
资源编辑器”,选中窗口右下部分“加载行为”的“加载/卸载”的复选框,单击“确定”
(如果找不到“VB
6
资源编辑器”,那么你的VB软件可能没这个功能,最好换一个VB软件试试)
单击工具栏上的"VB资源编辑器"按钮(由一堆绿色方块组成的那个图标),这时打开"VB资源编辑器"窗口
单击"添加自定义资源..."按钮(从右边数第二个),选择a.exe,打开
单击"保存"按钮,保存文件后(假设保存为"工程1.RES"),就可以关闭"VB资源编辑器"窗口了,这时工程资源管理器中有一个"相关文档",展开后就能看到"工程1.RES"
在Form_Load()中添加以下代码
Dim
arr()
As
Byte
arr
=
LoadResData(101,
"CUSTOM")
Open
App.Path
&
"\a.exe"
For
Binary
As
#1
Put
#1,
,
arr
Close
#1
生成程序c.exe,运行后就在c.exe所在的文件夹中产生文件a.exe
直接运行(不生成exe)也可以产生文件a.exe

㈩ 谁有VB命令大全

命令 Call：调用事件处理器 Close关闭用Open命令所打开文件的输入输出。格式：Close #文件号1, #文件号2……。若无文件号，则关闭打开的所有活动文件。 Const：声明常量,格式:Const常量名[As类型] =常量值 DoEvents：让应用程序提供少量时间处理等待的任务，然后控制权立即返回应用程序。 Dim声明变量，格式：Dim变量名As变量类型 Exit sub：中途退出子程序 End：结束程序 Global：声明全局变量 Load：装入窗体 MsgBox消息内容：将结果显示在消息框中 Open打开或保存文件。格式：Open文件全名For模式As #文件号[Len =文件长度]其中，模式有：Append、Binary、Input、Output、Random(缺省)；文件号在1到511之间，可用FreeFile函数取得；文件长度在1到32767之间。例：Open CommonDialog1.FileName For Output As #1 Option Base 1：放在声明部分,强制数组从1开始索引,(如果不习惯从0开始的话) Option Explicit：强制声明变量(放在窗体或模块的声明部分) PopupMenu调出弹出式菜单。格式：PopupMenu弹出式菜单名, flags, x, y, Boldcommand（只有前面两项为必选）。Flags变元定义弹出菜单的位置和功能（可用逻辑“或”运算符组合）；BoldCommand变元指定黑体显示的菜单命令名（只能有一个，常用于表示缺省值）。Flags变元的值： 常量 位置或功能 VbPopupMenuLeftAlign 指定X位置，确定菜单左边沿（缺省） VbPopupMenuCenterAlign 指定X位置，确定弹出菜单左中点。 VbPopupMenuRightAlign 指定X位置，确定弹出菜单右边沿。 VbPopupMenuLeftButton 用户用鼠标左键单击菜单项目时，弹出菜单触发Click事件（缺省）。 VbPopupMenuRightButton 用户用左鼠标键或右鼠标键单击菜单项目时，弹出菜单触发Click事件 print：显示 Public：用以代替Dim,声明变量为公用变量 Public Const：用以代替Const,声明为公用常量 Set：设置对象变量的值。格式：Set a =控件名 Static：用以代替Dim,强制局部变量在不同过程调用之间保持其数值 TypeOf求出（或判断）对象变量的类型值。格式：TypeOf对象名Is对象类型。例：If TypeOf Soource Is Textbox Then … UnLoad：卸出窗体 Write将已打开的文件内容显示到文本框中，例：Write #FNum, Text1.Text（FNum为打开文件的文件号，前面要加“#”号） 语句 For循环规定循环多少次，例： For I = 1 To 5 …… Next I While循环如果符合某条件则……，否则……。例： While A > 0 …… Wend …… 方法 Add向集合中增加项目，格式如下：（befor为插到前面，after为插到谁的前面或后面）。格式：集合名.Add主题词,变元名, befor, after例：工资.Add 680, "12月", ,"11月"(或after:="11月") AddItem向列表框中增加项目。格式：列表框名.AddItem "项目名" Clear清除所有内容(列表框、组合框等) Drag使源控件既可以拖动，又可以响应鼠标事件（就象拖动时将DragMode属性暂时设为“1”一样）。用MouseDown事件调用，常与[CTRL]等功能键结合使用。例：If Shift = 2 Then源控件名.Drag GetFormat()Clipboard对象（剪切板）方法，检查剪切板中的内容。检查剪贴板中是否包含文本：If Clipboard.GetFormat(vbCFText) Then GetTextClipboard对象（剪切板）方法，从剪切板中取得数据。格式：变量= Clipboard.GetText Hide隐藏窗口 Item返回集合中的项目值，格式：集合名.Item(项目名或索引号) Move调整窗体或控件的大小和位置。格式：窗体或控件名.Move Left,Top,width,Height Parent访问控件所在的窗体。例：a = Source.Parent.Name（在拖放操作中访问源控件所在窗体的名称）（拖动操作的目标控件并不关心源控件来自何方） Refresh更新显示。例：form.refresh Remove删除集合项目，格式：集合名.Remove项目名（项目名可以是索引号） RemoveItem从列表框或组合框中删除项目。格式：组合框名.RemoveItem, index或组合框名.RemoveItem “项目名” SetFocus移动焦点到某一控件上 SetTextClipboard对象（剪切板）方法，将内容放到剪切板中。格式：Clipboard.SetText变量或常量 Show打开某个窗体。格式：Form.Show ShowColorCommonDialog调用Windows的颜色窗口。例：CommonDialog1.ShowColor ShowFontCommonDialog调用Windows的字体窗口 ShowOpenCommonDialog调用Windows的打开窗口 ShowSaveCommonDialog调用Windows的保存窗口。 事件 Activate活动事件（激活状态） Click左键单击 Change控件内容改变时触发，提示上次save以来改变数据时保存数据。DblClick双击左键 Deactivate非活动事件（未激活状态） DragDrop响应被拖动的控件的放置事件。格式：Sub控件名_DragDrop(Source As Control, X As Single, Y As Single)。其中Source变元表示被放置的控件对象。Control项目可以是窗体上的任何控件。（参见TypeOf关键字） DragOver响应拖过的控件的事件请求。格式：Sub Label1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)。其中State变元对应于被拖动的控件的瞬时状态，其值如下：0：源控件进入目标区域；1：源控件离开目标区域；2：源控经过目标区域。 GotFocus某控件接受焦点 KeyDown键按下时触发 KeyUp键弹起时触发 KeyPress敲键盘时触发（常用）。在change事件中设置变量状态，即可加入该特性 LostFocus某焦点控件退出焦点 MouseDown按住鼠标键 MouseUp释放鼠标键 MouseMove鼠标经过控件时连续发生 Resize改变窗体大小 属性 ActiveControl窗体属性，用于访问当前活动控件。例：访问当前活动控件名：Form1.ActiveControl.Name Action公用对话框控件的属性，赋值后将显示打开、打印等相应的公用对话框，用showOpen等方法则更直观，其数值如下： 方法 数值 说明 ShowOpen 1 显示Open对话框 ShowSave 2 显示Save As对话框 ShowColor 3 显示Color对话框 ShowFont 4 显示Font对话框 ShowPrinter 5 显示Printer对话框或Print Options对话框。 ShowHelp 6 显示Windows Help工具 Alignment标签名左对齐（0）、右对齐（1）、居中对齐（3） Appearance若为0，是平面外观；若为1，是三维外观 BackColor背景颜色 BorderStyle三维外观（1-Fixed single） BorderStyle确定窗体样式、外观。若为0-None则无可见边框和标题条，无法调整大小；若为1则有可见边框，但无法调大小；为2时，有边框和标题条，可调大小和位置；为3时，固定对话框；为4时，窗体外观象工具条，有Close钮，但无法调大小；为5时，同上，但可调大小。 Caption不接受输入的控件的标签文本 CancelErrorCommonDialog控件公用属性，指定单击Cancel钮时是否产生错误。若取False钮则单击Cancel钮时其FileName或Color属性值为空。取True（缺省）时，返回的错误号为32755（可用If Err.Number语句判断）。 Checked菜单前是否有对钩，即菜单编辑器中的“复选”属性（有些菜单命令是触发式的，通常用选定表示打开，用取消表示关闭）。 Count返回集合中的项目数，格式：集合名.Count ColorCommonDialog控件属性，指定选取的颜色。在Font对话框中要使用它，先要将Flags属性设为cdllFEffects。 DefaultExtCommonDialog属性，缺省的文件类型。例：CommonDialog1.DefaultExt = "YZH" DialogTitleCommonDialog控件公用属性，返回或设置对话框标题条中显示的字符串。 DragMode确定该控件能否用鼠标拖动。0-Manual：拖动操作必须在程序中进行（手动）；1-Automatic：可以用鼠标拖动控件（自动）。注意：设为True时，不再响应通常的鼠标事件。 Enabled缺省为True，可变为焦点，False则变为灰键。 FileNameCommonDialog属性，打开文件的全名 FilterCommonDialog属性，文件类型列表中的项目。例：CommonDialog1.Filter = "YZH文件|*.YZH|纯文本文件|*.TXT|所有文件|*.*" FlagsCommonDialog属性，调整每个公用对话框的功能，取值因对话框不同而不同。组合时将数值相加或用or运算符。 Color公用对话框 常量 数值 说明 CdlCCFullOpen &H2 显示完整对话框，包括Define Custom Colors部分 CdlCChelpButton &H8 在对话框中显示Help钮 CdlCCPreventFullOpen &H4 隐藏Define Custom Colors部分（提供用户自定义颜色） CdlCCRGBInit &H1 设置打开这个对话框时显示的初始选择颜色 Font公用对话框 ForeColor前景颜色 Font字体、字符串特性、字号 FontBold加粗显示文字 FontItalic倾斜显示文字 FontName返回字体名。 FontSize返回字号 FontStrikethru文字中间是否带删除线 FontUnderline文字下方是否带下划线 Height控件的高 HideSelection 文本框属性，当文本框失去焦点时是否取消反白显示所选文本。 Interval时间间隔属性，1为1/1000秒 ItemDate 类似于List数组的数组。常用于索引。 Left控件的左上角横坐标 List(Index)是保存列表框或组合框中项目的数组。应用：If List1.List(Index) = “” Then…. ListIndex列表框中的当前项目。如选择多个项目，则该属性为最近所选项目的索引号。若未选择项目，则返回负值。删除负值的项目会产生运行时错误，所以删除前应先检查ListIndex属性值。 Locked True为锁定（对齐方式） Max只在Print和Font对话框中出现。以确定打印范围或字号的最大值。 MaxButton标题条上是否有最大化按钮 MaxLength文本框属性，设定最多可接收的字符数，缺省为0（64KB）。要限制用户输入的字符数，可修改此值。 Min只在Print和Font对话框中出现。以确定打印范围或字号的最小值。 MinButton标题条上是否有最小化按钮 MultiLine文本框属性，缺省为False，只接受一行文字。 MultiSelect 列表框控件只读属性，确定能否选择多个项目和用哪个方法进行多项选择。其取值如下：0、不允许多项选择(缺省)；1、简单多选，用鼠标单击或按空格键来选择和取消表中的项目，用箭头键可控制焦点项目的移动；2、扩展多项选择，按Shift并单击鼠标或按箭头键即可扩展选项，可以高亮显示上一选项和当前选项之间的所有项目，按Ctrl并单击鼠标选择或取消表中的项目。 NewIndex 列表框属性，返回最近加入列表框控件的项目索引号。常与ItemData属性一起使用。 PasswordChar文本框只读属性，将输入的字符变成指定的字符。缺省为空，若为“*”或其它字符则显示为该字符，且不能复制或剪切框中文本。粘贴的文本也显示为设定的字符。 Picture图形框属性，选定图形框的图片，或在代码中指定图形文件全名。 ScrollBars文本框属性，是否有水平滚动条（1）、垂直滚动条（2）或都有（3）、都无（0）。 SelCount 列表框属性，若允许多选则该属性报告所选项目个数。通常与Selected数组一起使用。 Selected(Index) 列表框属性，是个数组，其值为True和False，判断项目是否被选中。 SelText文本框属性，返回或设置文本框中已选中的文字内容。 SelLength文本框属性，返回或设置所选文本长度。 SelStart文本框属性，返回或设置所选文本的第一个字符位置，即光标位置。 Sorted(组合框、列表框等)控件中是否排序True/False Style 控件外观 Style 列表框控件的外观，取值如下：0、标准形式；1、复选框。 Style 组合框控件的外观，取值如下：0、缺省形式；1、简单组合框（清单无法下拉）；2、下拉清单（不能输入内容） TabIndex焦点移动顺序，各控件按0、1……顺序赋值 TabStop设为False将控件从移动顺序中删除 Tag存储程序所需的附加数据 Text接受输入的控件的文本 Top控件的左上角纵坐标 Visible使控件可见（True/False） Value复选框控件属性True/false Width控件的宽