Foxtable(狐表)用户栏目专家坐堂 → [求助][求助]窗口伸缩变化后的位置能否还在默认位置


  共有2453人关注过本帖树形打印复制链接

主题:[求助][求助]窗口伸缩变化后的位置能否还在默认位置

帅哥哟,离线,有人找我吗?
无限5180
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:284 积分:2793 威望:0 精华:0 注册:2012/10/26 0:45:00
[求助][求助]窗口伸缩变化后的位置能否还在默认位置  发帖心情 Post By:2015/7/25 13:13:00 [只看该作者]

这是程兴刚老师写的窗口伸缩的代码:
Forms("窗口1").Controls("SplitContainer1").Panel2.Collapsed = not Forms("窗口1").Controls("SplitContainer1").Panel2.Collapsed
If Forms("窗口1").Controls("SplitContainer1").Panel2.Collapsed = True
    Forms("窗口1").SetBounds(300,100,167,387)
Else
    Forms("窗口1").SetBounds(300,100,687,387)
End If
这个代码在进行窗口伸缩时默认位置会改变,我想请教一下能否在窗口伸缩后仍然居于屏幕中央

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2015/7/25 14:52:00 [只看该作者]

这个代码我试过,可以的
Forms("窗口1").Controls("SplitContainer1").Panel2.Collapsed = not Forms("窗口1").Controls("SplitContainer1").Panel2.Collapsed
Dim x As Integer = ScreenWidth/2
Dim y As Integer = ScreenHeight/2
If Forms("窗口1").Controls("SplitContainer1").Panel2.Collapsed = True
    x = x-167/2
    y = y -387/2
    Forms("窗口1").SetBounds(x,y,167,387)
Else    
    x = x-687/2
    y = y -387/2
    Forms("窗口1").SetBounds(x,y,687,387)
End If
[此贴子已经被作者于2015/7/25 14:52:29编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
无限5180
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:284 积分:2793 威望:0 精华:0 注册:2012/10/26 0:45:00
  发帖心情 Post By:2015/7/27 10:08:00 [只看该作者]

非常感谢!测试成功了

 回到顶部