【叶帆开源区】界面换肤和多语言版本的控件源码公开了，希望大家多提意见

[叶帆]

在我blog <http://blog.csdn.net/yefanqiu> 上，我写了一篇“用控件仅一条指令实现界面换肤和多语言版本（YFSkins）”，大家响应比较积极，希望该控件源码开源，目前我对该代码进行了整理，又添加了两套完整的皮肤，希望与各位进行更深入的交流。

“用控件仅一条指令实现界面换肤和多语言版本（YFSkins）”文件的路径http://blog.csdn.net/yefanqiu/archive/2005/03/29/333391.aspx

控件源码地址：
http://www.bjjr.com.cn/yefan/sourcecode/SkinsOCX.rar

此外我对VB源码之友又进行了升级，不过近期发步不了，做了几个截图大家先看看，并提提意见
http://blog.csdn.net/yefanqiu/archive/2005/08/23/463167.aspx

[Eleven_T]

不错呀,跟我以前做的实现方法差不多,但代码比我写得工整多了.
嘿嘿,借鉴了一下,我新做的控件
http://www.eleven-t.com/bbs/Announce/announce.asp?BoardID=114&ID=125
我连方法名都没改.

• 打赏
• 举报

回复 赞

[叶帆]

to cxh3u() 已实现你说的功能，目前正在考虑菜单的问题

• 打赏
• 举报

回复 赞

[bugouku]

up

• 打赏
• 举报

回复 赞

[boyzhang]

gz

• 打赏
• 举报

回复 赞

[zyl910]

4、无边框窗体的拖动，改变大小
Private Sub imgCorner_MouseDown(index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If frmWindow.MaxButton = False Or mMaxWindowFlag = True Then
Exit Sub
End If
If frmWindow.WindowState <> 0 Then Exit Sub

Dim intFlag As Long
If Button = 1 And frmWindow.WindowState = 0 Then
Dim ReturnVal As Long
X = ReleaseCapture()
Select Case index
Case 0
intFlag = HTTOPLEFT
Case 1
intFlag = HTTOPRIGHT
Case 2
intFlag = HTBOTTOMLEFT
Case 3
intFlag = HTBOTTOMRIGHT
Case 10
intFlag = HTLEFT
Case 11
intFlag = HTRIGHT
Case 12
intFlag = HTBOTTOM
Case 13
intFlag = HTTOP
End Select

ReturnVal = SendMessage(frmWindow.hwnd, WM_NCLBUTTONDOWN, intFlag, 0)

End If
End Sub


==============================================

奇怪

MSDN不是说：
BOOL ReleaseCapture(VOID);

• 打赏
• 举报

回复 赞

[zyl910]

看错了
原来是“Select Case index”

为什么不写成：
Call ReleaseCapture()

• 打赏
• 举报

回复 赞

[PANBing]

封装成类不更好吗。
总比带一个控件好吧！

• 打赏
• 举报

回复 赞

[DengXingJie]

感謝樓主的無私奉獻!!!

• 打赏
• 举报

回复 赞

[gjianpro]

顶

• 打赏
• 举报

回复 赞

[jifeny]

能否界面大小改变时做到控件同时做相应调整?

• 打赏
• 举报

回复 赞

[高手都到碗里来]

如果是mdiform，那就有问题
另外，屏幕闪烁太厉害

• 打赏
• 举报

回复 赞

[haen_zhou]

顶

• 打赏
• 举报

回复 赞

[tianhuo_soft]

界面打不开

• 打赏
• 举报

回复 赞

[rjzhangjun]

强顶,疯顶..我一定要试试他,改改他.给楼主建议..谢谢.....

• 打赏
• 举报

回复 赞

[白发程序猿]

好东东，顶

• 打赏
• 举报

回复 赞

[cracher]

up

• 打赏
• 举报

回复 赞

[cracher]

好人那~

• 打赏
• 举报

回复 赞

[YesOrNo2003]

顶了，用了，不错。

• 打赏
• 举报

回复 赞

[bill024]

mark!

• 打赏
• 举报

回复 赞

[叶帆]

最新的程序，已经可以支持菜单了（不过二级菜单好像有问题:-(
http://blog.csdn.net/yefanqiu/archive/2006/04/12/660032.aspx

• 打赏
• 举报

回复 赞