现在将一个扫描的tif格式图像转化为二进制存入数据库后,
使用vb编程在应用程序中读取数据库中的二进制文件,使其显示图像
然后要对这幅图进行编辑,即在用户能在应用程序中双击该图,调用画图工具
对其进行编辑,编辑保存后应用程序上的图像也要更新,同时要保存到数据库中
请都各位高手,这些功能该如何实现,在线等待!急死了!。。
使用vb编程在应用程序中读取数据库中的二进制文件,使其显示图像
然后要对这幅图进行编辑,即在用户能在应用程序中双击该图,调用画图工具
对其进行编辑,编辑保存后应用程序上的图像也要更新,同时要保存到数据库中
请都各位高手,这些功能该如何实现,在线等待!急死了!。。
Dim TempFileLastDate as String '文件最后修改日期 全局变量使用vb编程在应用程序中读取数据库中的二进制文件,使其显示图像:strFilePath = App.Path & "\Test.tif"Open strFilePath For Binary As #1 '建立临时文件
Put #1, , bytOutputFileValue
Close #1Picture1.Picture = LoadPicture(strFilePath)对这幅图进行编辑,即在用户能在应用程序中双击该图,调用画图工具:Private Sub Picture1_Click()'取得文件最后修改日期
Set fs = CreateObject("Scripting.FileSystemObject")
Set b = fs.GetFile(strFilePath)
TempFileLastDate = b.DateLastModified'调用画图工具打开文件
ShellExecute hwnd, "open", strFilePath, "", "", vbNormalFocusEnd Sub在当用户关闭打开的文件后用现在文件的最后修改日期跟先前取得的修改日期最进对比就能判断用户是否修改了文件,再控制Picture1重新读取该文件,并将文件重新写入数据库