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

2008-04-10 03:08:07来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

''''调用了getpixel,你也可以通过使用括号中的参数传第X,Y的值,在这个示例中使用公用变量pixX,pixY
        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函数

			   
			   

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:走近VB.Net(二) 再谈函数调用

下一篇:走近VB.Net(五) VB.Net核心概念