[分享]根据 ldhyob 版主的作品模仿了一个窗体界面，请大家批评!

foshan · 发表于 2005-8-9 16:37

6D7oP58x.rar (22.25 KB, 下载次数: 503)

[此贴子已经被作者于2005-8-11 10:56:39编辑过]

butong · 发表于 2005-8-9 21:14

很有距离

bh-ice · 发表于 2005-8-9 21:17

太简单了

来生缘 · 发表于 2005-8-9 21:28

不错[em17]

风雨声 · 发表于 2005-8-9 22:41

美化窗体可太麻烦了，微软给专门搞个专用程序就好弄了。API 好麻烦！！！

foshan · 发表于 2005-8-10 14:32

谢谢 ldhyob 版主的教导和以上朋友的支持(本楼的附件已更正了 plxmm 和 Long_III 两位高朋提出的存在问题)!

有一个问题要请教 ldhyob 版主：去掉窗体的标题栏后，如何能实现用鼠标左键按定窗体上“自定义”的标题栏后能随意拖动窗体？您的换肤精品中，“蓝色天空”就能实现鼠标拖放窗体的功能，而我以下的仿制品就不能实现鼠标拖放窗体的功能，如何才能实现鼠标拖放窗体的功能呢？请再次教导，谢谢!

LgIZtsWz.rar (26.8 KB, 下载次数: 39)

[此贴子已经被作者于2005-8-10 14:43:31编辑过]

foshan · 发表于 2005-8-10 16:21

谢谢 ldhyob 版主指点迷津，已找到宝藏了，谢谢!

Private Sub Image7_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Dim hwnd, dd As Long If Val(Application.Version) < 9 Then hwnd = FindWindow("ThunderXFrame", Me.Caption) Else hwnd = FindWindow("ThunderDFrame", Me.Caption) End If ReleaseCapture SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0& End Sub

20jlDWUJ.rar (27.56 KB, 下载次数: 56)

[此贴子已经被作者于2005-8-10 16:22:17编辑过]

york888 · 发表于 2005-8-10 16:25

做得非常好! 但我不知道用来查询什么的?

foshan · 发表于 2005-8-11 11:26

再求教：

ZDrO8TWW.rar (27.74 KB, 下载次数: 18)

[此贴子已经被作者于2005-8-11 11:28:45编辑过]

foshan · 发表于 2005-8-11 15:26

现在才留意到，删除窗体原有的标题栏后，窗体上的所有控件都整体地往上移动了几毫米，但窗体的高度没有发到变化，所以导致下面的窗体边线不在窗体的边上。解决的办法正如 ldhyob 版主在上楼所言。

还有一个难题：窗体的四个圆角，如果想加上圆角的边线，难度很大。昨天晚上我试了N多次，都不能达到满意的效果。首先我不会用图形处理软件来做一个背景是透明的圆角弧线的图片，再有一个就是要实现圆角弧线的角度刚好与窗体的圆角吻合有一定的难度。再次请教 ldhyob 版主，如何才能较好地解决这个难题，谢谢!

		自动登录	找回密码
密码			免费注册