Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]循环增加控件


  共有3157人关注过本帖树形打印复制链接

主题：[求助]循环增加控件
帅哥哟，离线，有人找我吗？
moxuejiahui
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：105 积分：849 威望：0 精华：0 注册：2015/1/25 23:22:00 		[求助]循环增加控件  发帖心情 Post By：2015/4/13 21:15:00 [只看该作者]

我在窗口中希望达到循环增加控件要怎么弄呢，帮我看看下面的代码吧，为什么只增加一个呢
Dim cz As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim jjk As WinForm.TextBox = e.Form.Controls("TextBox6")
Dim fs As WinForm.ComboBox = e.Form.Controls("ComboBox2")

If cz.text = "" Then
    MessageBox.show("请先选择材质","提示")
Else
    If fs.text = "横裁" Then
        Dim maxc As Integer
        Dim maxk As Integer
        maxc = DataTables("规格需求").Compute("max(长)","材质 ='" & cz.text & "' and 剩余欠量 > 0 and 不套裁 = false")
        maxk = DataTables("规格需求").Compute("max(宽)","长 = "& maxc &" And 剩余欠量 > 0 And 不套裁 = false")
        Dim dc As DataRow = DataTables("规格需求").find("长 = "& maxc &" And 宽 = "& maxk &"")
        Dim xq As Integer = dc("剩余欠量")
        Dim hengchu1 As Integer = Int(1200 / (maxk + 4))
        Dim Ary() As Integer = {xq,hengchu1}
        Array.Sort(ary)
        Dim sas As Integer = ary(0)
        Dim i As Integer
        For i = 1 To sas
            Dim x1 As Integer = maxc / 3.5
            Dim x2 As Integer = maxk / 3.5
            Dim wzx As Integer = 5 + (i - 1) * (maxc + 1)
            Dim Panel1 As WinForm.Panel
            Panel1 = e.Form.CreateControl("Panel1", ControlTypeEnum.Panel)
            Panel1.SetBounds(wzx, 5, x2, x1)
            e.Form.Controls("SplitContainer1").Panel2.AddControl(Panel1)
            e.Form.Controls("Panel1").BackColor = Color.Orangered
            Dim lbl As WinForm.Label
            lbl = e.Form.CreateControl("Label1", ControlTypeEnum.Label)
            Dim gg1 As String = maxc & "*" & maxk
            lbl.Text = gg1
            lbl.Left = x2 / 2 - 30
            lbl.Top = x1 / 2 - 15
            e.Form.Controls("Panel1").AddControl(lbl)
            Dim nd As DataRow = DataTables("临时").addnew()
            nd("规格编号") = dc("规格编号")
            nd("数量") = 1
            Dim syh1 As Integer = 1
        Next
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点酸
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1093 积分：6682 威望：0 精华：0 注册：2013/7/1 9:05:00 		  发帖心情 Post By：2015/4/13 21:20:00 [只看该作者]

1、你用messagebox.show(sas)，显示sas的值，如果是1，肯定增加一个

2、不是不是1，肯定增加不止1个，可能你增加的控件位置重叠，看起来只有一个

3、增加完成之后，你可以用e.form.Controls.Count，看看总的控件数量
 回到顶部
帅哥哟，离线，有人找我吗？
moxuejiahui
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：105 积分：849 威望：0 精华：0 注册：2015/1/25 23:22:00 		  发帖心情 Post By：2015/4/13 21:26:00 [只看该作者]

不是1，因为增加三行，控件位置是随i变化的，所以不应该是重叠啊，我考虑会不会是因为增加了第一个后有了控件名所以在循环中就不能增加相同名称的控件了啊，可是这样的话要怎么定义控件名也随循环变动呢
 回到顶部
帅哥哟，离线，有人找我吗？
moxuejiahui
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：105 积分：849 威望：0 精华：0 注册：2015/1/25 23:22:00 		  发帖心情 Post By：2015/4/13 21:27:00 [只看该作者]

因为我设置了两个按钮，代码相同，但是控件位置有改变，分别点击后却只能增加一个控件，这样看的话应该是控件名重复的原因了

 回到顶部
帅哥哟，离线，有人找我吗？
moxuejiahui
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：105 积分：849 威望：0 精华：0 注册：2015/1/25 23:22:00 		  发帖心情 Post By：2015/4/13 21:33:00 [只看该作者]

哪位大大再帮我看看啊

 回到顶部
客人(124.130.*.*)
 小大  6楼


  发帖心情 Post By：2015/4/13 21:45:00 [只看该作者]

