1,451
社区成员
发帖
与我相关
我的任务
分享line rgb
vb6.0定义label的line rgb 怎麽用！
如下代码：
Private Sub Form_Load()
'Label1.Caption = "欢迎使用本管理程序!"
'Label1.Font = "楷体_GB2312"
'Label1.ForeColor = &HFF0000
Dim I As Integer, Color As Single
Flag = 0
W1 = Label1.Width
W2 = 欢迎.Width
Color = 105
For I = 1 To 390
Line (0, I)-(500, I), RGB(0, Color, 0)
Color = Color - 0.25
Next
End Sub
其中：
Color = 105
For I = 1 To 390
Line (0, I)-(500, I), RGB(0, Color, 0)
Color = Color - 0.25
line \rgb 及Color = Color - 0.25是控制什麽的？
如下代码：
Private Sub Form_Load()
'Label1.Caption = "欢迎使用本管理程序!"
'Label1.Font = "楷体_GB2312"
'Label1.ForeColor = &HFF0000
Dim I As Integer, Color As Single
Flag = 0
W1 = Label1.Width
W2 = 欢迎.Width
Color = 105
For I = 1 To 390
Line (0, I)-(500, I), RGB(0, Color, 0)
Color = Color - 0.25
Next
End Sub
其中：
Color = 105
For I = 1 To 390
Line (0, I)-(500, I), RGB(0, Color, 0)
Color = Color - 0.25
line \rgb 及Color = Color - 0.25是控制什麽的？
...全文
请发表友善的回复…
发表回复
knowledge_Is_Life 2008-05-01
- 打赏
- 举报
没遇到过这种情况.
mobile5769 2008-02-02
- 打赏
- 举报
十分感谢jennyvenus的回答,请问阁下在哪个城市,能否留个mail之类的？
用户 昵称 2008-02-02
- 打赏
- 举报
颜色嘛，你这就是画绿色嘛。就是画一个从下到下越来越深的绿色。
