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我想知道得很透徹，應(yīng)為我現(xiàn)在做一個(gè)課設(shè)想用到他，我才剛接觸vb，請(qǐng)各位前輩幫幫忙，辛苦一點(diǎn)將詳細(xì)一點(diǎn).Filter = "JPG Files|*.JPG|Bitmaps|*.BMP" .ShowOpentxtFilePath.Text = .FileName這段代碼是什么意思啊
2 回答
慕尼黑8549860
TA貢獻(xiàn)1818條經(jīng)驗(yàn) 獲得超11個(gè)贊
Dim cn As New ADODB.Connection '聲明cn 為實(shí)例化的ADO鏈接
Dim rs As New ADODB.Recordset '聲明rs 為實(shí)例化的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 ’出現(xiàn)錯(cuò)誤繼續(xù)執(zhí)行
With cmdlFilePath 'with為關(guān)鍵字，在此過程中執(zhí)行以下語句
.Filter = "JPG Files|*.JPG|Bitmaps|*.BMP"
.ShowOpen
txtFilePath.Text = .FileName
End With
End Sub ’過程結(jié)束
Private Sub cmdExit_Click() '聲明過程cmdExit_Click()
End
End Sub
Private Sub cmdLast_Click()'聲明過程cmdLast_Click()
On Error Resume Next
rs.MoveLast '記錄集移到表的最后
Call ShowPic '執(zhí)行showpic函數(shù)
End Sub
Private Sub cmdNext_Click() '聲明過程cmdNext_Click()
On Error Resume Next
rs.MoveNext '記錄集向下移動(dòng)一條
Call ShowPic '執(zhí)行showpic函數(shù)
End Sub
Private Sub cmdPrev_Click()'聲明過程cmdPrev_Click()
On Error Resume Next
rs.MovePrevious '記錄集向上移動(dòng)
可能不太標(biāo)準(zhǔn)就是 大概意思有了
- 2 回答
- 0 關(guān)注
- 212 瀏覽
添加回答
舉報(bào)
0/150
提交
取消