以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]控件挡住菜单  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122568)

--  作者：blsu33 --  发布时间：2018/7/28 9:51:00 --  [求助]控件挡住菜单 老师，FA0101窗口打开，动态的控件挡住菜单，如何设置能正常呢。 以下内容是专门发给有点蓝浏览

--  作者：有点蓝 --  发布时间：2018/7/28 10:01:00 --   za_nb_addformctrol函数     For Each dr3 As DataRow In drs2         Dim lb As WinForm.Label = forms(frmname).Controls("lb_" & dr3("tblcolid"))         Dim kj As WinForm.control = forms(frmname).Controls("kj_" & dr3("tblcolid"))         kj.Enabled=DataTables(dr3("tbltname")).AllowEdit         lb.top = 3+(i\\tet)*h + 30         lb.AutoSize = True         If dr3("nonull")=True Then             lb.ForeColor= Color.Red         End If         lb.left = iif(i Mod tet = 0, 5, w*(i Mod tet))         lb.text = dr3("poutcaption").padright(len-dr3("poutcaption").length) & ":"         kj.top = 3+(i\\tet)*h + 30         \'kj.left = iif(i Mod tet = 0, 5, w*(i Mod tet)) + lablen         kj.left = iif(i Mod tet = 0, 5, w*(i Mod tet)) +lb.width         kj.width=150         i += 1     Next