主题：UserCode.Test()这是什么错误？

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
Dim wjm As String

dlg.Filter= "图形文件|*.bmp;*.jpg;*.gif" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

Dim idx As Integer = dlg.SafeFileName.LastIndexOf(".")  '从文件名最后一位查找文件格式位置
    Dim ext As String  = dlg.SafeFileName.SubString(idx)  '再从文件名位置中获得文件格式
    Dim img As image = getImage(dlg.FileName)
    wjm = "1236" & ext

MessageBox.Show(img.height,"提示!",MessageBoxButtons.OK,MessageBoxIcon.Information)

 

 

以上代码执行后出现图中错误（有时发生错误，有时又正常），请教老师解决的办法

此主题相关图片如下：%p}fuig2hu$3jrl_c(5un2.png

dlg.SafeFileName 改为 dlg.FileName

还是报错，估计是文件太大引起的错误，文件小就没事， Dim img As image，怎么判断img是不是空值，学生怀疑是getImage(dlg.FileName)获得的文件变慢代码执行后img 还是空值产生了错误

几百M一个文件？调试一下看哪一句代码有问题：http://www.foxtable.com/webhelp/topics/1485.htm

img.height，这行出问题

 

Image

Image表示图片。

Image的属性有：

Width：以像素为单位的宽度
Height：以像素为单位的高度

图片发上来测试一下

文件上传就错误

文件如果大于2M就上传到云盘，提供下载链接。大于5M建议压缩后使用吧，foxtable毕竟不是专业的图像处理软件