自定义无边框窗体示例

红尘如烟

zxklzxm1983

先顶再看

谢谢!

5988143

好久不見红尘了,
一出手就有好作品~
呵呵~收了哦~

chaojianan

谢谢红尘，收藏了。

t小宝

红尘作品...都是精品

红尘如烟

呵呵，好久不见大家了，还挺想念的
现在脑子不好使，没什么灵感，整天不想动弹，郁闷……

ui

红尘如烟 兄的,必是好作品啦

t小宝

在我的电脑上测试有个小问题，不能最大化，修改如下几处才行（红色部分），不知是否电脑环境不同的原因。
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

收藏哦，谢谢楼主分享！

goto2008

小宝说的问题，我电脑上也存在，改了以后就可以实现最大化了