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這段代碼是什么意思啊
2 回答
慕尼黑8549860
TA貢獻1818條經驗 獲得超11個贊
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 '記錄集向上移動
可能不太標準就是 大概意思有了
- 2 回答
- 0 關注
- 214 瀏覽
添加回答
舉報
0/150
提交
取消