Foxtable(狐表)用户栏目专家坐堂 → 帮我修改一下代码


  共有2099人关注过本帖树形打印复制链接

主题:帮我修改一下代码

帅哥哟,离线,有人找我吗?
13796361423
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:179 积分:1932 威望:0 精华:0 注册:2020/2/14 18:49:00
帮我修改一下代码  发帖心情 Post By:2020/9/30 13:29:00 [只看该作者]

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,e.Form.Controls("FileName").Value)
    If result = 1
        Tables("学籍表").Current("相片") = Tables("学籍表").Current("学籍号") & ".JPG"
        Tables("学籍表").Current("已拍照") = True
        MessageBox.Show("照片保存为: " & e.Form.Controls("FileName").Value ,"保存成功")
        e.Form.Close()
    Else
        MessageBox.Show("保存失败","失败")
    End If
Else
    MessageBox.Show("请先拍照!","错误")
End If
e.Form.TimerEnabled = True

 

 

 

你好, 这是我的项目里窗口设计器中的照相窗口, 每照一张相片都要重新打开这个窗口,  我想照完相后,点击保存后不关闭该窗口, 直接照下一张照片, 请问如何修改代码


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105492 积分:536451 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/30 13:33:00 [只看该作者]

这句代码去掉:e.Form.Close()

 回到顶部