这样改的话是不是能够形成动态控件名了啊，可是还是增加一个
 For i = 1 To sas
            Dim x1 As Integer = maxc / 3.5
            Dim x2 As Integer = maxk / 3.5
            Dim wzx As Integer = 5 + (i - 1) * (maxc + 1)
            Dim Panel1 As WinForm.Panel
            Panel1 = e.Form.CreateControl("Panel"& i &"", ControlTypeEnum.Panel)
            Panel1.SetBounds(wzx, 5, x2, x1)
            e.Form.Controls("SplitContainer1").Panel2.AddControl(Panel1)
            e.Form.Controls("Panel"& i &"").BackColor = Color.Orangered
            Dim lbl As WinForm.Label
            lbl = e.Form.CreateControl("Label"& i &"", ControlTypeEnum.Label)
            Dim gg1 As String = maxc & "*" & maxk
            lbl.Text = gg1
            lbl.Left = x2 / 2 - 30
            lbl.Top = x1 / 2 - 15
            e.Form.Controls("Panel"& i &"").AddControl(lbl)
            Dim nd As DataRow = DataTables("临时").addnew()
            nd("规格编号") = dc("规格编号")
            nd("数量") = 1
            Dim syh1 As Integer = 1
        Next
 回到顶部
帅哥哟，离线，有人找我吗？
ybil
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：521 积分：4910 威望：0 精华：7 注册：2008/9/2 22:22:00 		  发帖心情 Post By：2015/4/13 21:56:00 [只看该作者]

这样?
Dim cz As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim jjk As WinForm.TextBox = e.Form.Controls("TextBox6")
Dim fs As WinForm.ComboBox = e.Form.Controls("ComboBox2")

If cz.text = "" Then
    MessageBox.show("请先选择材质","提示")
Else
    If fs.text = "横裁" Then
        Dim maxc As Integer
        Dim maxk As Integer
        maxc = DataTables("规格需求").Compute("max(长)","材质 ='" & cz.text & "' and 剩余欠量 > 0 and 不套裁 = false")
        maxk = DataTables("规格需求").Compute("max(宽)","长 = "& maxc &" And 剩余欠量 > 0 And 不套裁 = false")
        Dim dc As DataRow = DataTables("规格需求").find("长 = "& maxc &" And 宽 = "& maxk &"")

        Dim gg1 As String = maxc & "*" & maxk
        Dim x1 As Integer = maxc / 3.5
        Dim x2 As Integer = maxk / 3.5
        Dim wzx As Integer = 5 + (i - 1) * (maxc + 1)

        Dim xq As Integer = dc("剩余欠量")
        Dim hengchu1 As Integer = Int(1200 / (maxk + 4))
        Dim Ary() As Integer = {xq,hengchu1}
        Array.Sort(ary)
        Dim sas As Integer = ary(0)

            
        Dim Panel1 As WinForm.Panel
        Dim lbl As WinForm.Label
    
        For i As Integer = 1 To sas            
            Panel1 = e.Form.CreateControl("Panel" & i, ControlTypeEnum.Panel)
            Panel1.SetBounds(wzx, 5, x2, x1)
            e.Form.Controls("SplitContainer1").Panel2.AddControl(Panel1)
            e.Form.Controls("Panel1").BackColor = Color.Orangered
            
            lbl = e.Form.CreateControl("Label" & i, ControlTypeEnum.Label)
            lbl.Text = gg1
            lbl.Left = x2 / 2 - 30
            lbl.Top = x1 / 2 - 15
            e.Form.Controls("Panel1").AddControl(lbl)
            Dim nd As DataRow = DataTables("临时").addnew()
            nd("规格编号") = dc("规格编号")
            nd("数量") = 1
            'Dim syh1 As Integer = 1
        Next
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点酸
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1093 积分：6682 威望：0 精华：0 注册：2013/7/1 9:05:00 		  发帖心情 Post By：2015/4/13 21:56:00 [只看该作者]

肯定不会只增加一个，你在代码的最前面和最后面用Messagebox.show(e.Form.controls.count),看看执行前和执行后，控件数量的变化。

搞不定就做个简单例子发上来。
 回到顶部
客人(124.130.*.*)
 小大  9楼


  发帖心情 Post By：2015/4/13 22:02:00 [只看该作者]

呵呵，是我高错了，容器尺寸小，所以不显示增加的控件
这里应该/3.5，呵呵
谢谢各位
Dim wzx As Integer = 5 + ((i - 1) * (maxk + 4)) / 3.5
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询