vb60编程实例

A. VB6.0编程

Private Sub Command1_Click()
On Error Resume Next
Dim i As Integer, a As Variant, jg As Integer, bjg As Integer, pj As Single
Dim s As Integer
a = Array(85, 76, 49, 56, 94, 88, 67, 82, 78, 74)
For i = 0 To 9
s = s + a(i)
If a(i) >= 60 Then
jg = jg + 1
Else
bjg = bjg + 1
End If

Next
pj = s / 10

Print "jg:"; jg
Print "bjg:"; bjg
Print "pj:"; pj

End Sub

B. 求一个简单vb编程实例~

控件：image,picture,timer代码：Dim x As Integer
Dim y As IntegerPrivate Sub Form_Load()
x = 100
y = 100
Timer1.Interval = 100
End SubPrivate Sub Timer1_Timer()
If img.Top >= pic.Height - img.Height Then
y = -100
End If
If img.Top <= 0 Then
y = 100
End If
If img.Left >= pic.Width - img.Width Then
x = -100
End If
If img.Left <= 0 Then
x = 100
End If
img.Top = img.Top + y
img.Left = img.Left + x
End Sub
以上代码实现的是图片框中的一个小球做的规律的运动，当小球碰到图片框边缘时便反弹继续运动

C. vb编程实例

Static s As Integer s 是静态变量，过程结束后，数据依然存在，且值保持原来不变
一开始s=0
m(1),走入Function,时，n=1 ,循环一次（加上一个1），s=1,m(1)=1
m(2),走入Function,时，s=1(值保持原来1不变),n=2 ,循环2次（加上2个1），s=3,m(2)=3
m(3),走入Function,时，s=3(值保持原来3不变),,n=3 ,循环3次（加上3个1），s=6,m(3)=6
m(1)+m(2)+m(3)=1+3+6=10

D. vb60编程中,如何用API函数中的createfile()创建一个文件

实例
'This project needs a Common Dialog box, named CDBox.
' (To add the Common Dialog Box to your tools menu, go to Project->Components (or press CTRL-T)
' and select Microsoft Common Dialog control)
Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
Private Const GENERIC_WRITE = &H40000000
Private Const OPEN_EXISTING = 3
Private Const FILE_SHARE_READ = &H1
Private Const FILE_SHARE_WRITE = &H2
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function SetFileTime Lib "kernel32" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long
Private Declare Function SystemTimeToFileTime Lib "kernel32" (lpSystemTime As SYSTEMTIME, lpFileTime As FILETIME) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function LocalFileTimeToFileTime Lib "kernel32" (lpLocalFileTime As FILETIME, lpFileTime As FILETIME) As Long
Private Sub Form_Load()

Dim m_Date As Date, lngHandle As Long
Dim udtFileTime As FILETIME
Dim udtLocalTime As FILETIME
Dim udtSystemTime As SYSTEMTIME
m_Date = Format(Now, "DD-MM-YY")

'Set the dialog's title
CDBox.DialogTitle = "Choose a file ..."
'Set the dialog's filter
CDBox.Filter = "All Files (*.*)|*.*"
'Show the 'Open File'-dialog
CDBox.ShowOpen

udtSystemTime.wYear = Year(m_Date)
udtSystemTime.wMonth = Month(m_Date)
udtSystemTime.wDay = Day(m_Date)
udtSystemTime.wDayOfWeek = WeekDay(m_Date) - 1
udtSystemTime.wHour = Hour(m_Date)
udtSystemTime.wSecond = Second(m_Date)
udtSystemTime.wMilliseconds = 0

' convert system time to local time
SystemTimeToFileTime udtSystemTime, udtLocalTime
' convert local time to GMT
LocalFileTimeToFileTime udtLocalTime, udtFileTime
' open the file to get the filehandle
lngHandle = CreateFile(CDBox.Filename, GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0, 0)
' change date/time property of the file
SetFileTime lngHandle, udtFileTime, udtFileTime, udtFileTime
' close the handle
CloseHandle lngHandle
MsgBox "The date of the file '" + CDBox.Filename + "' has been changed to" + Str$(m_Date), vbInformation + vbOKOnly, App.Title
End Sub

附:

【VB声明】
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long

【别名】
CreateFileA

【说明】
这是一个全功能的例程，可打开和创建文件、管道、邮槽、通信服务、设备以及控制台

