单元格图片查看大图

zhaoxl

王总，单元格显示图片，怎样单击或双击显示查看大图啊

admin

方案一：只针对某个特定的窗口。
1、创建一个窗体，在窗体里面放一个SmPictureBox控件。设置SmPictureBox控件的以下几个属性：
a.绑定字段：绑定到指定的窗体指定表的指定图片字段。
b.显示模式：根据自己显示图片的效果需要，可以参数：森之格低代码开发平台 (sanmugrid.com)
2、在要查看大图的表中写代码，单击事件或者双击事件随意，判断刚刚创建的窗体是否打开，打开即什么都不做，没有打开就打开窗体即可。
代码大概如下：

Public Sub MouseClick(sender As Object,e As  System.Windows.Forms.MouseEventArgs)
        Dim tbl As SmGrid=sender
        If tbl.Col<tbl.Rows.Fixed Then
                Return
        End If
        Dim strColName=tbl.Cols(tbl.Col).Name
        If strColName="Photo" AndAlso Proj.OpenedForms.Contains("图片显示模板")=False Then '如果没有打开窗体
                Dim frm As SmForm=Proj.Forms("图片显示模板")
                frm.Owner=tbl.Form
                frm.Show()
        End If
End Sub
复制代码

方案二：做一个相对通用的窗口。
同样利用上面方案一中的窗体，通过代码代码动态设置"图片显示模板"窗体中SmPictureBox控件的绑定字段属性。

zhaoxl

方案二：做一个相对通用的窗口。
同样利用上面方案一中的窗体，通过代码代码动态设置"图片显示模板"窗体中SmPictureBox控件的绑定字段属性。
动态绑定字段代码可以贴个代码出来吗

admin

Dim tbl As SmGrid=sender
If tbl.Col<tbl.Rows.Fixed Then
        Return
End If
Dim strColName=tbl.Cols(tbl.Col).Name
If strColName="Photo" AndAlso Proj.OpenedForms.Contains("图片显示模板")=False Then '如果没有打开窗体
        Dim frm As SmForm=Proj.Forms("图片显示模板")
        frm.Owner=tbl.Form
        frm.Show()
End If

'如果是指定字段，则要检查一下是否要重新绑定字段
If strColName="Photo" Then
        Dim pic As SmPictureBox=Proj.OpenedForms("图片显示模板").ControlDictionary()("图片控件")
        '需要绑定的字段
        Dim strBinding As String=tbl.Form.Name & "." & tbl.Name & "." & strColName
        If strBinding<>pic.BindingColString Then
                pic.BindingColString=strBinding
        End If
End If
复制代码

zhaoxl

谢谢王总