一个VB小程序的源代码~ ~ ~帮忙注释一下!!!!!高分!!在线等待!!

选项显式

Private Sub Command1_Click()'通过对话框选择一张图片,加载到Image1的图片框中。

CDlg。文件名= " "

CDlg。ShowOpen

如果CDlg。文件名& lt& gt”“那么

Image1。图片= LoadPicture(CDlg。文件名)

如果…就会结束

末端接头

私有子命令2_Click()

数据1。'添加一条记录。

末端接头

私有子命令3_Click()

用数据1。记录集

。删除'删除记录。

。“MoveNext”将记录指针移动到下一条记录。

如果。那就EOF吧。“MoveLast”EOF指示当前记录位置在Recordset对象的最后一条记录之后。

以…结尾

末端接头

私有子命令4_Click()

将s作为字符串变暗

用数据1。记录集

S =。“Bookmark”返回唯一标识Recordset对象中当前记录的书签,或将Recordset对象的当前记录设置为由有效书签标识的记录。

。FindFirst Text4。文本

如果。那就不要比赛了

MsgBox“找不到数据”

。书签= s

如果…就会结束

以…结尾

末端接头

私有子命令5_Click()

将s作为字符串变暗

用数据1。记录集

s =。书签

。FindNext。文本

如果。那就不要比赛了

MsgBox“找不到数据”

。书签= s

如果…就会结束

以…结尾

末端接头

私有子窗体_Load()

数据1。DatabaseName = App。路径与路径。“\MyData.mdb”被添加到MyData.mdb数据库的相对路径下。

末端接头

私有子标签2_Click()

末端接头