神马品牌网win7魔兽世界主题桌面:关于VB中JPG图像的另存为问题
来源：百度文库 编辑：神马品牌网 时间：2024/05/06 09:03:24
在VB 中，用另存为对话框保存文件，文件能够保存，但是内容是空的，保存的JPG文件没有任何内容，请指教，谢谢！
下面是文件相关代码：
Private Sub command1_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
请教：如何将JPG文件的原内容保存到新文件中？谢谢！如果采用答案，送100分！
关键问题是如何读入和保存？
下面是文件相关代码：
Private Sub command1_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
请教：如何将JPG文件的原内容保存到新文件中？谢谢！如果采用答案，送100分！
关键问题是如何读入和保存？
因为你只是显示要写的文件,但是没有源JPG文件.加一个iamge的控件,读入图片后再保存.
你是把文件打开了，但是没有写数据进去啊？