等等

窗口2

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

点击浏览该文件:模块功能代码.rar

Dim dr As DataRow
Select Case e.Node.Level
    Case 1
        Dim index  As  Integer
        e.Form.Controls("Panel1").ClearControl
        Dim Top As Integer = 0
        For Each cl As DataCol In DataTables("用标签做数据浏览").DataCols
            dr = DataTables("用标签做数据浏览").Find("第一列=\'" & e.Node.DataRow("第一列") & "\' And 第二列 =\'" & e.node.DataRow("第二列") & "\' And " & cl.Name & " Is Not Null")
            If dr IsNot Nothing Then
                Dim rad As WinForm.Label
                rad = e.Form.CreateControl(cl.Name,ControlTypeEnum.label)
                rad.Font = New Font("微软雅黑",9)
                rad.Text = dr(cl.Name)
                rad.Left = 10
                rad.Top = top
                rad.AutoSize = True
                e.Form.Controls("Panel1").AddControl(rad)
                top += rad.height + 10
                If cl.ExtendType = ExtendTypeEnum.Images Then
                    Dim lst As New List(of String)
                    lst = dr.Lines(cl.Name)
                    For Each ls As String In lst
                        Dim px As WinForm.PictureBox
                        px = e.Form.CreateControl(index ,ControlTypeEnum.PictureBox)
                        px.Width = 100
                        px.Height = 100
                        px.Left = 10
                        px.Top = top
                        px.AutoScroll = False
                        px.Image = GetImage(ProjectPath  & "Attachments\\" & ls)
                        px.SizeMode = ImageSizeMode.Zoom
                        Index += 1
                        e.Form.Controls("Panel1").AddControl(px)
                        top += px.height + 10
                    Next
                End If
            End If
        Next
End Select

红袍 那个图片控件在标签中间去了

此主题相关图片如下：qq拼音截图未命名.png

我需要在所有的标签下面

Tables("用标签做数据浏览").Position = Tables("用标签做数据浏览").FindRow(e.Node.DataRow)

Dim dr As DataRow
Select Case e.Node.Level
    Case 1
        Dim index  As  Integer
        Dim ls_img As new List(Of object)
        e.Form.Controls("Panel1").ClearControl
        Dim Top As Integer = 0
        For Each cl As DataCol In DataTables("用标签做数据浏览").DataCols
            dr = DataTables("用标签做数据浏览").Find("第一列=\'" & e.Node.DataRow("第一列") & "\' And 第二列 =\'" & e.node.DataRow("第二列") & "\' And " & cl.Name & " Is Not Null")
            If dr IsNot Nothing Then
                Dim rad As WinForm.Label
                rad = e.Form.CreateControl(cl.Name,ControlTypeEnum.label)
                rad.Font = New Font("微软雅黑",9)
                rad.Text = dr(cl.Name)
                rad.Left = 10
                rad.Top = top
                rad.AutoSize = True
                e.Form.Controls("Panel1").AddControl(rad)
                top += rad.height + 10
                If cl.ExtendType = ExtendTypeEnum.Images Then
                    Dim lst As New List(of String)
                    lst = dr.Lines(cl.Name)
                    For Each ls As String In lst
                        Dim px As WinForm.PictureBox
                        px = e.Form.CreateControl(index ,ControlTypeEnum.PictureBox)
                        px.Width = 100
                        px.Height = 100
                        px.Left = 10
                        px.Top = top
                        px.AutoScroll = False
                        px.Image = GetImage(ProjectPath  & "Attachments\\" & ls)
                        px.SizeMode = ImageSizeMode.Zoom
                        Index += 1
                        ls_img.add(px)
                    Next
                End If
            End If
        Next
        For Each img As object In ls_img
            img.Top = Top
            e.Form.Controls("Panel1").AddControl(img)
            top += img.height + 10
        Next
End Select