CSDN博客

img northwolves

菜单字体颜色可以更改吗?

发表于2004/2/1 23:16:00  1107人阅读

分类: 图形界面

     一个简单的API语句可以实现更改菜单字体颜色:Private Declare Function SetSysColors Lib "user32" (ByVal nChanges As Long, lpSysColor As Long, lpColorvalues As Long) As Long
Private Sub Form_Load()

 SetSysColors 1, 7, vbRed '设置菜单字体红色(可选择 &H0 -----> &HFFFFFF 共16777216种颜色!)

End Sub

Private Sub Form_Unload(Cancel As Integer)

SetSysColors 1, 7, vbBlack '还原菜单字体
End Sub

0 0

相关博文

我的热门文章

img
取 消
img