在《效果:雨》中最后我说到颜色部分还有BUG,现已修复,作如下修改:
在Dim lOther As Long下加一行:
Dim sOther As String
将原文中所有.c = CLng("&H" & Hex$(lBlue) & Hex$(lOther) & Hex$(lOther))全部(共两处)替换为:
sOther = IIf(Len(Hex$(lOther)) < 2, "0" & Hex$(lOther), Hex$(lOther))
.c = CLng("&H" & Hex$(lBlue) & sOther & sOther)
即可~
最终通过环境:VB6+Win2000