以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]录入窗口最少化的位置能调整吗  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=53234)
--  作者：33888
--  发布时间：2014/7/3 9:17:00
--  [求助]录入窗口最少化的位置能调整吗
录入窗口最少化后，刚好在左下角，挡住了输入法的图标，能自定义吗？
--  作者：Bin
--  发布时间：2014/7/3 9:19:00
--  
可以拖动的
--  作者：33888
--  发布时间：2014/7/3 12:03:00
--  
以下是引用Bin在2014-7-3 9:19:00的发言：
可以拖动的

谢谢，除了拖动，能不能设定默认（或代码）让其在其它位置？
--  作者：有点甜
--  发布时间：2014/7/3 14:20:00
--  

 在SizeChanged加入代码，位置和尺寸自己调整一下

 

Dim obj As object = e.Form.BaseForm
If obj.WindowState = 1 Then
    obj.WindowState = 0
    obj.Left = 0
    obj.Top = 0
    obj.height = 30
    obj.width = 100
    obj.MinimizeBox = False
Else If obj.WindowState = 2 Then
    obj.WindowState = 0
    obj.Left = 200
    obj.Top = 200
    obj.height = 300
    obj.width = 400
    obj.MinimizeBox = True
End If
--  作者：33888
--  发布时间：2014/7/3 15:27:00
--  

谢谢！