北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |
想实现字体颜色的自动变化，写了一段代码，请大家斧正~~
Private Sub Form_timer()
ChangeColor Labe1, 2,3, 4, 5, 6, 7, 8, 9
End Sub
Sub ChangeColor(LCnt As Control, color2 As Integer, color3 As Integer, color4 As Integer, color5 As Integer, color6 As Integer, color7 As Integer, color8 As Integer, color9 As Integer, color10 As Integer)
Case RGB(0, 0, 0)
LCnt.ForeColor = RGB(255, 0, 0)
Case RGB(255, 0, 0)
LCnt.ForeColor = RGB(100, 10, 0)
Case RGB(100, 10, 0)
LCnt.ForeColor = RGB(255, 100, 0)
Case RGB(255, 100, 0)
LCnt.ForeColor = RGB(100, 200, 0)
Case RGB(255, 200, 0)
LCnt.ForeColor = RGB(255, 100, 100)
Case RGB(255, 100, 100)
LCnt.ForeColor = RGB(255, 10, 10)
Case RGB(255, 10, 10)
LCnt.ForeColor = RGB(255, 255, 0)
Case RGB(255, 255, 0)
LCnt.ForeColor = RGB(0, 0, 255)
Case RGB(0, 0, 255)
LCnt.ForeColor = RGB(0, 255, 0)
Case Else
LCnt.ForeColor = RGB(0, 0, 0)
End Select
End Sub
