代码调取照片拍照，拍出来就是分辨率只有640*480的？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim c1 As new camera

If e.Col.Name = "照片" Then

e.Cancel = True '取消默认动作

c1.capture() '开始照相

If c1.image IsNot Nothing Then '照相成功

Dim file1 As String = ProjectPath & "Attachments/" & e.Row("归类") & "." & Format(e.Row("录入时间"), "yyyyMMdd") & "." & e.Row.DataRow.Lines("照片").count+1 & ".jpg"

c1.Save(file1) '保存文件

Dim ls1 = e.Row.DataRow.Lines("照片")

ls1.add(fileSys.GetName(file1))

e.Row.DataRow.Lines("照片") = ls1

End If

以上代码调取照片拍照，拍出来就是分辨率只有640*480的？

若要拍支持1920*1080或以上的照片，应该怎么调整设置数据？

主题：代码调取照片拍照，拍出来就是分辨率只有640*480的？