English Sentence Loading...
英语句子加载中...

VB窗体特效---上深下浅的窗体背景

Private Sub Form_Paint()
        Dim i As Integer
        ScaleMode = 3
        For i = 0 To 255
              Line (0, i)-(Me.Width, i), RGB(i, i, 255)
        Next i
End Sub
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: VB 特效 窗体
相关日志:
评论: 0 | 引用: 0 | 查看次数: 1577