【返回值】
Long，如执行成功，则返回文件句柄。INVALID_HANDLE_VALUE表示出错，会设置GetLastError。即使函数成功，但若文件存在，且指定了CREATE_ALWAYS
或 OPEN_ALWAYS，GetLastError也会设为ERROR_ALREADY_EXISTS

【备注】
打开一个通信端口时（如COM1），无论如何都要设置成
OPEN_EXISTING
这个函数代替了lOpen 和 lCreate函数，应该是我们的首选

【参数表】
lpFileName ----- String，要打开的文件的名字

dwDesiredAccess - Long，如果为 GENERIC_READ
表示允许对设备进行读访问；如果为 GENERIC_WRITE
表示允许对设备进行写访问（可组合使用）；如果为零，表示只允许获取与一个设备有关的信息

dwShareMode ---- Long，零表示不共享； FILE_SHARE_READ 和/或
FILE_SHARE_WRITE 表示允许对文件进行共享访问

lpSecurityAttributes - SECURITY_ATTRIBUTES，指向一个SECURITY_ATTRIBUTES结构的指针，定义了文件的安全特性（如果操作系统支持的话）

dwCreationDisposition - Long，下述常数之一：
CREATE_NEW
创建文件；如文件存在则会出错
CREATE_ALWAYS
创建文件，会改写前一个文件
OPEN_EXISTING
文件必须已经存在。由设备提出要求
OPEN_ALWAYS
如文件不存在则创建它
TRUNCATE_EXISTING
讲现有文件缩短为零长度

dwFlagsAndAttributes - Long，一个或多个下述常数
FILE_ATTRIBUTE_ARCHIVE
标记归档属性
FILE_ATTRIBUTE_COMPRESSED
将文件标记为已压缩，或者标记为文件在目录中的默认压缩方式
FILE_ATTRIBUTE_NORMAL
默认属性
FILE_ATTRIBUTE_HIDDEN
隐藏文件或目录
FILE_ATTRIBUTE_READONLY
文件为只读
FILE_ATTRIBUTE_SYSTEM
文件为系统文件
FILE_FLAG_WRITE_THROUGH
操作系统不得推迟对文件的写操作
FILE_FLAG_OVERLAPPED
允许对文件进行重叠操作
FILE_FLAG_NO_BUFFERING
禁止对文件进行缓冲处理。文件只能写入磁盘卷的扇区块
FILE_FLAG_RANDOM_ACCESS
针对随机访问对文件缓冲进行优化
FILE_FLAG_SEQUENTIAL_SCAN
针对连续访问对文件缓冲进行优化
FILE_FLAG_DELETE_ON_CLOSE
关闭了上一次打开的句柄后，将文件删除。特别适合临时文件
也可在Windows NT下组合使用下述常数标记：
SECURITY_ANONYMOUS， SECURITY_IDENTIFICATION，
SECURITY_IMPERSONATION， SECURITY_DELEGATION， SECURITY_CONTEXT_TRACKING，
SECURITY_EFFECTIVE_ONLY

hTemplateFile -- Long，如果不为零，则指定一个文件句柄。新文件将从这个文件中复制扩展属性

E. vb6.0编程实例 最好是绘图的

最简单的画图代码，鼠标按下就画图：
Dim i As Boolean

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
i = True
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Not i Then
Me.CurrentX = X
Me.CurrentY = Y
Else
Me.Line -(X, Y)
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
i = False
End Sub

F. vb60编程

用Dir 函数,就可以搞定.

Dir 函数

返回一个 String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的模式或文件属性、或磁盘卷标相匹配。

语法

Dir[(pathname[, attributes])]

Dir 函数的语法具有以下几个部分：

部分 描述
pathname 可选参数。用来指定文件名的字符串表达式，可能包含目录或文件夹、以及驱动器。如果没有找到 pathname，则会返回零长度字符串 ("")。
attributes 可选参数。常数或数值表达式，其总和用来指定文件属性。如果省略，则会返回匹配 pathname 但不包含属性的文件。

设置值

attributes 参数的设置可为：

常数 值 描述
vbNormal 0 (缺省) 指定没有属性的文件。
vbReadOnly 1 指定无属性的只读文件
vbHidden 2 指定无属性的隐藏文件
VbSystem 4 指定无属性的系统文件 在Macintosh中不可用。
vbVolume 8 指定卷标文件；如果指定了其它属性，则忽略vbVolume 在Macintosh中不可用。
vbDirectory 16 指定无属性文件及其路径和文件夹。
vbAlias 64 指定的文件名是别名，只在Macintosh上可用。

