VB中窗体颜色怎么改变?

如题所述

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

form1.backcolor = vbRed

endsub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

form1.backcolor = vbGreen

end sub

扩展资料:

VB当中的颜色代码

vbBlack &H0 黑色 

vbRed &HFF 红色 

vbGreen &HFF00 绿色 

vbYellow &HFFFF 黄色 

vbBlue &HFF0000 兰色 

vbMagenta &HFF00FF 洋红 

vbCyan &HFFFF00 青色 

vbWhite &HFFFFFF 白色 

vbGrayText &H80000011 变灰的(无效的)文字 

vbButtonText &H80000012 揿压按钮上文字的颜色 

vbInactiveCaptionText &H80000013 非活动标题内文字的颜色 

vb3DHighlight &H80000014 三维显示元素的高亮颜色 

vb3DDKShadow &H80000015 三维显示元素的最暗阴影颜色 

vb3DLight &H80000016 低于 vb3Dhighlight 的 三维次高亮颜色 

vb3DFace &H8000000F 文字表面的颜色 

vb3DShadow  &H80000010 文字阴影的颜色 

vbInfoText &H80000017 提示窗内文字的颜色 

vbInfoBackground &H80000018 提示窗内背景的颜色

温馨提示:答案为网友推荐,仅供参考
相似回答