Call ShowPic 为什么要调用 ShowPic这个函数，这个函数是什么意思？

Question

Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim str_Sql As StringDim Chunk() As ByteDim lngLengh As LongDim intChunks As IntegerDim intFragment As IntegerConst ChunkSize = 1000Const lngDataFile = 1Private Sub cmdBrowse_Click() '选择 JPG OR Bmp 文件On Error Resume NextWith cmdlFilePath.Filter = "JPG Files|*.JPG|Bitmaps|*.BMP".ShowOpentxtFilePath.Text = .FileNameEnd WithEnd SubPrivate Sub cmdExit_Click()EndEnd SubPrivate Sub cmdLast_Click()On Error Resume Nextrs.MoveLastCall ShowPicEnd SubPrivate Sub cmdNext_Click()On Error Resume Nextrs.MoveNextCall ShowPicEnd SubPrivate Sub cmdPrev_Click()On Error Resume Nextrs.MovePrevious我想知道得很透彻，应为我现在做一个课设想用到他，我才刚接触vb，请各位前辈帮帮忙，辛苦一点将详细一点.Filter = "JPG Files|*.JPG|Bitmaps|*.BMP"  .ShowOpentxtFilePath.Text = .FileName这段代码是什么意思啊

Answer 1

Dim cn As New ADODB.Connection '声明cn 为实例化的ADO链接
Dim rs As New ADODB.Recordset '声明rs 为实例化的ADO记录集
Dim str_Sql As String '声明cstr_sql为字符串型

Dim Chunk() As Byte '声明Chunk() 为byte型 同下
Dim lngLengh As Long
Dim intChunks As Integer
Dim intFragment As Integer
Const ChunkSize = 1000 '声明常量 ChunkSize = 1000  
Const lngDataFile = 1 '声明常量 lngDataFile = 1
Private Sub cmdBrowse_Click() '声明过程cmdBrowse_Click()  
On Error Resume Next ’出现错误继续执行
With cmdlFilePath 'with为关键字，在此过程中执行以下语句
.Filter = "JPG Files|*.JPG|Bitmaps|*.BMP"  
.ShowOpen
txtFilePath.Text = .FileName
End With
End Sub ’过程结束
Private Sub cmdExit_Click() '声明过程cmdExit_Click() 
End
End Sub
Private Sub cmdLast_Click()'声明过程cmdLast_Click() 
On Error Resume Next
rs.MoveLast '记录集移到表的最后
Call ShowPic '执行showpic函数
End Sub
Private Sub cmdNext_Click() '声明过程cmdNext_Click()
On Error Resume Next
rs.MoveNext '记录集向下移动一条
Call ShowPic '执行showpic函数
End Sub
Private Sub cmdPrev_Click()'声明过程cmdPrev_Click()
On Error Resume Next  
rs.MovePrevious '记录集向上移动

可能不太标准就是 大概意思有了

Answer 2

兄弟你的代码不全，没有连接数据库的部分