这样写也不行呀。。。郁闷。。。
我只是想做一个像EXCEL一样的分页标记。。。
希望这个控件的打印功能再加强一下就好了。
- '设置选中图形按DEL键不删除图形
- Dim im As FarPoint.Win.Spread.InputMap
- im = frmSheets.fpsMain.GetInputMapWhenShapeHasFocus()
- Dim k As New FarPoint.Win.Spread.Keystroke(Keys.None, Keys.Delete)
- im.Put(k, FarPoint.Win.Spread.SpreadActions.DeleteShape)
- frmSheets.fpsMain.SetInputMapWhenShapeHasFocus(im)
复制代码 |