psufngah 发表于 2007-7-5 18:03:00

[求助]怎么反向选择?

<p>就是在点选全部选项时,所有的都选择了,但我现在要再选一次全部,把全部选项按钮换成空的,但其它的三个怎么也变成初始状态?</p><p>再如,我再增加一个按钮如选前面二项的,要求,在选中全部选项后,再点这个增加的按钮,.就只会选前面二项,全部按钮和第三项按钮都变成空的初始状态?</p><p></p><p></p><p>这下面是我写的一部份,麻烦DX帮忙修改下,多谢</p><p>(setq dcl_id(load_dialog "F:\\s04.dcl"))<br/>(new_dialog "s04" dcl_id)<br/>(action_tile "YY" "(tt)")<br/>(action_tile "accpet" "(sss)(done_dialog)")<br/>(start_dialog)(unload_dialog dcl_id)</p><p><br/>(defun sss()(setq t1 (ATOI (GET_TILE "XX")) <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; t2 (ATOI (GET_TILE "XY"))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; t3 (ATOI (GET_TILE "YX"))<br/>&nbsp;&nbsp;&nbsp; t4 (ATOI (GET_TILE "YY"))))<br/>(defun tt()(set_tile "XX" "1")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (set_tile "XY" "1")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (set_tile "YX" "1"))</p>

ZZXXQQ 发表于 2007-7-6 14:11:00


(setq tog T)
(setq dcl_id(load_dialog "F:\\s04.dcl"))
(new_dialog "s04" dcl_id)
(action_tile "YY" "(tt)")
(action_tile "accpet" "(sss)(done_dialog)")
(start_dialog)(unload_dialog dcl_id)

(defun sss()
(setq t1 (ATOI (GET_TILE "XX"))
       t2 (ATOI (GET_TILE "XY"))
       t3 (ATOI (GET_TILE "YX"))
       t4 (ATOI (GET_TILE "YY")))
)
(defun tt()
(if tog (progn
(set_tile "XX" "1")
(set_tile "XY" "1")
(set_tile "YX" "1")
(setq tog nil)
) (progn
(set_tile "XX" "0")
(set_tile "XY" "0")
(set_tile "YX" "0")
(setq tog T)
))
)

psufngah 发表于 2007-7-6 19:41:00

<p>OK,谢谢了,</p>
页: [1]
查看完整版本: [求助]怎么反向选择?