|
1. 编写Multi-Value和颜色设置程序,编写好的程序如下所示:' T2 n$ _1 _# {7 N6 D. F3 B
proc capTrue { args } {& M7 Z& E! R3 C$ V8 v7 B" F
return 1
) J. M0 k- \4 A4 b* |( |}" g6 B- q1 _ j
; r7 j) s! m. q* x# H C* |proc CisExplorerPreCreate { args } {5 \- O: }, `: \
set result 1
1 w& }3 v+ E4 c: B0 j SetCISMultiValuedField {Datasheet}! ? Z N @6 c' r1 E$ o8 e8 C
SetCISMultiValuedField {Value}( B9 Q- Y6 M. h, V
AddCISCriteria {Preferred} {=} {A} {1} [CISGetColor 34 139 34] [CISGetColor 255 255 255]* `, d4 F y0 _1 \
AddCISCriteria {Preferred} {=} {B} {1} [CISGetColor 0 0 255] [CISGetColor 255 255 255]! D( H4 \1 p4 @7 V% p- U# t
AddCISCriteria {Preferred} {=} {C} {1} [CISGetColor 255 215 0] [CISGetColor 255 255 255]
h% o9 G. w0 k* x1 V% G- Z/ _2 C AddCISCriteria {Preferred} {=} {D} {1} [CISGetColor 255 0 0] [CISGetColor 255 255 255] - b( p* Q; n1 j; n$ Y& K R* F: {
return $result5 ^/ h' d- J$ o
}- k3 n, j+ X9 P$ W9 ^. V
: {# b( k( ] U
RegisterAction "_cdnOrPreCisExplorerCreate" "capTrue" "" "CisExplorerPreCreate" ""2 w! m4 D) h" @" Z% {) j
编写好该程序之后,将其另存为.tcl文件,直接修改txt文本的后缀名即可。上面程序中用绿色标出的表示设置Multi-Value属性,调用SetCISMultiValuedField()函数即可。: z0 N) i0 z" O2 O3 V
程序中用黄色标出的区域表示设置颜色,{Preferred} {=} {A} {1}这部分表示判断条件,即Preferred属性等于A,[CISGetColor 34 139 34] [CISGetColor 255 255 255]表示设置颜色,其中第一个颜色为设置文本的颜色,后一个颜色为底色,目前是底色设置为白色,文本按照公司的规定设置不同的颜色。
7 U7 V/ o/ V5 b& h! J" v' ]+ M+ P% `5 l1 j |
评分
-
查看全部评分
|