是不是这样:
图片附件: 游客没有浏览图片的权限,请
登录 或
注册
of = CREATEOBJECT("form1")
of.Show(1)
DEFINE CLASS form1 AS form
ADD OBJECT combo1 AS combobox WITH top=10,left=10,RowSourceType=1,RowSource="L,M,N,O,P,Q"
PROCEDURE combo1.KeyPress(nKeyCode, nShiftAltCtrl)
this.Tag = "1"
ENDPROC
PROCEDURE combo1.InteractiveChange
IF this.Tag == "1"
this.Tag = ""
= this.DisplayValue
ELSE
this.DisplayValue = ALLTRIM() + "+" + this.Value
ENDIF
ENDPROC
ENDDEFINE