主题：如何解决

你这两句代码为什么要写？不能去掉？
 
    Dim buffer() As Byte = Functions.Execute("GetImageToBytes",pic.Image)
    Dim result As Integer = Functions.Execute("SaveBytesToFile",buffer,e.Form.Controls("FileName").Value)
 
 
下面的代码可以，为什么不用下面的？具体问题，请上传具体实例说明。

比如

 

Dim pic As WinForm.PictureBox = e.Form.Controls("PicView2")
Dim img As Image
e.Form.TimerEnabled = False
If pic.Image IsNot Nothing
    Dim buffer() As Byte = Functions.Execute("GetImageToBytes",pic.Image)
    Dim result As Integer = Functions.Execute("SaveBytesToFile",buffer,"d:\test123.jpg")
   
    If result = 1
        MessageBox.Show("照片保存为: d:\test123.jpg"  ,"保存成功")
        e.Form.Close()
    Else
        MessageBox.Show("保存失败","失败")
    End If
Else
    MessageBox.Show("请先拍照!","错误")
End If
e.Form.TimerEnabled = True

 

MessageBox.Show("照片保存为: \\192.168.101.251\共享数据\住宿生信息\学生照片\" & Tables("住宿生信息").Current("姓名") & ".JPG "  ,"保存成功")