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
还是不管用，无法显示大图
[此贴子已经被作者于2020/6/6 10:51:35编辑过]
加好友 
发短信
Post By：2020/6/6 10:34:00 [只看该作者]
