Afterload 代码优化 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，

窗口的after load 代码耗时较长，请老师帮忙优化一下啊

For i As Integer = 1 To 999

Dim btn As object

If i <= 99 Then

btn = e.Form.CreateControl("btn_tabcontrol1_pg" & i, ControlTypeEnum.Button)

End If

If i <= 199 And i>=100 Then

btn = e.Form.CreateControl("btn_tabcontrol2_pg" & i-99, ControlTypeEnum.Button)

End If

If i <= 299 And i>=200 Then

btn = e.Form.CreateControl("btn_tabcontrol2=3_pg" & i-199, ControlTypeEnum.Button)

End If

If i <= 399 And i>=300 Then

btn = e.Form.CreateControl("btn_tabcontrol4_pg" & i-299, ControlTypeEnum.Button)

End If

If i <= 499 And i>=400 Then

btn = e.Form.CreateControl("btn_tabcontrol5_pg" & i-399, ControlTypeEnum.Button)

End If

If i <= 599 And i>=500 Then

btn = e.Form.CreateControl("btn_tabcontrol6_pg" & i-499, ControlTypeEnum.Button)

End If

If i <= 699 And i>=600 Then

btn = e.Form.CreateControl("btn_tabcontrol7_pg" & i-599, ControlTypeEnum.Button)

End If

If i <= 799 And i>=700 Then

btn = e.Form.CreateControl("btn_tabcontrol8_pg" & i-699, ControlTypeEnum.Button)

End If

If i <= 899 And i>=800 Then

btn = e.Form.CreateControl("btn_tabcontrol9_pg" & i-799, ControlTypeEnum.Button)

End If

If i <= 999 And i>=900 Then

btn = e.Form.CreateControl("btn_tabcontrol10_pg" & i-899, ControlTypeEnum.Button)

End If

你这是在干嘛

上个例子看看, 把你需求说出来,也许可以换个高效率的方法

跟代码没有关系，你动态生成1000个控件肯定很慢啊。

老师，

例子是这个附件我写有些夸张了，实际上不会到999，但会有一些；

另外，页面的关闭按钮还有些没有达到理想，劳烦有点甜老师在帮忙改下，真是不好意思。关闭按钮的提示

此主题相关图片如下：关闭按钮提示.png

[此贴子已经被作者于2015/4/2 17:18:45编辑过]

第一个问题

窗口1的afterload

For i As Integer = 1 To 999

Dim btn As object

If i <= 99 Then

btn = e.Form.CreateControl("btn_tabcontrol1_pg" & i, ControlTypeEnum.Button)

这是一个生成页面对应的BUTTON

对应的每个模块的窗口会有很多例如页面999的PAGE1 对应窗口2的模块的很多窗口我设定最大是99个（实际不会是这么多，可以小些）

你弄那么多这些东西想做什么? 还不如点击页面再生成

或者根据需求,生成对应数量的,不要那么多

窗口2的SelectedIndexChanged事件的 e.Form 改成 Forms("窗口1")

有点甜老师，

还是不行，麻烦您再帮忙看看。

此主题相关图片如下：qq图片20150402174215.png

主题：Afterload 代码优化