StartEdit

Dim frm = Forms("大图")

If frm.opened Then

    frm.baseform.left = -1000

    frm.baseform.Top = -1000

End If

DrawCell

If e.Col.Name = "tp" Then

    If e.Row.IsNull("url") = False Then

        e.StartDraw

    If e.Row("tp") > "" Then

        e.Graphics.DrawImage(getimage(projectPath & "attachments\\" & e.Row("tp")), e.x + 3,e.y + 3, 50, 50) \'绘制第一个图标

    End If

        If FileSys.FileExists(ProjectPath & e.Row("_Identify") & ".jpg") = False Then

            Network.DownloadFile(e.Row("url"), ProjectPath  & e.Row("_Identify") & ".jpg", "", "", False, 6000, True)

        End If

        Dim img As Image = GetImage(ProjectPath  & e.Row("_Identify") & ".jpg")

        e.Graphics.DrawImage(img, e.x + 3,e.y + 3, 100, 85)

        e.text = ""

        e.EndDraw

    End If

End If

MouseEnterCell

Dim frm = Forms("大图")

If frm.opened = False Then

    frm.open

End If

If e.Col.name = "tp" AndAlso e.Row("tp") > "" Then

    frm.baseform.left = System.Windows.Forms.Cursor.Current.Position.X + 5

    frm.baseform.Top = System.Windows.Forms.Cursor.Current.Position.Y + 5

    e.Table.Focus

    frm.controls("picturebox1").image = GetImage(ProjectPath  & e.Row("_Identify") & ".jpg")

Else

    frm.baseform.left = -1000

    frm.baseform.Top = -1000

End If

MouseLeaveCell

Dim frm = Forms("大图")

If e.Col.name <> "tp" AndAlso frm.opened Then

    frm.baseform.left = -1000

    frm.baseform.Top = -1000 

End If

还是不管用，无法显示大图

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

点击浏览该文件:管理项目1.foxdb