- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 动态生成控件问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185380)
-- 发布时间：2023/2/20 12:46:00
-- 动态生成控件问题
老师，我设置了窗口大小，每次显示5个控件，怎么让控件滚动显示，比如我第一次生成显示1-5的控件，通过计时器，怎么实现下一次显示2-6的控件。
Dim x = e.Form.BaseForm.Width
Dim frm = e.Form.Controls("panel1")
Dim zaj As List(Of String) = DataTables("表A").GetValues("第一列", "", "序号")
For Each za As String In zaj
Dim ajm As List(Of DataRow) = DataTables("表A").Select("第一列=\'" & za & "\'", "序号")
For Each aj2 As DataRow In ajm
Dim aj As String = aj2("第一列")
\' Dim jpg As String = aj2("图标")
Dim hsmc As String = aj2("第一列")
Dim abc As WinForm.Button
abc = e.Form.CreateControl(hsmc, ControlTypeEnum.button)
abc.Text = aj
abc.Dock = 3 \'锚定
abc.Width = x/5 \'按钮宽度
abc.Height = 100 \'按钮高度
\' abc.Image = GetImage(jpg) \'图标
abc.ImageAlign = ContentAlignment.MiddleLeft \'图标位置,靠左居中
abc.TextAlign = ContentAlignment.MiddleLeft \'名称位置,靠左居中
abc.TextImageRelation = TextImageRelation.ImageBeforeText \'图标在文本之前 Automatic \'图标相对位置\'自动
abc.VisualStyle = IVisualStyle.Office2010Black \'按钮主题
frm.AddControl(abc)
Next
Next
-- 发布时间：2023/2/20 13:57:00
--
请上传实例测试
-- 发布时间：2023/2/20 14:07:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:滚动显示.foxdb |
-- 发布时间：2023/2/20 14:22:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:滚动显示.zip |
-- 发布时间：2023/2/20 14:36:00
--
老师，假如只有10行，显示到6-10时，就重新显示1-5怎么修改
-- 发布时间：2023/2/20 14:45:00
--
判断一下全局变量的值
-- 发布时间：2023/2/20 14:59:00
--
OK