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

叶帆 2005-08-23 10:50:46
在我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


...全文
1414 点赞 收藏 88
写回复
88 条回复
叶帆 2006年06月25日
最新的程序,已经可以支持菜单了(不过二级菜单好像有问题:-(
http://blog.csdn.net/yefanqiu/archive/2006/04/12/660032.aspx
回复 点赞
bill024 2006年06月22日
mark!
回复 点赞
YesOrNo2003 2006年06月20日
顶了,用了,不错。
回复 点赞
cracher 2006年06月16日
好人那~
回复 点赞
cracher 2006年06月16日
up
回复 点赞
白发程序猿 2006年06月16日
好东东,顶
回复 点赞
rjzhangjun 2006年06月16日
强顶,疯顶..我一定要试试他,改改他.给楼主建议..谢谢.....
回复 点赞
tianhuo_soft 2006年06月14日
界面打不开
回复 点赞
haen_zhou 2006年06月14日
回复 点赞
高手都到碗里来 2006年06月13日
如果是mdiform,那就有问题
另外,屏幕闪烁太厉害
回复 点赞
jifeny 2006年06月13日
能否界面大小改变时做到控件同时做相应调整?
回复 点赞
gjianpro 2006年06月13日
回复 点赞
DengXingJie 2006年06月13日
感謝樓主的無私奉獻!!!
回复 点赞
PANBing 2006年06月13日
封装成类不更好吗。
总比带一个控件好吧!
回复 点赞
zyl910 2006年02月12日
看错了
原来是“Select Case index”

为什么不写成:
Call ReleaseCapture()
回复 点赞
zyl910 2006年02月12日
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);
回复 点赞
boyzhang 2006年02月12日
gz
回复 点赞
bugouku 2006年02月11日
up
回复 点赞
叶帆 2006年01月17日
to cxh3u() 已实现你说的功能,目前正在考虑菜单的问题
回复 点赞
Eleven_T 2006年01月15日
不错呀,跟我以前做的实现方法差不多,但代码比我写得工整多了.
嘿嘿,借鉴了一下,我新做的控件
http://www.eleven-t.com/bbs/Announce/announce.asp?BoardID=114&ID=125
我连方法名都没改.
回复 点赞
发动态
发帖子
控件
创建于2007-09-28

1223

社区成员

4.1w+

社区内容

VB 控件
社区公告
暂无公告