问一个图片存储的问题!急!急!急!

Question

Option Explicit' 保存文件
Private Sub Command1_Click()
    
    Dim arrData()   As Byte
    Dim objPropBag  As PropertyBag
    
    Set objPropBag = New PropertyBag
    
    objPropBag.WriteProperty "车次", TextCarNo(0).Text, vbNullString
    objPropBag.WriteProperty "始发站", TextStartStop(1).Text, vbNullString
    objPropBag.WriteProperty "终点站", TextEndStop(2).Text, vbNullString
    objPropBag.WriteProperty "车号", TextCarNumber(4).Text, vbNullString
    objPropBag.WriteProperty "限速最大值", TextLimitSpeed(5).Text, vbNullString
    objPropBag.WriteProperty "司机工作时间", TextCarManTime(6).Text, vbNullString
    objPropBag.WriteProperty "司机照片", ImageCarManPic.Picture, Nothing
    
    arrData = objPropBag.Contents()
    
    CommonDialog1.ShowSave
    Open CommonDialog1.FileName For Binary As #1
        Put #1, , arrData()
    Close #1
    
    Set objPropBag = Nothing
    
End Sub' 打开文件
Private Sub Command2_Click()    Dim arrData()   As Byte
    Dim objPropBag  As PropertyBag
    
    CommonDialog1.ShowOpen
    Open CommonDialog1.FileName For Binary As #1
        ReDim arrData(LOF(1) - 1)
        Get #1, , arrData()
    Close #1
    
    Set objPropBag = New PropertyBag
    objPropBag.Contents = arrData()
    
    TextCarNo(0).Text = objPropBag.ReadProperty("车次", vbNullString)
    TextStartStop(1).Text = objPropBag.ReadProperty("始发站", vbNullString)
    TextEndStop(2).Text = objPropBag.ReadProperty("终点站", vbNullString)
    TextCarNumber(4).Text = objPropBag.ReadProperty("车号", vbNullString)
    TextLimitSpeed(5).Text = objPropBag.ReadProperty("限速最大值", vbNullString)
    TextCarManTime(6).Text = objPropBag.ReadProperty("司机工作时间", vbNullString)
    Set ImageCarManPic.Picture = objPropBag.ReadProperty("司机照片", Nothing)
    
    Set objPropBag = NothingEnd Sub

Answer 1

你自己的那种方法不可行，SavePicture方法会去检查或者构造图片文件的格式。
关于PropertyBag的用法请参考MSDN文档。