走近VB.Net(三) 源码详解—运用颜色的初步探讨

        ''''取得蓝色

        cltmpB = strPC.Substring(STRPC.IndexOf("B"), STRPC.Length - STRPC.IndexOf("B") - 1) ''''substring 就替我们sub一部份string,就好象VB6的mid函数，取代left,right函数

        CLTMPB = CLTMPB.Substring(CLTMPB.IndexOf("=")   1, CLTMPB.Length - (CLTMPB.IndexOf("=")   1)) ''''substring 就替我们sub一部份string,就好象VB6的mid函数，取代left,right函数

        lbred.BackColor = System.Drawing.Color.FromARGB(CLTMPA.ToInt32, cltmpR.ToInt32, 0, 0) ''''fromargb就是VB6的RGB一样，只是在第一位多一个阿尔法（alpha）参数

        lbgreen.BackColor = System.Drawing.Color.FromARGB(CLTMPA.ToInt32, 0, cltmpG.ToInt32, 0) ''''提取绿色

        lbblue.BackColor = System.Drawing.Color.FromARGB(CLTMPA.ToInt32, 0, 0, cltmpB.ToInt32) ''''提取蓝色

        LAB2.Text = "R=" & CLTMPA ''''显示R值

        LAB3.Text = "G=" & CLTMPG ''''显示G值

        LAB4.Text = "B=" & CLTMPB ''''显示B值

    End Sub

    ''''cool啊，拖动是没有边框的


文章整理：西部数码--专业提供域名注册、虚拟主机服务

http://www.west263.com

以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!