7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
northwolves 2005-12-09
- 打赏
- 举报
Private Sub Command1_Click()
Me.FillStyle = 0
Dim i As Byte
For i = 0 To 9
Me.FillColor = RGB(255 - 25.5 * i, 0, 25.5 * i)
Me.Line (500 * i, 0)-(500 * i + 500, 500), , B
Next
End Sub
Me.FillStyle = 0
Dim i As Byte
For i = 0 To 9
Me.FillColor = RGB(255 - 25.5 * i, 0, 25.5 * i)
Me.Line (500 * i, 0)-(500 * i + 500, 500), , B
Next
End Sub
yzlz888 2005-12-09
- 打赏
- 举报
谢谢各位 还有个问题 我要提取mored的 RGB值 可是提出来是255 怎么转变成RGB(255，0，0)这样 因为我要分别取值 要R=255 G=0 B=0 不能直接设置 比如MOBLUE=16711680 这个数字只有8位 R G B 分别要怎么取？
射天狼 2005-12-09
- 打赏
- 举报
安装程序的背景有很多都是渐变的，我的网站上有VB6自带安装程序的源码，你可以看看。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
免费的学习交流网站，欢迎大家访问！
http://www.j2soft.cn/
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
免费的学习交流网站，欢迎大家访问！
http://www.j2soft.cn/
熊孩子开学喽 2005-12-09
- 打赏
- 举报
就是从RGB(255,0,0)到RGB(0,0,255)咯，自己算一下7就可以分出来啦
