|
发表于 2015-1-14 11:13:00
|
显示全部楼层
Dim rb As ResultBuffer = New ResultBuffer
rb.Add(New TypedValue(ResBufCode.String, "_PEDIT"))
rb.Add(New TypedValue(ResBufCode.ObjectId, pl.ObjectId))
rb.Add(New TypedValue(ResBufCode.String, "_J"))
rb.Add(New TypedValue(ResBufCode.PickSet, sSet))
'' rb.Add(“ESC”或者“回车”) ''------这步不知道怎么写
最后一步我想添加一个ESC键或者回车键,如何实现,有高手知道吗? |
|