注意 这些常数是由 VBA 所指定的，在程序代码中的任何位置，可以使用这些常数来替换真正的数值。

说明

在 Microsoft Windows 中， Dir 支持多字符 (*) 和单字符 (?) 的通配符来指定多重文件。

在 Macintosh 中，这些字符作为合法文件名字符并且不能作为通配符来指定多个文件

由于 Macintosh 不支持通配符，使用文件类型指定文件组。可以使用 MacID 函数指定文件类型而不用文件名。比如，下列语句返回当前文件夹中第一个TEXT文件的名称:

Dir("SomePath", MacID("TEXT"))

为选中文件夹中所有文件，指定一空串:

Dir("")

在 Microsoft Windows 中，如果在Dir函数中使用MacID函数，将产生错误。

任何大于256的attribute值都被认为是MacID 函数的值。

在第一次调用 Dir 函数时，必须指定 pathname，否则会产生错误。如果也指定了文件属性，那么就必须包括 pathname。

Dir 会返回匹配 pathname 的第一个文件名。若想得到其它匹配 pathname 的文件名，再一次调用 Dir，且不要使用参数。如果已没有合乎条件的文件，则 Dir 会返回一个零长度字符串 ("")。一旦返回值为零长度字符串，并要再次调用 Dir 时，就必须指定 pathname，否则会产生错误。不必访问到所有匹配当前 pathname 的文件名，就可以改变到一个新的 pathname 上。但是，不能以递归方式来调用 Dir 函数。以 vbDirectory 属性来调用 Dir 不能连续地返回子目录。

提示 由于文件名并不会以特别的次序来返回，所以可以将文件名存储在一个数组中，然后再对这个数组排序。

Dir 函数示例
本示例使用 Dir 函数来检查某些文件或目录是否存在。在 Macintosh 计算机上，默认驱动器名称是 “HD” ，并且路径部分由冒号取代反斜线隔开。而且 Microsoft Windows 的通配符在 Mac 中可以作为有效字符出现在文件名中。也可以使用 MacID 函数来指定文件组。

Dim MyFile, MyPath, MyName

' 返回“WIN.INI”(在 Microsoft Windows 中) （如果该文件存在）。
MyFile = Dir("C:\WINDOWS\WIN.ini")

' 返回带指定扩展名的文件名。如果超过一个 *.ini 文件存在，
' 函数将返回按条件第一个找到的文件名。
MyFile = Dir("C:\WINDOWS\*.ini")

' 若第二次调用 Dir 函数，但不带任何参数，则函数将返回同一目录下的下一个 *.ini 文件。
MyFile = Dir

' 返回找到的第一个隐式 *.TXT 文件。
MyFile = Dir("*.TXT", vbHidden)

' 显示 C:\ 目录下的名称。
MyPath = "c:\" ' 指定路径。
MyName = Dir(MyPath, vbDirectory) ' 找寻第一项。
Do While MyName <> "" ' 开始循环。
' 跳过当前的目录及上层目录。
If MyName <> "." And MyName <> ".." Then
' 使用位比较来确定 MyName 代表一目录。
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
Debug.Print MyName ' 如果它是一个目录，将其名称显示出来。
End If
End If
MyName = Dir ' 查找下一个目录。
Loop

G. VB6.0简单实例！！ 高分！！求大神解答！！求代码！！跪求！！

第一题：

Dim x As Long, y As Long

Private Sub Command1_Click()

Timer1.Interval = 300

End Sub

Private Sub Command2_Click()

Timer1.Interval = 0

End Sub

Private Sub Timer1_Timer()

x = x + 100

y = y + 100

Label1.Left = x

Label1.Top = y

If Label1.Top > Form1.Height Or Label1.Left > Form1.Width Then

x = 0

y = 0

Label1.Left = x

Label1.Top = y

End If

End Sub

H. 有谁能告诉我学习VB编程的大体学习步骤

http://www.enet.com.cn/eschool/video/vb2/
看完这个过二级考试不是问题 别看他视频多 其实视频很短

教程简介

本教程为eNet原创
这套全国计算机等级考试二级Visual
Basic程序设计视频教程,紧扣教育部考试中心二级Visual Basic考试大纲，掌握本套视频教程，可以使考生顺利通过国家二级Visual
Basic考试。点击这里进入VB相关视频教程

第一章 Visual Basic
基础环境

1 VB的特点
2 VB的版本
3 VB启动与退出
4 VB的主窗口

5 VB的其它窗口

第二章 对象及窗体

