主题：Panl 控件中BUTTON控件的自动增加

1、你可以用动态添加控件的方式，完panel里面添加button，参考 http://www.foxtable.com/help/topics/1409.htm

 

2、覆盖的问题，是因为你把按钮添加在一个panel里面了，你应该弄两个panel，然后分别添加属于自己的按钮啊

 

呃，不是很简单么？在afterload事件，代码这样写

 

pidx.Clear
pkey.clear
vars("pclose") = False
For i As Integer = 1 To 3
    Dim btn As WinForm.Button
    btn = e.Form.CreateControl("btn_pg" & i, ControlTypeEnum.Button)
    e.Form.controls("panel1").AddControl(btn)
    btn.Visible = False
    btn.backColor = Color.white
    btn.Dock = 3
Next

 不明白你的意图。 呃，这两个本来就是不相关的。要显示哪一个，你就控制哪个panel显示出来。

 你要做多少个，对应的东西就要弄多少个，比如

 

 pidx 就要弄两个，分别存储内容

 不理解你为什么要这样做，你设计界面的时候，肯定要添加 TabControl，然后往里面设计内容的啊。

 

 你现在到底想实现什么？

Button好不好用，是你这样代码影响的

 

If e.Sender.Name.StartsWith("btn_pg") Then

 

以及这句代码影响的

 

For Each k As String In pidx.keys  '显示所有值

 你现在到底想做什么啊？

 

 例子发上来，说明意图。

    

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:页面顺序.foxdb

 看14楼，参考着做。

 不能