扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
Private Sub Command1_Click() CommonDialog1.FileName = "" CommonDialog1.Filter = "文件bmp|*.bmp|文件JPG|*.JPG|文件GIF|*.GIF" CommonDialog1.ShowOpen Dim a As String a = CommonDialog1.FileTitle '得到不含路径文件名 If a <> "" Then Image11.Picture = LoadPicture(App.Path & "\bmp\" & a) '\bmp\是我用于存取图片的本系统文件夹下的一个子文件夹。 Data1.Recordset.Edit Data1.Recordset.Fields("tp") = a 'TP是存取图片名称的字段。 Data1.Recordset.Update End If End Sub |
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。