以下是引用TonyDeng在2012-9-18 23:22:07的发言:
呵呵,干嘛不去偷看代码?我不知道的。
呵呵,干嘛不去偷看代码?我不知道的。
对对碰
再说你已经给了 迟早逃不出俺的法眼 嘿嘿
梅尚程荀
马谭杨奚
procedure Arrange parameters btn_name, btn_top, btn_left, btn_caption, btn_forecolor with this.btn_name .Themes = .F. .Height = 27 .Width = 35 .Top = btn_top .Left = btn_left .Caption = btn_caption .ForeColor = btn_forecolor endproc会提示没有btn_name这个东西?
procedure Arrange parameters btn_top, btn_left, btn_caption, btn_forecolor .Themes = .F. .Height = 27 .Width = 35 .Top = btn_top .Left = btn_left .Caption = btn_caption .ForeColor = btn_forecolor endproc procedure init local sp as Integer sp = 4 store Rgb(255, 0, 0) to R store Rgb(0, 0, 255) to B with (0, 0, '7', Rgb(0, 0, 255)) endwith with (Top, Left + + sp, '8', B) endwith with (Top, Left + + sp, '9', B) endwith with (Top, Left + + sp, '/', R) endwith with (Top, Left + + sp, 'sqrt', B) endwith with (Top + + sp, Left, '4', B) endwith with (Top, Left + + sp, '5', B) endwith with (Top, Left + + sp, '6', B) endwith with (Top, Left + + sp, '/', R) endwith with (Top, Left + + sp, '%', B) endwith endproc算了 偷看代码去 貌似瞄到一眼 给按钮赋值很简洁 忍不住了啊
addobject 方法 : 运行时,在容器对象中添加对象。 语法 : Object.AddObject(cName, cClass [, cOLEClass] [, aInit1, aInit2 ...]) 参数 cName : 指定引用新对象的名称。 cClass : 指定添加对象所在的类。 cOLEClass : 指定添加对象的 OLE 类。 aInit1, aInit2 ... : 指定传给新对象的 Init 事件的参数cOLEClass : 指定添加对象的 OLE 类。究竟怎么理解好 ?是不是比cClass : 指定添加对象所在的类还要高级的一个东西?