杭州交通信息网厦门拍卖公司:在VB中存储JPG文件的问题
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/07 16:15:29
在VB中用另存为对话框存储JPG文件，虽然文件能够存储，但是存储的文件没有任何内容，文件大小是0字节，请高手指教，谢谢！
下面是代码：
Private Sub command9_Click()
Dim BCWJH As Integer, BCWJM As String '定义文件名和文件号
On Error GoTo 100
With CommonDialog1
.Filter = "JPEG (*.JPG;*.jpg;*.jpeg) | *.JPG; *.jpg;*.jpeg t"
.CancelError = True
.DefaultExt = "JPG"
.ShowSave
.Flags = cdlOFNHideReadOnly Or cdlOFNPathMustExist Or cdlOFNOverwritePrompt Or cdlOFNNoReadOnlyReturn
.DialogTitle = "选择目标文件"
.FilterIndex = 1
End With
BCWJM = CommonDialog1.FileName
BCWJH = FreeFile()
Open BCWJM For Output As #BCWJH
strTemp = BCWJM
Image5.Picture = LoadPicture(strTemp)
100:
If Err.Number = 32755 Then
MsgBox "您放弃了保存照片的操作！", 64, "放弃操作！"
Exit Sub
End If
Image5是空的，无任何内容。如何加载文件内容？请指教！如果采纳答案，送100分！！
richardbao2000 :我想知道的就是您提出的问题，希望能够给我一个比较能够理解的答案！谢谢！
下面是代码：
Private Sub command9_Click()
Dim BCWJH As Integer, BCWJM As String '定义文件名和文件号
On Error GoTo 100
With CommonDialog1
.Filter = "JPEG (*.JPG;*.jpg;*.jpeg) | *.JPG; *.jpg;*.jpeg t"
.CancelError = True
.DefaultExt = "JPG"
.ShowSave
.Flags = cdlOFNHideReadOnly Or cdlOFNPathMustExist Or cdlOFNOverwritePrompt Or cdlOFNNoReadOnlyReturn
.DialogTitle = "选择目标文件"
.FilterIndex = 1
End With
BCWJM = CommonDialog1.FileName
BCWJH = FreeFile()
Open BCWJM For Output As #BCWJH
strTemp = BCWJM
Image5.Picture = LoadPicture(strTemp)
100:
If Err.Number = 32755 Then
MsgBox "您放弃了保存照片的操作！", 64, "放弃操作！"
Exit Sub
End If
Image5是空的，无任何内容。如何加载文件内容？请指教！如果采纳答案，送100分！！
richardbao2000 :我想知道的就是您提出的问题，希望能够给我一个比较能够理解的答案！谢谢！
是啊,你只是做了创建.jpg文件的动作,并没有向文件里写入什么东西啊!
既然没有写入什么数据,那么当然是无内容,也就当然无法加载啦!
既然你没有存储格式图片的基础,那么一下子叫你去写一段这个程序会很难,那么就去下个下面这个控件吧(免费的):
http://vbaccelerator.com/codelib/gfx/savejpeg.zip
该控件提供了SaveJPG函数可以用来保存图像为.jpg格式
它的英语介绍:
http://vbaccelerator.com/codelib/gfx/vbjpeg.htm
你哪里有保存图片的动作啦？