1 对象属性
2 对象事件和方法
3 窗体-背景颜色
4 窗体-边框类型

5 窗体-标题/控制/激活
6 窗体-高度
7 窗体-名称
8 窗体-图形

9 窗体-顶边距 可见性
10 窗体- 显示状态
11 窗体-事件
12 工具箱

13 控件的基本操作
14 VB中的语句
15 编写小程序(1)
16 编写小程序(2)

17 编写小程序(3)
18 编写小程序(4)
19
程序的保存和生成

第三章 程序设计基础

1 基本数据类型(1)
2 基本数据类型(2)
3 基本数据类型(3)
4 常量和变量(1)

5 常量和变量(2)
6 常量和变量(3)
7 常量和变量(4)
8 常量和变量(5)

9 常量和变量(6)
10 局部变量与全局变量
11 默认声明变量
12 转换函数(1)

13 转换函数(2)
14 转换函数(3)
15 数学函数(4)
16 日期时间随机数函数

17 字符串函数(1)
18 字符串函数(2)
19 字符串函数(3)
20 字符串函数(4)

21 字符串函数(5)
22 运算符与表达式(1)
23 运算符与表达式(2)
24 运算符与表达式(3)

25 运算符与表达式(4)
26 运算符与表达式(5)
27 运算符与表达式(6)

第四章 数据输出

1 Print方法函数(1)
2 Print方法函数(2)
3 Print方法函数(3)
4 Print方法函数(4)

5 Print方法函数(5)
6 Print方法函数(6)
7 Print方法函数(7)
8 Print方法函数(8)

9 格式输出(1)
10 格式输出(2)
11 格式输出(3)
12 格式输出(4)

13 格式输出(5)
14 其他方法和属性(1)
15 其他方法和属性(2)
16 其他方法和属性(3)

17 其他方法和属性(4)
18 其他方法和属性(5)
19 其他方法和属性(6)
20 其他方法和属性(7)

21 其他方法和属性(8)
22 其他方法和属性(9)
23 其他方法和属性(10)
24 其他方法和属性(11)

25 其他方法和属性(12)

第五章 数据输入

1 InputBox函数(1)
2 InputBox函数(2)
3 InputBox函数(3)
4 InputBox函数(4)

5 InputBox函数(5)
6 InputBox函数(6)
7 InputBox函数(7)
8 InputBox函数(8)

9 MsgBox语句(1)
10 MsgBox语句(2)
11 MsgBox语句(3)
12 MsgBox语句(4)

13 MsgBox语句(5)
14 MsgBox语句(6)
15 MsgBox语句(7)
16 MsgBox语句(8)

17 MsgBox语句(10)
18 MsgBox语句(11)
19 MsgBox语句(12)
20 MsgBox语句(13)

21 MsgBox语句(14)
22 MsgBox语句(15)
23 MsgBox语句(16)
24 MsgBox语句(17)

25 字形(1)
26 字形(2)
27 字形(3)
28 字形(4)

第六章标准控件

文本控件

1 标签(1)
2 标签(2)
3 标签(3)
4 标签(4)

5 文本框(1)
6 文本框(2)
7 文本框(3)
8 文本框(4)

9 文本框(5)
10 文本框(6)
11 文本框(7)
12 文本框(8)

13 文本框(9)
14 文本框(10)
15 文本框(11)
16 文本框(12)

17 文本框(13)
18 文本框(14)

图形控件

19 图片框和图像框(1)
20 图片框和图像框(2)
21 图片框和图像框(3)
22 图片框和图像框(4)

23 图片框和图像框(5)
24 图片框和图像框(6)
25 图片框和图像框(7)
26 图片框和图像框(8)

27 图片框和图像框(9)
28图片框和图像框(10)
29图片框和图像框(11)
30图片框和图像框(12)

31图片框和图像框(13)
32图片框和图像框(14)
33 直线和形状(1)
34 直线和形状(2)

按钮控件

35 命令按扭(1)
36 命令按扭(2)
37 命令按扭(3)
38 命令按扭(4)

39 命令按扭(5)
40 复选框和单选按钮1
41 复选框和单选按钮2
42 复选框和单选按钮3

43 复选框和单选按钮4
44 复选框和单选按钮5
45 复选框和单选按钮6
46 复选框和单选按钮7

47 复选框和单选按钮8
48 列表框和组合框(1)
49 列表框和组合框(2)
50 列表框和组合框(3)

51 列表框和组合框(4)
52 列表框和组合框(5)
53 列表框和组合框(6)
54 列表框和组合框(7)

