以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  怎么设置只允许保存在项目根目录？能否在下面代码基础上修改  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=84333)
--  作者：klg1011
--  发布时间：2016/4/28 15:35:00
--  怎么设置只允许保存在项目根目录？能否在下面代码基础上修改
Dim Chart As WinForm.Chart = e.Form.Controls("Chart1")
Dim dlg As New SaveFileDialog
dlg.Filter= "JPEG|*.jpg|WMF|*.wmf|BMP|*.bmp|GIF|*.gif|PNG|*.png|TIFF|*.tif|EMF|*.emf"
If dlg.ShowDialog = DialogResult.Ok Then
    Chart.SaveImage(dlg.FileName)
End If
--  作者：klg1011
--  发布时间：2016/4/28 15:45:00
--  
图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看
--  作者：klg1011
--  发布时间：2016/4/28 16:20:00
--  
图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看
--  作者：大红袍
--  发布时间：2016/4/28 16:51:00
--  

Dim Chart As WinForm.Chart = e.Form.Controls("Chart1")
Dim dlg As New SaveFileDialog
dlg.Filter= "JPEG|*.jpg|WMF|*.wmf|BMP|*.bmp|GIF|*.gif|PNG|*.png|TIFF|*.tif|EMF|*.emf"

Do While True
    If dlg.ShowDialog = DialogResult.Ok Then
        If FileSys.GetParentPath(dlg.FileName) = ProjectPath.trim("\\") Then
            Exit Do
        End If
    End If
Loop

Chart.SaveImage(dlg.FileName)