一个TAB选项卡界面的代码

一个TAB选项卡界面的代码

1. --Destroy the dialog if it is already open
   
2. try(destroyDialog testR)catch()
   
3. 
   
4. --Create a rollout
   
5. rollout testR "Test" width:300
   
6. (
   
7. --Add a dot net tab control
   
8. dotNetControl tabs "system.windows.forms.tabControl" width:(testR.width-30) height:25
   
9. --Add a sub rollout.
   
10. subRollout subRoll "Sub" width:(testR.width-30) height:80 offset:[0,-5]
    
11. 
    
12. --Function to show all properties, methods and events for any dotNet object
    
13. fn showProps obj=
    
14. (
    
15.   clearListener()
    
16.   format "Properties:\n"
    
17.   showProperties obj
    
18.   format "\nMethods:\n"
    
19.   showMethods obj
    
20.   format "\nEvents:\n"
    
21.   showEvents obj
    
22. )
    
23. 
    
24. --Add rollouts to the subRollout based on which tab is currently selected.
    
25. fn addTabRollout index=
    
26. (
    
27.   --Remove any existing rollouts first.
    
28.    for x in subRoll.rollouts do removeSubRollout subRoll x
    
29.   
    
30.   sub=case index of
    
31.   (
    
32.    default:
    
33.    (
    
34.     rollout sub01 "Sub 01"
    
35.     (
    
36.      button testBt "test Button"
    
37.      on testBt pressed do (messageBox "You pressed the button" title:"Alert!")
    
38.     )
    
39.    )
    
40.    1:
    
41.    (
    
42.     rollout sub01 "Sub 02"
    
43.     (
    
44.      button testBt "test Button"
    
45.      on testBt pressed do (messageBox "You pressed the button" title:"Alert!")
    
46.     )
    
47.    )
    
48.    2:
    
49.    (
    
50.     rollout sub01 "Sub 03"
    
51.     (
    
52.      button testBt "test Button"
    
53.      on testBt pressed do (messageBox "You pressed the button" title:"Alert!")
    
54.     )
    
55.    )
    
56.   )
    
57.   addSubRollout subRoll sub
    
58. )
    
59. 
    
60. --Tab initilization function.
    
61. fn initTabs tab labels:#() =
    
62. (
    
63.   --Clear any existing tabs incase we do an update of them at some point.
    
64.   tab.tabPages.clear()
    
65.   --Set the size mode so that we can control their width.
    
66.   tab.sizeMode=tab.sizeMode.fixed
    
67.   --Set the width of every tab.
    
68.   tab.itemSize=dotnetObject "System.Drawing.Size" ((tab.width/labels.count)-2) 25
    
69.   
    
70.   --Loop through all the labels that we pass to the function and add a tab by the same name.
    
71.    for x in labels do tab.tabPages.add x
    
72. )
    
73. 
    
74. --When the mouse button is released on a tab get the selected tab and pass it to our addTabRollout function.
    
75. on tabs MouseUp senderArg arg do
    
76. (
    
77. --   showProps arg
    
78.   addTabRollout senderArg.SelectedIndex
    
79. )
    
80. 
    
81. --When the rollout opens initilize the tab control
    
82. on testR open do
    
83. (
    
84. --   showProps tabs
    
85.   
    
86.   initTabs tabs labels:#("Main", "Settings", "User")
    
87.   addTabRollout 0
    
88. )
    
89. )
    
90. --Create the dialog
    
91. createDialog testR

复制代码

楼主，你从来不用熬夜的吧！

找到榜样了～

小手一抖，积分到手！不过这里没积分的我也顶楼主～我就是特地来顶楼主的！

淡定，淡定，淡定……

简洁，明了，然后执行效率还很高。这样的代码就是我们应该追求的吧？我估计

楼主你为什么放弃治疗？院里哪个大夫把你放出来的？

真是郁闷啊！

这个还不错！！！

坐等教程啊。谢谢

楼主，你从来不用熬夜的吧！

过来看看的,喜欢

我楼主朋友，我就是特地来顶楼主的！，嘿嘿

谢谢楼主

楼主，你从来不用熬夜的吧！

请教下楼主，这个是用什么做的啊？

沙发！沙发!

小伙子很不错

哈。。 看到了。。。 多交流哈。

我是个凑数的。。。

感谢V5CG提供这么多机会，我相信会越来越好的

现在的程序越来越狂了。

楼主你为什么放弃治疗？院里哪个大夫把你放出来的？

路过，支持一下啦

哈。。 看到了。。。 多交流哈。