绝对是高手的问题

[zhanghuaccyt]

我想在textbox中加入一个button,开始是没有任何问题的

Dim btn As New Button
Me.TextBox1.Controls.Add(btn)

但是，我后来想调整btn的位置

btn.Location = New Point(Me.TextBox1.Left, Me.TextBox1.Location.Y)

居然发现btn自动消失了，是何原因，望大侠指点啊。

[骑车的娃儿]

你也不看看你的textbox.left和top等于多少，要知道你的Btn的位置现在可是相对于TextBox1的
按照你的本意应该改成这样
btn.width=textbox1.height
btn.height=btn.width
btn.Location = New Point(0，0)

[七里十二斋]

cqhxd() 正确

[水如烟]

没经验。估计是这样，
New Point(Me.TextBox1.Left, Me.TextBox1.Location.Y)超过了TextBox1的显示位置
一般来说Location是相对那个容器的相对坐标，Me.TextBox1.Left, Me.TextBox1.Location.Y是TextBox1相对Form的坐标，应该是好大的，除非你刚好放到顶端左边。

[hamadou]

把textbox拉大，看看你的控件跑到哪里去了！呵呵！

[zhanghuaccyt]

俺想说明白点，就是想将我的btn的位置仅挨着textbox的右上角，如何实现。

[骑车的娃儿]

btn.Location = New Point(Textbox1.width-btn.width,0)
还有你这个不是高手的问题，是最初级的错误，你骗了N多人，给点分补偿，呵呵

[syeerzy]

上当了。。。。。给分

[hamadou]

其实这个很简单的了，不用设置它的location的，设置btn的dock属性为right

[zhanghuaccyt]

哎，没办法，个个都是牛人啊，分肯定是给的。