7,763
社区成员
发帖
与我相关
我的任务
分享form风格问题
如何写一段代码，或者一个类
来让一个项目中的所有窗体都有相同的风格
比如背景都是黑色，或者都是渐变颜色的
请给出思路和实例代码
谢谢。
来让一个项目中的所有窗体都有相同的风格
比如背景都是黑色，或者都是渐变颜色的
请给出思路和实例代码
谢谢。
...全文
请发表友善的回复…
发表回复
射天狼 2003-08-19
- 打赏
- 举报
'在模块中定义设置风格的函数
Public Sub SetFormStyle(frm As Form)
frm.BackColor = vbBlack
'你可以自己添加其它的控制
End Sub
'在需要设置的窗口LOAD事件中调用函数就可以了
Private Sub Form_Load()
SetFormStyle Me
End Sub
Public Sub SetFormStyle(frm As Form)
frm.BackColor = vbBlack
'你可以自己添加其它的控制
End Sub
'在需要设置的窗口LOAD事件中调用函数就可以了
Private Sub Form_Load()
SetFormStyle Me
End Sub
