首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > VB Dotnet >

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

2012-01-01 
[求助]关于动态设置控件的坐标位置我在窗体中添加一个TextBox1,要求每次单击TextBox1时让控件PnlCalc出现

[求助]关于动态设置控件的坐标位置
我在窗体中添加一个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 全天在线
==================================================================

热点排行