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

        LABEL1.BackColor = PColor ''''设定LABEL1控件的背景色

        strPC = PColor.ToString ''''tostring是把pcolor从system.drawing.color转为string的数据

        pixX = e.X ''''e是参数，也被当作一个对象，e.X是对象的一个成员，指明鼠标的当前坐标X值

        pixY = e.Y : LABEL1.BackColor = Getpixel ''''键盘不灵，回车不了，只好打“：”代替分行

        cltmpA = strPC.Substring(STRPC.IndexOf("A"), (STRPC.INDEXOF("R") - 2) - STRPC.IndexOf("A")) ''''substring 就替我们sub一部份string,就好象VB6的mid函数，取代left,right函数

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

        ''''取得红色

        cltmpR = strPC.Substring(STRPC.IndexOf("R"), (STRPC.INDEXOF("G") - 2) - STRPC.IndexOf("R")) ''''substring 就替我们sub一部份string,就好象VB6的mid函数，取代left,right函数

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

        ''''取得绿色

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

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

http://www.west263.com

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