主题：增加图片时重命名图片名称

增加图片代码：

Dim dlg As New OpenFileDialog
Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
dlg.Filter= "图形文件|*.bmp;*.jpg;*.gif"
If dlg.ShowDialog = DialogResult.OK Then
    Dim pth As String = ProjectPath & "Attachments\"
    If dlg.FileName.ToLower.StartsWith(pth.ToLower) Then '如果文件来自Attachments目录
        piv.AddFile(dlg.FileName.SubString(pth.Length))
    Else '如果不是
        FileSys.CopyFile(dlg.FileName, pth & FileSys.GetName(dlg.FileName))
        piv.AddFile(FileSys.GetName(dlg.FileName))
    End If
End If

 

重命名 e.Form.Controls("学生姓名") 名称

请教代码怎样改？谢谢！

 

出现错误

 

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2016.4.6.1
错误所在事件：窗口,窗口1,Button1,Click
详细错误信息：
startIndex 不能大于字符串长度。
参数名: startIndex

上面的代码，不会报你3楼的错。

 

Dim dlg As New OpenFileDialog
Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
dlg.Filter= "图形文件|*.bmp;*.jpg;*.gif"
If dlg.ShowDialog = DialogResult.OK Then
    Dim pth As String = ProjectPath & "Attachments\"
    Dim fname As String = e.Form.Controls("学生姓名").Text
    If dlg.FileName.ToLower.StartsWith(pth.ToLower) Then '如果文件来自Attachments目录
        FileSys.RenameFile(dlg.FileName, pth & fname)
        piv.AddFile(fname)
    Else '如果不是
        FileSys.CopyFile(dlg.FileName, pth & fname)
        piv.AddFile(fname)
    End If
End If

此主题相关图片如下：qq截图20160413220622.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目12.zip

请指教

 不可能，上面代码不会报错。肯定你其它代码影响。

留记号！！