55 列表框和组合框(8)
56 列表框和组合框(9)
57 列表框和组合框(10)
58 列表框和组合框(11)

59 列表框和组合框(12)
60 其它控件-滚动条(1)
61 其它控件-滚动条(2)
62 其它控件-滚动条(3)

63 其它控件-滚动条(4)
64 其它控件-计时器(1)
65 其它控件-计时器(2)
66 其它控件-计时器(3)

67 其它控件-框架(1)
68 其它控件-框架(2)
69 其它控件-框架(3)
70 焦点与Tab顺序(1)

71 焦点与Tab顺序(2)
72 焦点与Tab顺序(3)
73 焦点与Tab顺序(4)
74
焦点与Tab顺序(5)

第七章 控制结构

1 选择控制结构(1)
2 选择控制结构(2)
3 选择控制结构(3)
4 选择控制结构(4)

5 选择控制结构(5)
6 选择控制结构(6)
7 选择控制结构(7)
8 选择控制结构(8)

9 选择控制结构(9)
10 选择控制结构(10)
11 选择控制结构(11)
12 选择控制结构(12)

13 选择控制结构(13)
14 选择控制结构(14)
15 选择控制结构(15)
16 多分支控制结构(1)

17 多分支控制结构(2)
18 多分支控制结构(3)
19 for循环控制结构1
20 for循环控制结构2

21 for循环控制结构3
22 for循环控制结构4
23 for循环控制结构5
24 for循环控制结构6

25 for循环控制结构7
26 for循环控制结构8
27 for循环控制结构9
28 for循环控制结构10

29 for循环控制结构11
30 for循环控制结构12
31 当循环控制结构(1)
32 当循环控制结构(2)

33 当循环控制结构(3)
34 当循环控制结构(4)
35 do循环控制结构(1)
36 do循环控制结构(2)

37 do循环控制结构(3)
38 多重循环(1)
39 多重循环(2)
40 出口语句(1)

41 出口语句(2)

第八章 数组

1 数组的概念(1)
2 数组的概念(2)
3 数组的概念(3)
4 数组的概念(4)

5 默认数组
6 静态数组与动态数组1
7 静态数组与动态数组2
8 静态数组与动态数组3

9 静态数组与动态数组4
10 数组的基本操作(1)
11 数组的基本操作(2)
12 数组的基本操作(3)

13 数组的基本操作(4)
14 数组的基本操作(5)
15 数组的初始化(1)
16 数组的初始化(2)

17 数组的初始化(3)
18 控件数组(1)
19 控件数组(2)
20 控件数组(3)

21 控件数组(4)

第九章 过程

1 Sub过程(1)
2 Sub过程(2)
3 Sub过程(3)
4 Sub过程(4)

5 Sub过程(5)
6 Sub过程(6)
7 Sub过程(7)
8 Sub过程(8)

9 Sub过程(9)
10 Function过程(1)
11 Function过程(2)
12 参数传送(1)

13 参数传送(2)
14 参数传送(3)
15 参数传送(4)
16 参数传送(5)

17 可选参数与可变参数(1)
18 可选参数与可变参数(2)
19 对象参数(1)
20 对象参数(2)

21 对象参数(3)
22 对象参数(4)
23 对象参数(5)
24 局部内存分配(1)

25 局部内存分配(2)
26 局部内存分配(3)
27 Shell函数(1)
28 Shell函数(2)

29 Shell函数(3)
30 Shell函数(4)

第十章 菜单程序设计

1 菜单编辑器(1)
2 菜单编辑器(2)
3 菜单编辑器(3)
4 菜单项的控制(1)

5 菜单项的控制(2)
6 菜单项的控制(3)
7 菜单项的控制(4)
8 菜单项的控制(5)

9 菜单项的控制(6)
10 弹出式菜单(1)
11 弹出式菜单(2)
12 弹出式菜单(3)

13 菜单项增减(1)
14 菜单项增减(2)
15 菜单项增减(3)
16 通用对话框(1)

17 通用对话框(2)
18 通用对话框(3)
19 文件对话框(1)
20 文件对话框(2)

21 文件对话框(3)
22 文件对话框(4)
23 文件对话框(5)
24 其他对话框(1)

25 其他对话框(2)
26 其他对话框(3)

第十一章 键盘与鼠标事件过程

1 KeyPress事件(1)
2 KeyPress事件(2)
3 KeyPress事件(3)
4 KeyPress事件(4)

