当前位置: 源码素材网 » VB教程 » 详情页

VB实现窗体背景的颜色渐变效果

  •   时间:2018-10-20
  • 概述:渐变窗体

VB渐变的窗体背景,右侧的选项可改变渐变色的形式,定义渐变是从上到右或是从左到右,下面分享代码:

Sub rgbleft(red, Green, Blue, aspect As Boolean)      '从左到右或从右到左渐变
  Dim a, i, x, y, x1, y1 As Integer
  a = (Me.Width / 100)     '设置渐变变化趋势
  If aspect = True Then      '渐变方向
     x = 0      '设置从左到右渐变
    Else
     x = Me.Width - a      '设置从右到左渐变
  End If
  y = 0
  y1 = Me.Width
  x1 = x + a
  For i = 1 To 100
    Me.Line (x, y)-(x1, y1), RGB(red, Green, Blue), BF  ' 产生渐变
    red = red - 5    '红色递减
    Green = Green - 5    '绿色递减
    Blue = Blue - 5    '蓝色递减
    If aspect = True Then
       x = x1      '设置从左到右渐变
     Else
       x = x - a     '设置从右到左渐变
    End If
    If red <= 0 Then   '防止变量小于0
       red = 0
    End If
    If Green <= 0 Then  '防止变量小于0
       Green = 0
    End If
    If Blue <= 0 Then  '防止变量小于0
       Blue = 0
    End If
    x1 = x + a
  Next
End Sub

    相关声明:

      若“VB实现窗体背景的颜色渐变效果”有损您的权益,请告之我们删除内容。
      部分文章来源于网络,版权归原作者所有。