- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 代码 不好使呢 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=47304)
-- 发布时间：2014/3/7 19:01:00
-- 代码 不好使呢
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter = "所有文件(*.*)|*.*" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim ifo As new FileInfo(dlg.FileName)
Dim ids As String = "30720"
If ifo.Length < ids Then
Dim se As WinForm.PictureBox = e.Form.Controls("图片名")
se.Image = GetImage(dlg.FileName)
Else
MessageBox.Show("不得超过300KB", "错误提示")
End If
End If
为啥 大于 30720 ，也能正常登录呢？
-- 发布时间：2014/3/7 20:42:00
--
继续等
-- 发布时间：2014/3/7 20:47:00
--
ids你设置成了字串 把他改成Integer
-- 发布时间：2014/3/7 20:56:00
--
这样改一下
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter = "所有文件(*.*)|*.*" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim ifo As new FileInfo(dlg.FileName)
Dim ids As Integer = 30720
If ifo.Length < ids Then
Dim se As WinForm.PictureBox = e.Form.Controls("图片名")
se.Image = GetImage(dlg.FileName)
Else
MessageBox.Show("不得超过300KB", "错误提示")
End If
End If
-- 发布时间：2014/3/7 23:47:00
-- 回复：（有点甜） 这样改一下 Dim dlg ...
还是不好使啊
-- 发布时间：2014/3/8 8:26:00
--
用弹出窗口，测一下ids的值。
-- 发布时间：2014/3/8 8:34:00
-- 回复：（lsy）用弹出窗口，测一下ids的值。
原来是 30720 做错了， 应该是 307200 ，少个零 所以··· 黑黑，