读书人

[]关于动态设置控件的坐标位置

发布时间: 2012-01-01 23:10:55 作者: rapoo

[求助]关于动态设置控件的坐标位置
我在窗体中添加一个TextBox1,要求每次单击TextBox1时让控件PnlCalc出现在紧靠TextBox1的正下方,代码如下:
If TextBox1.Parent.GetType Is TextBox1.FindForm.GetType Then
Me.PnlCalc.Left = TextBox1.Left
Me.PnlCalc.Top = TextBox1.Top + 22
Else
Me.PnlCalc.Left = TextBox1.Parent.Left + TextBox1.Left
Me.PnlCalc.Top = TextBox1.Parent.Top + TextBox1.Top + 22
End If

可当父容器为TabControl时不能达到要求,如何才能实现无论父容器为什么都能让控件PnlCalc出现在紧靠TextBox1的正下方

[解决办法]
把控件PnlCalc加入到父容器中,就可以了。
...Controls.add pnlcalc

例如我的一段代码,大体功能差不多吧
'移出原有的
If Not Me.MyDG Is Nothing Then
With Me.MyDG
Me.Controls.Remove(Me.MyDG)
Me.MyDG.Dock = DockStyle.None
Me.ParentForm.Controls.Add(Me.MyDG)
ReMoveEvent(MyDG)
End With
End If
'加入新来的
If Not value Is Nothing Then
With value
Me.Controls.Add(value)
'改变索引让它能否在Pic上,而不是全部;
Me.Controls.SetChildIndex(value, 0)
.Dock = DockStyle.Fill
AddEvent(value)
End With
End If
Me.MyDG = value
==================================================================
博客空间:http://blog.csdn.net/lovingkiss
资源下载:http://download.csdn.net/user/lovingkiss
优惠接单开发,组件控件定制开发,成品源代码批发
联系方式:Q64180940 全天在线
==================================================================

读书人网 >VB Dotnet

热点推荐