5 鼠标事件(1)
6 鼠标事件(2)
7 鼠标事件(3)
8 鼠标事件(4)

9 鼠标事件(5)
10 鼠标事件实例(1)
11 鼠标事件实例(2)
12 鼠标光标的形状(1)

13 鼠标光标的形状(2)
14 鼠标光标的形状(3)
15 鼠标光标的形状(4)
16 拖放(1)

17 拖放(2)
18 拖放(3)
15 拖放(4)

第十二章 多重窗体程序设计与环境应用

1 建立多重窗体应用程序(1)
2 建立多重窗体应用程序(2)
3 建立多重窗体应用程序(3)
4 建立多重窗体应用程序(4)

5 多重窗体程序的执行与保存(1)
6 多重窗体程序的执行与保存(2)
7 多重窗体程序的执行与保存(3)
8 Visual Basic的工程结构(1)

9 Visual Basic的工程结构(2)
10 Visual Basic的工程结构件(3)
11 Visual Basic的工程结构(4)
12 Visual Basic的工程结构(5)

13 闲置循环与DoEvents语句(1)
14 闲置循环与DoEvents语句(2)
15 闲置循环与DoEvents语句(3)
16
闲置循环与DoEvents语句(4)

第十三章 数据文件

1 文件的结构与分类(1)
2 文件的结构与分类(2)
3 文件的打开与关闭(1)
4 文件的打开与关闭(2)

5 文件的打开与关闭(3)
6 顺序文件(1)
7 顺序文件(2)
8 顺序文件(3)

9 顺序文件(4)
10 顺序文件(5)
11 顺序文件(6)
12 顺序文件(7)

13 顺序文件(8)
14 顺序文件(9)
15 顺序文件(10)
16 顺序文件(11)

17 顺序文件(12)
18 顺序文件(13)
19 顺序文件(14)
20 顺序文件(15)

21 顺序文件(16)
22 顺序文件(17)
23 顺序文件(18)
24 随机文件(1)

25 随机文件(2)
26 随机文件(3)
27 随机文件(4)
28 随机文件(5)

29 随机文件(6)
30 文件系统控件(1)
31 文件系统控件(2)
32 文件系统控件(3)

33 文件系统控件(4)
34 文件系统控件(5)
35 文件基本操作(1)
36 文件基本操作(2)

I. 求一个vb6.0+SQL数据库操作实例

这个貌似我以前写的一个系统初始化的程序

J. vb6.0如何使用SOAOffice控件实例

Form1.Controls.Add "VB.CommandButton", "cmdObj1", Frame1
在Frame1上画一个按钮

Add 方法（Controls 集合）示例
Private Sub Form_Load()
Form1.Controls.Add "VB.CommandButton", "cmdObj1", Frame1
With Form1!cmdObj1
.Visible = True
.Width = 2000
.Caption = "Dynamic Button"
End With
End Sub

注意 上面的代码例子使用 ! 作为一个语法要素。您也可以使用标准集合语法如 Form1.Controls("cmdObj1") 来引用该控件。

第二个例子使用 WithEvents 关键字声明一个 CommandButton 类型的对象变量，允许您编程该控件的事件。对象变量被设置为由 Add 方法返回的引用。要试验该例，把它的代码粘贴到声明部分并且运行该工程。

Option Explicit
Private WithEvents btnObj As CommandButton

Private Sub btnObj_Click()
MsgBox "This is a dynamically added button."
End Sub

Private Sub Form_Load()
Set btnObj = Controls.Add("VB.CommandButton", "btnObj")
With btnObj
.Visible = True
.Width = 2000
.Caption = "Hello"
.Top = 1000
.Left = 1000
End With
End Sub

第三个例子添加一个非引用控件到 Controls 集合。然而要编程这样一个控件的事件，必须声明一个 VBControlExtender 类型的对象变量，并把由这个方法返回的引用设置到该对象。然后使用 ObjectEvent 事件编程该控件的事件。

Option Explicit
Dim ctlExtender As VBControlExtender

Private Sub Form_Load()
Set ctlExtender = Controls.Add("Project1.UserControl1", "MyControl")
With ctlExtender
.Visible = True
.Top = 1000
.Left = 1000
End With
End Sub

Private Sub extObj_ObjectEvent(Info As EventInfo)
'使用 Select Case 编程该控件事件。
Select Case Info.Name
Case "UserName"
'检查用户名值。
MsgBox Info. EventParameters("UserName").Value
'现在显示其他情况
Case Else '未知事件
'这里处理未知事件。
End Select
End Sub