主题：截图自动命名增加

一个单元格增加多个图片？

If e.Col.name = "检索" Then
    baseMainForm.WindowState= Windows.forms.FormWindowState.Minimized
    ClipBoard.Clear
    Dim proc As new Process
    proc.File = ApplicationPath & "/capture.exe"
    proc.WaitForClose = True
    proc.Start
    If ClipBoard.GetImage IsNot Nothing Then
        Dim f As String =  e.Row("大类") & "\"  & "文件检索图"  & "\"& Format( date.Today,"yyyyMMddHHmmss") & "/" & e.Row("二类") & e.Row("三类") & ".jpg"
        Dim path As String = e.Col.DataCol.DefaultFolder
        If path = "" Then
            path = ProjectPath & "Attachments/"
        End If
        basemainform.WindowState = 2
        Dim dir As String = FileSys.GetParentPath(path & "/" & f)
        If FileSys.DirectoryExists(dir) = False Then FileSys.CreateDirectory(dir)
        ClipBoard.GetImage.save(path & "/" & f)
        e.Row(e.Col.name) = f & vbcrlf & e.Row(e.Col.name)
    End If
    e.cancel = True

End If

就是增加序号就行了 最好事日期加序号 按月重编

山方面的代码测试不能  两次截屏的话  会覆盖第一个