小吳 VBQA 程式設計討論

Private Sub Command1_Click(Index As Integer)
Dim strFilename As String
Dim strLine As String
CommonDialog1.Filter = "图画(*.bmp;*.ico;*.gif;*.jpg)!*.bmp;*.ico;*.gif;*.jpg!所有文件(*.*)!*.*"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowOpen
strFilename = CommonDialog1.FileName
If strFilename ＜＞ "" Then
Picture1.Picture = LoadPicture(strFilename)
End If
SavePictureToAdodc(rs As ADODB.Recordset, ByVal FileName As String, ByVal PictureField As String)
Exit Sub


errwu:
MsgBox "請選擇正確的圖片格式"
End Sub