本文目录索引

• 1，划线这里应该用什么控件，用vscrollbar吗？还是filelistbox？然后代码应该怎么写呀
• 2，VB关于FileListBox的一个问题~高分求助
• 3，vb的filelistbox中打开文件的问题
• 4，VB 怎么检索FileListBox控件里的文件名，如名称有就执行一个动作没有名称就执行另一个
• 5，vb 如何获取FileListBox指定项的值？
• 6，VB的List1控件所有的使用方法
• 7，ole控件的对象
• 8，Filelistbox 用法
• 9，帮帮忙VB题
• 10，请问怎样使用 FileListBox 来保存文件？

1，划线这里应该用什么控件，用vscrollbar吗？还是filelistbox？然后代码应该怎么写呀

由截图看，建议使用 UpDown 控件。 UpDown 控件的表现形式是一对上下箭头按钮，与 Vscrollbar 控件外形类似。 两者的区别在于： Vscrollbar 控件在上下箭头的按钮之间还有一段滚动条，主要用于标识当前的位置等。 UpDown 控件，用户可通过单击这些按钮递增或递减数值。该控件通常要与一个 TextBox控件相关联。 方法如下： 关键点： 1、UpDown 控件的引入： 在VB6.0的菜单中单击【工程】-【部件】，在列表中找到Microsoft Windows Common Controls-26.0 (SP4)，勾选即可。 2、UpDown 控件的属性设置： 效果如下图：

2，VB关于FileListBox的一个问题~高分求助

