截图

原理

1、（渐变型）根据Color.FromArgb函数，加减一个值，并判断是否在0~255范围之内
1、（乱改型）随机生成三个0~255 integer值
2、通过遍历窗体控件颜色(Me.Controls.Backcolor)来改变颜色
3、通过Timer来控制变化频率

已知BUG

1、会闪屏
2、对于2层以上的Panel，需要自己加For Each嵌套
3、不会变A值可以自己照着代码搬

成品下载链接

戳这里.

代码

在Form中添加两个Button,一个Timer,一个TrackBar(Maxiinum = 255,推荐Value = 10)

代码：

Public Class Form1Dim colorscer,colorsceg,colorsceb As booleanDim passcol As colorPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickTimer1.Interval = 1000 '自定义间隔Timer1.enabled = trueEnd SubPrivate Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.ClickTimer1.enabled = falsecol(passcol)End SubPrivate Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Loadpasscol = Me.backcolorEnd SubPublic function col(ByVal a As color)Me.BackColor = aFor each obj In Me.Controlsobj.backcolor = atryFor each obn In obj.controlsobn.backcolor = aNextcatch ex As exceptionEnd tryNextGC.CollectEnd functionPrivate Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.TickDim nowcol As color = Me.backcolorDim pls1,pls2,pls3 As IntegerRandomize()pls1 =  Math.round(Rnd() * TrackBar1.value)pls2 =  Math.round(Rnd() * TrackBar1.value)pls3 =  Math.round(Rnd() * TrackBar1.value)Dim int1,int2,int3 As integerDim changedcol As colorint1 = nowcol.rint2 = nowcol.gint3 = nowcol.bIf int1 - pls1 < 0 And  int1 + pls1 > 255 Thenpls1 = 0elseIf int1 - pls1 < 0 Thencolorscer = trueElseif int1 + pls1 > 255thencolorscer = falseEnd IfIf int2 - pls2 < 0 And int2 + pls2 > 255 Thenpls2 = 0elseIf int2 - pls2 < 0   Thencolorsceg = trueElseif int2 + pls2 > 255 thencolorsceg = falseEnd IfIf int3 - pls3 < 0 And int3 + pls3 > 255 Thenpls3 = 0elseIf int3 - pls3 < 0 Thencolorsceb = trueElseif int3 + pls3 > 255  thencolorsceb = falseEnd IfIf colorscer = true thenint1 = int1 + pls1Elseint1 = int1 - pls1End ifIf colorsceg = true thenint2 = int2 + pls2Elseint2 = int2 - pls2End ifIf colorsceb = true thenint3 = int3 + pls3Elseint3 = int3 - pls3End ifchangedcol = Color.FromArgb(int1,int2,int3)col(changedcol)GC.CollectEnd Sub
End Class

开启方式：

      Timer1.Interval = 1000 '自定义间隔Timer1.enabled = true

停止方式：

      Timer1.enabled = false

.NET应用程序全局RGB效果(VB.NET示例)相关推荐

微信小程序全局配置文件app.json中window:backgroundColor“不生效”
那些年我们一起踩过的坑~ 今天说一下微信小程序全局配置文件app.json中window的backgroundColor属性,设置之后发现没效果. 查了资料发现原来这个backgroundColor属 ...
小程序全局状态管理，在页面中获取globalData和使用globalSetData
GitHub: https://github.com/WozHuang/mp-extend 主要目标微信小程序官方没有提供类似vuex.redux全局状态管理的解决方案,但是在一个完整的项目中各组件 ...
Android实现程序前后台切换效果
本文演示如何在Android中实现程序前后台切换效果. 在介绍程序实现之前,我们先看下Android中Activities和Task的基础知识. 我们都知道,一个Activity 可以启动另一个Act ...
热键枚举Winform程序全局热键与局部热键(键盘快捷键的捕获)
最近研究热键枚举,稍微总结一下,以后继续补充: Winform程序全局热键 Winform程序全局热键一般采取的是,调用windows api的情势,主要是通过面下的四个函数 /// <summ ...
小程序怎么打出横线效果_成都小程序开发：哪些因素会影响小程序的运营效果？...
相信现在微信小程序对于大家来说都不陌生了,目前小程序在市场中的占有率比较高,也是用户比较喜欢的平台.对于初次开发小程序的企业商家,在小程序的开发运营时,往往会有一些细节性的问题,影响到小程序的运营效果 ...
同时多个axios请求_用 React+Antd 封装 Axios 实现全局 Loading 效果
前言今天在做 react 后台管理的时候要实现一个全局 Loading 效果,通常使用 axios 库与后端进行数据交互.为了更好的用户体验,在每次请求前添加一个加载效果,让用户知道在等待加载. 要 ...
Android中实现“程序前后台切换效果”和“返回正在运行的程序，而不是一个新Activity”...
ANDROID 一.首先是返回正在运行的程序,而不是新的ACTIVITY. 多网上关于通知栏的例子都是打开一个新的Activity,代码也很多. 根据那些代码如下 public void s ...
navtab触底小程序_微信小程序TAB切换效果
微信小程序tab切换效果话不多说,先上效果图主要是让在一个WXML上面显示2个页面,用来分页展示东西. 直接上代码了: 首先是wxml {{item}} A页 B页然后是wxcss样式代码 .t ...
微信小程序----全局状态管理 (便于全局埋点等操作)
说明由于我是一个有着一颗玻璃心的博主,导致在2018年后博客很少更新.原因是由于我的分享并没有解决到部分人的问题,而导致被骂了.当时这颗玻璃心就碎了,所以这两年以来很是消极,博客很少更新.这里给那些 ...

.NET应用程序全局RGB效果(VB.NET示例)

截图

原理

已知BUG

成品下载链接

代码

.NET应用程序全局RGB效果(VB.NET示例)相关推荐

最新文章

热门文章

.NET应用程序 全局RGB效果(VB.NET示例)

截图

原理

已知BUG

成品下载链接

代码

.NET应用程序 全局RGB效果(VB.NET示例)相关推荐

最新文章

热门文章

.NET应用程序全局RGB效果(VB.NET示例)

.NET应用程序全局RGB效果(VB.NET示例)相关推荐