Office中国论坛/Access中国论坛

标题: 自定义无边框窗体示例 [打印本页]

作者: 红尘如烟 时间: 2009-12-29 15:05
标题: 自定义无边框窗体示例
本帖最后由红尘如烟于 2009-12-29 18:18 编辑

[attach]40999[/attach]

作者: zxklzxm1983 时间: 2009-12-29 15:12
先顶再看

谢谢!

作者: 5988143 时间: 2009-12-29 15:12
好久不見红尘了,
一出手就有好作品~
呵呵~收了哦~

作者: chaojianan 时间: 2009-12-29 15:13
谢谢红尘，收藏了。

作者: t小宝 时间: 2009-12-29 15:14
红尘作品...都是精品

作者: 红尘如烟 时间: 2009-12-29 15:26
呵呵，好久不见大家了，还挺想念的
现在脑子不好使，没什么灵感，整天不想动弹，郁闷……

作者: ui 时间: 2009-12-29 15:36
红尘如烟兄的,必是好作品啦

作者: t小宝 时间: 2009-12-29 15:59
在我的电脑上测试有个小问题，不能最大化，修改如下几处才行（红色部分），不知是否电脑环境不同的原因。
If rTaskbar.Left <= 0 And rTaskbar.Top <= 0 Then
         '任务栏在屏幕上边时
         If rTaskbar.Right >= rDesktop.Right + 0 Then
            Call MoveWindow(Me.hwnd, 0, rTaskbar.Bottom, rDesktop.Right, rDesktop.Bottom - rTaskbar.Bottom, True)
         ElseIf rTaskbar.Bottom >= rDesktop.Bottom + 0 Then
            '任务栏居在屏幕左边时
            Call MoveWindow(Me.hwnd, rTaskbar.Right, 0, rDesktop.Right - rTaskbar.Right, rDesktop.Bottom, True)
         End If
      Else
         If rTaskbar.Left <= 0 Then
            '任务栏居在屏幕下边时
            Call MoveWindow(Me.hwnd, 0, 0, rDesktop.Right, rTaskbar.Top, True)
         ElseIf rTaskbar.Top <= 0 Then
            '任务栏居在屏幕右边时
            Call MoveWindow(Me.hwnd, 0, 0, rTaskbar.Left, rDesktop.Bottom, True)
         End If
      End If

作者: goto2008 时间: 2009-12-29 18:10
收藏哦，谢谢楼主分享！

作者: goto2008 时间: 2009-12-29 18:15
小宝说的问题，我电脑上也存在，改了以后就可以实现最大化了

作者: 红尘如烟 时间: 2009-12-29 18:18
根据小宝说的问题改了一下，不过我这里没见到你说的问题

作者: xuwenning 时间: 2009-12-30 11:33
收藏
谢谢楼主
谢谢分享

作者: like5188 时间: 2009-12-30 12:21
强烈顶顶，真是雪中送炭啊

作者: njy6000 时间: 2010-1-1 22:25
好东西,感谢分享!!!

作者: 胡说八道 时间: 2010-1-31 21:48
相当不错

作者: longhgc 时间: 2010-2-2 09:40
又一高手在。。。

作者: szyewj 时间: 2010-2-3 17:56
学习学习，顶了再顶！

作者: yihesmxx 时间: 2010-8-20 16:28
学习学习

作者: ZHENGLIAN 时间: 2010-8-21 18:49
好久不見红尘了,
一出手就有好作品

作者: szyewj 时间: 2010-8-22 14:53
精品，学习了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)