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

全站熱搜

vbqa 發表在 痞客邦 留言(2) 人氣()