以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  点击窗口中按钮让窗口的高度变化，但位置不变，怎么办  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=72349)
--  作者：wanlong1215
--  发布时间：2015/7/28 18:39:00
--  点击窗口中按钮让窗口的高度变化，但位置不变，怎么办

Dim x As Integer = Sysinfo.screenwidth/2 - e.Form.width/2
Dim y As Integer = Sysinfo.screenheight/2 - 168/2

 

If e.Sender.Checked Then
    e.Form.SetBounds(x, y, e.Form.width, 480)
    e.Form.Controls("add").Enabled = True
Else
    e.Form.SetBounds(x, y, e.Form.width, 168)
    e.Form.Controls("add").Enabled = False
End If

 

我现在主要是想让x,y还是原来窗口的位置，e.form.left和top返回值都是0，应该是坐标空间的问题，大神帮我解答下怎么获得窗口的当前位置呗，谢谢了
--  作者：大红袍
--  发布时间：2015/7/28 19:53:00
--  

msgbox(e.Form.BaseForm.Left)

msgbox(e.Form.BaseForm.Top)