|
|
#2
qzz7497912007-04-24 15:45
if ls_keyword="抬额头标准表情" then li_raise_forhead=integer(strValue) if (ole_emrpad.object.FindField("T-FGS",-1,1,true)) then ls_aaa=this.object.GetFieldText("-1", "-1", "-1", "-1", FALSE) //把计算的结果赋值给结果元素 ls_bbb=string(integer(ls_aaa)+integer(strValue)) messagebox("",ls_bbb) ole_emrpad.object.SetFieldText(-1,-1,-1,-1,ls_bbb) end if end if if ls_keyword="轻闭眼标准表情" then li_close_eyes=integer(strValue) if (ole_emrpad.object.FindField("T-FGS",-1,1,true)) then ls_aaa=this.object.GetFieldText("-1", "-1", "-1", "-1", FALSE) //把计算的结果赋值给结果元素 ls_bbb=string(integer(ls_aaa)+integer(strValue)) messagebox("",ls_bbb) ole_emrpad.object.SetFieldText(-1,-1,-1,-1,ls_bbb) end if end if ======================================================================== 代码是这样的,刚才发的图好像没上来呀
|