怎样搬移splitcontainter中,panel内的控件?

angelayang 2009-10-16 03:23:46
我的程序中使用了四个SPLITCONTAINTER,现在需要运行时,把splitcontainter1.panel1里面的控件,和splitcontainter3.panel1里面的控件互换,有办法吗?
...全文
81 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
angelayang 2009-10-26
  • 打赏
  • 举报
回复
感谢sdfkfkd

我现在的做法是在SplitContainer1.Panel1 和SplitContainer1.Panel2内再加一个panelMy1,panelMy2,所用及的控件都放到这两个panel去。

需要搬时,直接改变panelMy1,panelMy2的Parent属性。
清晨曦月 元老 2009-10-25
  • 打赏
  • 举报
回复
绝大多数控件都有一个“父”属性,改变他即可。
特别 2009-10-25
  • 打赏
  • 举报
回复
将splitcontainter1.panel1和splitcontainter3.panel1里面的控件都放到一个panel控件中去,
(都集中放到一个容器控件中是便于移动,要不然需要遍历一下)
假调splitcontainter1.panel1中的控件都放在panelOne中,splitcontainter3.panel1里面的控件都放在panelThree中,
交换的代码如下

'交换
If panelOne.Parent Is SplitContainer1.Panel1 Then
SplitContainer1.Panel1.Controls.Add(panelThree)
SplitContainer3.Panel1.Controls.Add(panelOne)
Else
SplitContainer1.Panel1.Controls.Add(panelOne)
SplitContainer3.Panel1.Controls.Add(panelThree)

End If


或者


'交换
If panelOne.Parent Is SplitContainer1.Panel1 Then
panelOne.Parent = SplitContainer3.Panel1
panelThree.Parent = SplitContainer1.Panel1
Else
panelOne.Parent = SplitContainer1.Panel1
panelThree.Parent = SplitContainer3.Panel1

End If
xunis 2009-10-23
  • 打赏
  • 举报
回复
[Quote=引用 3 楼 angelayang 的回复:]
randomfeel这一招历害,
只我不知道,怎样把这边所删除的按钮的相关属性,及相关事件,都一起搬到另一边所增加的对应的控件去?
[/Quote]

那样不行的 复制的时候就从新命名了 删除之后页面就肯定出现很多错误了
angelayang 2009-10-16
  • 打赏
  • 举报
回复
randomfeel这一招历害,
只我不知道,怎样把这边所删除的按钮的相关属性,及相关事件,都一起搬到另一边所增加的对应的控件去?
randomfeel 2009-10-16
  • 打赏
  • 举报
回复
增加用panel1.controls.add(
删除用panel1.controls.remove(
一边增加了,另外一边删除了,就互换了
xunis 2009-10-16
  • 打赏
  • 举报
回复
可以 给你一个这你看

 For i As Integer = CInt(SplitContainer1.SplitterDistance.ToString) To 370 Step -10
SplitContainer1.SplitterDistance = i
SplitContainer1.Width -= 10

'运动中的控件强制重绘
SplitContainer1.Refresh()
MonthCalendar1.Refresh()
Next
SplitContainer1.Width += 10
'隐藏图片
PictureBox1.Visible = False
'MonthCalendar1.Visible = True
'此步骤最后效果类似于DateTimePicker
End Sub


大体思路是 通过控制语句来控制 panel的坐标点 然他移动 最终达到呼唤位置的效果 也就达到了你需要的结果

这方法比较笨 呵呵

16,554

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