Private Sub Command1_Click() Dim lngFileLen As Long, b As Long, c As Long, i As Long, j As Long Dim bytB() As Byte, bytC As Byte bytC = 1 lngFileLen = FileLen(Dir1.Path & "\" & File1.FileName) ReDim bytB(1 To lngFileLen) As Byte Open Dir1.Path & "\" & File1.FileName For Binary As #1 Get #1, , bytB() For j = 1 To lngFileLen - 2& If bytB(j + 1) = &H7E And bytB(j + 2) = &H7E Then Put #1, j, bytC Next j Close #1 End Sub '这段是CommandButton执行的命令，对FileListBox里面的bin后缀格式的文件进行修改。

3，vb的filelistbox中打开文件的问题

如果是可执行文件可以直接用Shell 那就简单了 不过这里是打开任意文件 需要使用函数ShellExecute 使用这个函数需要先声明 就是在最头部的通用部分写下如下声明
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

然后就能使用这个函数了 给你提供我刚写的一个样例代码 双击打开任意文件
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_DblClick()
Dim astr As String
Dim myopen

astr = Dir1.Path
If Right(astr, 1) "\" Then astr = astr & "\"

myopen = ShellExecute(0, "open", astr & File1.FileName, "", "", 1)
End Sub

调试通过 绝对没问题

4，VB 怎么检索FileListBox控件里的文件名，如名称有就执行一个动作没有名称就执行另一个

Private Sub Command1_Click()
Dim H As Boolean
H = False
For i = 0 To File1.ListCount - 1
If File1.List(i) = "1.txt" Then
H = True
Exit For
End If
Next i
If H = True Then
Shell "Notepad.exe " & File1.Path & "\" & File1.List(i), vbNormalFocus
Else
MsgBox "没有可以打开的文件"
End If
End Sub

Private Sub Form_Load()
File1.Path = "E:\编程代码"
End Sub

5，vb 如何获取FileListBox指定项的值？

在 VB6.0中新建一工程并命名为 vbreg.vbp，删去其中所有窗体，在工程资源管理器中点击右键，选择添加模块，并命名为 vbreg.bas。双击reg.bas，输入如下代码： Dim avntSettings As Variant Dim intX As Integer avntSettings = GetAllSettings(“VB 6 API 声明加载器”, “File List”) For intX = 0 To UBound(avntSettings, 1) Debug.Print avntSettings(intX, 0), avntSettings(intX, 1) Next intX 上面这段程序首先用 GetAllSettings 函数检索“VB 6 API 声明加载器”子键File List部分的两个注册表项的值，并将其结果显示在立即窗口中。开始运行前请按+确保立即窗口显示在屏幕上。同时请打开注册表，以便将标准位置\VB 6 API 声明加载器\File List的键值与结果进行对照。 下面这段程序用 SaveSetting 语句在标准位置下建立名为“我的工程\我的子键”的子键，然后使用 GetSetting 函数来得到其中一项设置值并显示出来。因为有传入参数default，GetSetting 函数一定会有返回值。 请注意，区域名称不能用GetSetting 函数取得。最后，使用 DeleteSetting 语句将该子键删除。 SaveSetting “我的工程”, “我的子键”, “Top”, 75 SaveSetting “我的工程”, “我的子键”, “Left”, 50 Debug.Print “Top”, GetSetting(“我的工程”, “我的子键”, “Top”, “25”) Debug.Print “Left”, GetSetting(“我的工程”, “我的子键”, “Left”, “0”) ’为了便于观察，调试可以在此处设置断点，同时切换到注册表，按下键刷新，即可看到自己建立的子键及其键值 DeleteSetting “我的工程”, “我的子键” ’运行完毕后再次切换到注册表并按下键刷新，观察己建立的子键及其键值是否被删除 说明: 运行本程序前，需先确保启动VB时已自动加载“API文本浏览器”，且在API文本浏览器中的“文件”菜单下有打开过的“文本文件”列表。否则，请先打开“API文本浏览器”，并在“文件”菜单下选择“打开文本文件”，打开至少一个文本文件或数据库。 Windows API 的注册表编程 VB自身虽提供了四个关于注册表的函数，但是这些函数只能在“HKEY_CURRENT_USER\ Software\VB and VBA ProgramSettings”下读取、删除、修改键值。这对于一般的应用程序利用它们可以达到目的，如果想对其他的非“标准位置”的主键或子键进行访问，该怎么办？此时，必须借助Windows API的帮助。 在Windows内部， 每一个键都会对应到一个 Key Handle(等于一个长整数值，程序中通常以 hKey表示)，Windows之所以要以hKey来代表键是为了让注册表的存取更有效率，因为整数的操作效能要优于字符串， 所以我们首先来了解如何取得键的 Key Handle(即hKey)。位于最上层的键，有HKEY_CLASSES_ROOT、HKEY_CURRENT

6，VB的List1控件所有的使用方法

AddItem 方法
用于将项目添加到 ListBox 或 ComboBox 控件，或者将行添加到 MS Flex Grid 控件。不支持命名参数。语法object.AddItem item, indexAddItem 方法的语法包含下列部分：:部分 描述
object 必需的。一个对象表达式，其值为“应用于”列表中的一个对象。
Item 必需的。字符串表达式，它用来指定添加到该对象的项目。这仅仅对于 MS Flex Grid 控件，才能使用 tab字符（字符代码 09）分隔将要插入到新添加行中每列的多重字符串。
Index 可选的。是整数，它用来指定新项目或行在该对象中的位置。对于 ListBox 或 ComboBox 控件的首项，或者对于 MS Flex Grid 控件的首行，index 为 0。
说明如果所给出的 index 值有效，则 item 将放置在 object 中相应的位置。如果省略 index，当 Sorted 属性设置为 True 时，item 将添加到恰当的排序位置，当 Sorted 属性设置为 False 时， item 将添加到列表的结尾。绑定到 Data 控件的 ListBox 或 ComboBox 控件不支持 AddItem 方法。
Clear 方法（Clipboard、ComboBox、ListBox）
用于清除 ListBox，ComboBox 或系统剪贴板的内容。语法object.Clearobject 所在处代表一个对象表达式，其值为“应用于”列表中的一个对象。说明绑定到 Data 控件的 ListBox 或 ComboBox 控件不支持 Clear 方法。
Drag 方法
用于除了 Line、Menu、Shape、Timer 或 CommonDialog 控件之外的任何控件的开始、结束或取消拖动操作。不支持命名参数。语法object.Drag actionDrag 方法的语法包含下列部分：部分 描述
object 必需的。是一个对象表达式，其值为“应用于”列表中的一个对象。 如果省略 object，则认为该对象事件过程包含有 Drag 方法。
action 可选的。是一个常数或数值，如“设置值”中所描述的，它指定要执行的动作。如果省略 action，则缺省值为开始拖动对象。
设置值action 的设置值有：常数 值 描述
vbCancel 0 取消拖动操作
vbBeginDrag 1 开始拖动 object
vbEndDrag 2 结束拖放 object
说明上述常数在 Visual Basic (VB) 对象浏览器的对象库里列出。只有当对象的 DragMode 属性设置为手工（0）时，才需要使用 Drag 方法控制拖放操作。但是，也可以对 DragMode 属性设置为自动（1 或 vbAutomatic）的对象使用 Drag。如果在拖动对象过程中想改变鼠标指针形状，使用 DragIcon 或 MousePointer 属性。如果没有指定 DragIcon 属性，则只能使用 MousePointer 属性。Drag 方法一般是同步的，这意味着其后的语句直到拖动操作完成之后才执行。然而，如果该控件的 DragMode 属性设置为 Manual (0 or vbManual)，则它可以异步执行。
Move 方法
用以移动 MDIForm、Form 或控件。不支持命名参数。语法object.Move left, top, width, heightMove 方法的语法包含下列部分：部分 描述
object 可选的。一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 object，带有焦点的窗体缺省为 object。
left 必需的。单精度值，指示 object 左边的水平坐标 (x-轴)。
top 可选的。单精度值，指示 object 顶边的垂直坐标 (y-轴)。
width 可选的。单精度值，指示 object 新的宽度。
height 可选的。单精度值，指示 object 新的高度。
说明只有 left 参数是必须的。但是，要指定任何其它的参数，必须先指定出现在语法中该参数前面的全部参数。例如，如果不先指定 left 和 top 参数，则无法指定 width 参数。任何没有指定的尾部的参数则保持不变。对于 Frame 控件中的窗体和控件，坐标系统总是用缇 。移动屏幕上的窗体或移动 Frame 中的控件总是相对于左上角的原点 (0,0)。移动 Form 对象或 PictureBox 中的控件（或 MDIForm 对象中的 MDI 子窗体）时，则使用该容器对象的坐标系统。坐标系统或度量单位是在设计时 用 ScaleMode 属性设置。在运行时 使用 Scale 方法可以更改该坐标系统。
OLEDrag 方法
引起部件初始化 OLE 拖放操作。语法object.OLEDragobject 所在处代表对象表达式，其值是“应用于”列表中的一个对象。说明当调用 OLEDrag 方法时，部件的 OLEStartDrag 事件发生，允许向目标部件提供数据。
Refresh 方法
强制全部重绘一个窗体或控件。语法object.Refresh object 所在处代表一个对象表达式，其值是“应用于”列表中的一个对象。说明在下列情况下使用 Refresh 方法： 在另一个窗体被加载时显示一个窗体的全部。
更新诸如 FileListBox 控件之类的文件系统列表框的内容。
更新 Data 控件的数据结构。
Refresh 方法不能用于 MDI 窗体，但能用于 MDI 子窗体。不能在 Menu 或 Timer 控件上使用 Refresh 方法。通常，如果没有事件发生，窗体或控件的绘制是自动处理的。但是，有些情况下希望窗体或控件立即更新。例如，如果使用文件列表框、目录列表框或者驱动器列表框显示当前的目录结构状态，当目录结构发生变化时可以使用 Refresh 更新列表。可以在 Data 控件上使用 Refresh 方法来打开或重新打开数据库（如果 DatabaseName, ReadOnly, Exclusive 或 Connect 属性的设置值发生改变），并能重建控件的 Recordset 属性内的 dynaset。
RemoveItem 方法
用以从 ListBox 或 ComboBox 控件中删除一项，或从 MS Flex Grid 控件中删除一行。不支持命名参数。语法object.RemoveItem indexRemoveItem 方法的语法包含下列部分：部分 描述
object 必需的。一个对象表达式，其值为“应用于”列表中的一个对象。
index 必需的。一个整数，它表示要删除的项或行在对象中的位置。对于 ListBox 或 ComboBox 中的首项或 MS Flex Grid 控件中的首行，index = 0。
说明被绑定到 Data 控件的 ListBox 或 ComboBox 不支持 RemoveItem 方法。
SetFocus 方法
将焦点移至指定的控件或窗体。语法object.SetFocusobject 所在处代表对象表达式，其值是“应用于”列表中的一个对象。说明对象必须是 Form 对象、MDIForm 对象或者能够接收焦点的控件。调用 SetFocus 方法以后，任何的用户输入将指向指定的窗体或控件。焦点只能移到可视的窗体或控件。因为在窗体的 Load 事件完成前窗体或窗体上的控件是不可视的，所以如果不是在 Form_Load 事件过程完成之前首先使用 Show 方法显示窗体的话，是不能使用 SetFocus 方法将焦点移至正在自己的 Load 事件中加载的窗体的。也不能把焦点移到 Enabled 属性被设置为 False 的窗体或控件。如果已在设计时将 Enabled 属性设置为 False，必须在使用 SetFocus 方法使其接收焦点前将 Enabled 属性设置为 True。
ShowWhatsThis 方法
显示 Windows 95 Help 所提供的“这是什么”弹出式窗口使用的 Help 文件中选定的一个主题。语法object.ShowWhatsThisobject 所在处代表一个对象表达式，其值是“应用于”列表中的一个对象。说明ShowWhatsThis 方法对于从应用程序上下文菜单中提供上下文敏感 Help非常有用。该方法显示语法中指定对象的 WhatsThisHelpID 属性所标识的主题。
ZOrder 方法
将指定的 MDIForm，Form 或控件放置在其图层的z-顺序的前端或后端。不支持命名参数。语法object.ZOrder positionZOrder 方法的语法包含下列部分：部分 描述
object 可选的。一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 object，则具有焦点的 Form 对象缺省为 object。
Position 可选的。一个整数，它用以指示 object 相对于同一 object 其它实例的位置。如果 position 为 0 或被省略，则 object 定位在Z-顺序前面。如果 position 为 1，则 object 定位在Z-顺序后面。
说明在设计时选择“编辑”菜单中的“置前”或“置后”菜单命令，可以设置对象的Z-顺序。在 MDIForm 对象内，Zorder 根据 position 的数值决定将 MDI子窗体放置到 MDI 客户区的前面或后面。对于 MDIForm 或 Form 对象，Zorder 根据 position 的数值决定将窗体放置到屏幕的前面或后面。因此，窗体可以显示在其它运行中的应用程序的前面或后面。有三个图层与窗体和容器相关联。后层是显示图形方法结果的绘图空间。下一个是中层，用来显示图形对象和 Label 控件。前层显示所有非图形控件，如 CommandButton、CheckBox 或 ListBox。靠近前层的层中包含的东西将覆盖该层后面的各层包含的东西。Zorder 只对该对象在其中显示的那一层内的各个对象进行重排。

7，ole控件的对象

VB提供了一个OLE容器控件（在工具箱中），用于容纳“链接”对象或“嵌入”对象，也就是说，可以使用OLE容器控件来插入对象。当然，也可用其它方法来插入对象。如：通过在工具箱中添加对象的类来插入对象，具体操作步骤为：①→“工程”菜单/“部件”命令②→“可插入对象”选项卡③→想要加入工具箱的类，如：“Microsoft Excel工作表” →“确定”在使用OLE容器控件插入对象时注意：（1）创建链接时，链接对象数据被存储在OLE容器控件之外；创建嵌入对象时，嵌入对象数据和VB应用程序一起被保存在OLE控件之内。（2）在任何时候，一个OLE容器控件内只能有一个对象。（3）既可在设计阶段来插入对象（创建链接对象或嵌入对象）；也可在程序运行阶段通过代码来创建链接对象或嵌入对象。（4）通过OLE控件的Display Type属性可控制OLE对象在OLE容器控件中的显示方式：Display Type ：0 → 以“数据映象”方式显示Display Type ：1 → 以“图标”方式显示一旦建立好一个OLE对象，此对应的OLE对象显示方式将无法改变。（5）在OLE容器控件中放置对象之前提供该对象的应用程序必须已经在Windows中注册其对象。1、设计时插入一个“链接”对象步骤：（1）添加一个“OLE容器控件”到窗体上，屏幕会弹出一个“插入对象”对话框。或在设置好的“OLE容器控件”上右击鼠标，也会弹出“插入对象”对话框。（2）选择“从文件创建”，再通过“浏览”按钮确定“要链接文件的路径、文件名”： ①C:\lyh\gz.xls\Excel工作表②C:\win98\a.bmp\BMP图象（3）单击“插入”按钮→返回“插入对象”对话框。（4）选中“链接”复选框→“确定”。按照以上步骤，就建立了一个链接对象。此时，OLE控件本身则保存与对象链接有关的信息。如：提供链接对象的应用程序名、链接文件名、以及该链接对象的“数据影像”等，其对应的OLE控件属性分别是：对象类型（Class）、引用源文件（Source Doc）、链接数据（Source Item）。[注意]：设计链接对象时，OLE会保留一份影像，起初这份影像和数据文件是相同的，但是因为文件有可能被修改，可链接对象保存的仍然是原始数据的影像，为了使其具备自动更新的能力，只要在Form_Load事件过程加入如下代码：Private sub Form_Load( )OLE1.Action=6 ‘此语句用“OLE1.Update”方法也可以End sub2、设计时创建“嵌入对象”创建嵌入对象时，既可从文件中嵌入数据，也可以创建一个新的空对象（可以被以后的数据填充）。步骤：（1）添加一个“OLE容器控件”到窗体上，屏幕显示“插入对象”对话框。（2）选择“从文件创建”，→“浏览”按钮→确定要嵌入的“文件名”。（3）→“插入”按钮→返回“插入对象”对话框。（4）→“确定”，即可创建嵌入对象。另外，在此设计状态，也可修改OLE对象中的数据，方法为：（1）→在OLE对象数据区单击鼠标右键，→弹出快捷菜单。（2）选择“编辑”命令→出现Excel的编辑环境。（3）修改完毕后，单击OLE对象数据区以外的区域，返回到创建嵌入对象的窗体。[注意]：（1）不同于对象链接的是，嵌入对象中的数据被用户修改后不会被自动存储。当含有OLE控件的窗体被关闭时，与该控件相关的数据的任何变化将丢失。如果希望对数据所进行的修改在下次运行时能够显示出来，需要将更改的数据从对象保存至文件中（使用OLE控件的Save To File方法）。数据被保存在文件后，可以在需要的时候打开文件并恢复对象（使用OLE控件的Read From File方法）。（2）将更改的数据从对象保存到文件中的方法（用一命令按钮的单击事件过程说明）：Private sub CmdSave_click( )Dim FileNum as integerFileNum=FreeFile ‘取文件号Open “TEST.OLE” For Binary as #FileNum ‘打开要保存的文件OLE1.SaveToFile FileNum ‘保存至文件Close #FileNum ‘关闭文件End sub（3）将数据从文件读入OLE容器控件（使用OLE控件的ReadFromFile方法）用一命令按钮的单击事件过程说明：Private sub CmdOpen_click( )Dim FileNum as integerFileNum=FreeFile ‘取文件号Open “TEST.OLE” For Binary as #FileNum ‘打开文件OLE1.ReadFromFile FileNum ‘读文件Close #FileNum ‘关闭二进制文件End sub3、使用“特殊粘贴”对话框创建链接对象或嵌入对象。设计时创建对象的另一方法是使用“特殊粘贴”对话框，应用该方法可以只利用文件的一部分数据。（如只使用Excel数据表的一部分数据）步骤：（1）运行一个包含链接或嵌入数据对象的应用程序（如Excel应用程序）。（2）打开一个文件，选择要链接或嵌入的数据。（3）→“编辑”菜单/“复制”命令→复制“数据”到剪贴板上。（4）在VB的一个包含OLE控件的工程中，右击OLE控件→选择“特殊粘贴”命令→弹出“选择性粘贴”对话框。（5）若想建立嵌入对象，选择“粘贴”选项； 若OLE控件中已有一个对象若想建立链接对象，选择“粘贴链接”选项； 则会询问是否删除现有对象（6）作出回答后，即在OLE控件上建立了一个新的对象。4、利用OLE发出声音（实例）步骤：（1）在窗体上添加OLE控件时，→弹出“插入对象”对话框，在“对象类型”列表框中选“声音文件”；选择⊙从文件创建；→“浏览”按钮，选择文件：C:\windows\Canyon.mid ；选择 链接， 显示为图标。（2）单击“确定”按钮。运行程序，双击OLE对象，将播放一段音乐。三、在运行阶段创建链接或嵌入对象要在程序代码运行时创建链接或嵌入对象，需要了解OLE容器控件的属性、事件和方法。1、OLE容器控件的属性、方法、事件：l Action属性：指定作用在OLE控件上的动作（如建立、删除、启动等）。语法为：object.Action=valuevalue的设置值如下表： value值 描述 方法 0 创建嵌入对象 Create Embed 1 创建链接对象 Create Link 4 将对象复制到系统剪贴板 Copy 5 将对象从系统剪贴板复制到OLE容器控件 Paste 6 从提供对象的应用程序检索当前数据，并在OLE容器控件中将该数据作为图片显示。 Update 7 打开一个对象，用于进行诸如编辑那样的操作 DoVerb 9 关闭对象，并与提供该对象的应用程序终止连接 Close 10 将指定的对象删除，释放与之关联的内存 Delete 11 将对象保存到数据文件中 SaveToFile 12 加载保存到数据文件中的对象 ReadFromFile 14 显示“特殊粘贴”对话框 PasteSpecialDlg 17 更新对象支持的谓词列表 FetchVerbs 18 将对象以OLE version 1.0版本的文件格式保存 SaveToOle1File l Class属性（类属性）格式为：object.class类名包含几个部分：application.objecttype.version类名：说明对象类型。Application ：提供对象的应用程序名Objecttype ：在对象库中定义的对象名Version ：提供对象的应用程序的版本号例如：Excel.Sheet.8l OLEType Allowed属性返回或设置OLE容器控件所能包含的对象类型。语法为：object.OLETypeAllowed [=value]value值的设置如下表： 常数 值 描述 VbOLELinked 0 链接的，OLE容器只能包含链接对象 VbOLEEmbeded 1 嵌入的，OLE容器只能包含内嵌对象 VbOLEEither 2 二者均可（缺省值） l SourceDoc属性指定链接或嵌入对象时使用的源文件名。语法为：object.sourceDoc [=name]name ：指定文件名的字符串表达式。l SourceItem属性（只对链接有效）在创建链接对象时，设置或返回要链接的文件内的数据。语法为：object.sourceItem [=string]string ：一个指定被链接数据的字符串表达式。例如：A1 ：E1 或 A3C4 ：A9D10[注意]：当使用Action属性创建链接对象时，用SourceDoc 属性指定要链接的文件，使用sourceItem属性指定在要链接文件内的数据。l Create Embed方法该方法用来创建一个嵌入对象。语法为：object.CreateEmbed sourcedoc[,class]sourcedoc ：必选项，对象从该文件中创建。SourceItem ：可选项，文件内的被链接的数据。l DoVerb方法打开一个对象（例如编辑一个对象）。Object.DoVerb[verb]Verb ：可选项，在OLE容器控件内要执行的对象的谓词。l InsertObjDlg方法显示插入对象对话框。语法为：object.InsertObjDlg[说明]（1）用户在运行这个方法时，将显示“插入对象”对话框，通过选取对象的类型，来创建链接的或内容嵌的对象，并由应用程序提供该对象。（2）创建新对象时，与类名（如Excel.EXE）关联的应用程序，必须已在操作系统中正确地作了注册。l PasteSpecialDlg方法显示“特殊粘贴”对话框。语法为：object.PasteSpecialDlgl Updated事件当一个已创建对象的数据发生改变（修改）时，会引发Updated事件。l ObjectMove事件当移动和OLE控件有关的对象以及调整其大小时，会触发ObjectMove事件。l UpdateOptions属性在运行时设置当链接数据修改后是否更新链接对象。语法为：Object.UpdateOptions [=number]其中Number的设置值为：0 —— 自动的（缺省值），每次改变链接数据时均更新对象1 —— 冻结的2 —— 手动的，只有使用Update方法才更新对象2、运行阶段建立链接对象举例：（1）在窗体上添加2个OLE容器控件时，2个命令按钮。（2）设计代码：☆ 要求功能：①OLE1和OLE2链接同一个数据源。②当改变（修改）OLE1容器控件中的链接数据时，OLE控件中链接同一个数据源的数据也要求跟着变化。Private sub command1_click( )OLE1.class=”Excel worksheet” 用”Excel.sheet.&”也可以OLE1.sourceDoc=”C:\My Documents\aa.xls”OLE1.DrsplayType=0OLE1.Action=1OLE2.class=”Excelworksheet”OLE2.sourceDoc=”C:\My Documents\aa.xls”OLE2.DisplayType=0OLE2.Action=1End subPrivate sub command2_click( )UnLoad MeEnd subPrivate sub OLE1_Updated(code as integer)OLE2.UpdateOptions=0 ‘用OLE2.Action=6也可以，或OLE2.Update方法也可以End subPrivate sub OLE2_Updated(code as integer)OLE1.UpdateOptions=0End sub3、运行阶段建立嵌入对象运行时建立嵌入对象的方法与建立链接对象的方法相似，只不过此时在有关代码中用：OLE1.Action=0 或使用 CreateEmbed方法。[注意]：对嵌入对象的任何修改要保存的话，一定要使用前述的SaveToFile方法，将修改的数据保存至某个文件中，在需要的时候可打开文件并恢复修改的内容。补充2：应用OLE拖放（在你的VB应用程序中支持OLE拖动功能）一、OLE拖放的含义指将数据从一个控件或应用程序移动到另一个控件或应用程序。例如：可先选定并拖动Excel中的一列单元，然后将它们放到VB应用程序的DataGrid控件上。二、VB控件的OLE拖放功能VB的几乎所有控件都在某种程度上支持OLE拖放（专业版和企业版）。1、 自动支持OLE拖放的控件（既可从控件拖出，也可在控件放入）。DataGrid ， PictureBox ，RichTextBox ，Image ，TextBox ，MaskedEditBox[注意]：要启动这些控件的自动OLE拖放功能，应将其OLE Drag Mode属性和OLEDropMode属性设置为“自动化”——“Automatic“2、仅自动支持OLE拖动操作的控件（仅从控件拖出）。ComboBox ，DataListBox ，FileListBox ，DataComboBox ，DirlistBox ，ListBox ， TreeView ，ListView等。[注意]：要启动这些控件的自动拖动功能，应将其OLEDragMode设置“自动化”。3、仅支持OLE拖放事件的控件——即可代码对它们编程，使之成为OLE拖放操作的源，也可使生成为OLE拖放操作的目标。CheckBox , Frame , OptionButton , CommandButton , Label , DrivelistBox , Data等。[注意]：（1）为判断其它ActionX控件是否支持OLE拖放，应在VB在加载控件，并检查OLEDragMode和OLEDropMode属性是否存在或检查OLEDrag方法是否存在。（2）缺省规定：在将文本从文本框控件拖动到word文档时，文本被移动；若拖动文本的同时按下[Ctrl]键，则文本被复制。

8，Filelistbox 用法

Private Sub Combo1_Click() File1.Pattern = Combo1.Text End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub File1_Click() Dim fpath As String If Right(File1.Path, 1) "\" Then fpath = File1.Path + "\" Label5.Caption = fpath + File1.FileName Image1.Picture = LoadPicture(Label5.Caption) End Sub Private Sub Form_Load() Combo1.AddItem "*.bmp" Combo1.AddItem "*.ico" Combo1.AddItem "*.gif" Combo1.AddItem "*.jpg" End Sub

9，帮帮忙VB题

要求在用户选择Drive1控件中的驱动器后，Dir1控件中的目录随之改变，当Dir1中的目录改变后，File1控件中的文件随之改变:
Private sub Drive1_change()
Dir1.path=Drive1.Drive
End sub
Private sub Dir1_change()
File1.path=Dir1.path
End sub
MSGBOX函数显示“重试”和“取消”按钮时C1取5（PS：我看不到图，不然可能会编） 这是我查到的人家 VB 10秒倒计时代码，因为计时器老师没怎么讲，所以不是很懂，不敢瞎编给你。这个代码我看了一下，好象没什么问题，要是不放心，你还是运行一下。
Dim test As Long
Private Sub Form_Load()
Timer1.Interval = 1000
test = 10
Text1.Text = ""
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Text1.Text = test
test = test - 1
If Text = 0 Then
Timer1.Enabled = False
'到时间处理的事件
End If
End Sub

10，请问怎样使用 FileListBox 来保存文件？

我写在File1的双击事件里了
添加一个Microsft Common Dialog 6.0 控件


Private Sub File1_DblClick()
On Error Resume Next

If File1.Name "" Then
CommonDialog1.FileName = File1.FileName
CommonDialog1.ShowSave

If CommonDialog1.FileName "" Then
FileCopy File1.Path + File1.FileName, CommonDialog1.FileName
End If
End If

End Sub

Private Sub Form_Load()

File1.Path = "c:\"
End Sub