一步穷
路人甲
路人甲
  • 注册日期2003-12-15
  • 发帖数107
  • QQ
  • 铜币221枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:4147回复:15

我们经常见的编辑菜单中"撤消"与"恢复"是如何工作的?

楼主#
更多 发布于:2004-07-29 17:18
<P>如题所说.小弟现在做一个鼠标操作的东东.要实现撤消与恢复.不知从何下手.望各位高人给个思路.对象是C#与MO2.3下的加点,移点或删点等操作.谢谢!</P>
喜欢0 评分0
gis
gis
管理员
管理员
  • 注册日期2003-07-16
  • 发帖数15951
  • QQ
  • 铜币25345枚
  • 威望15368点
  • 贡献值0点
  • 银元0个
  • GIS帝国居民
  • 帝国沙发管家
  • GIS帝国明星
  • GIS帝国铁杆
1楼#
发布于:2004-07-30 09:41
<P>没用c#做过,vb倒是做过这个</P>
GIS麦田守望者,期待与您交流。
举报 回复(0) 喜欢(0)     评分
一步穷
路人甲
路人甲
  • 注册日期2003-12-15
  • 发帖数107
  • QQ
  • 铜币221枚
  • 威望0点
  • 贡献值0点
  • 银元0个
2楼#
发布于:2004-07-30 18:30
版主,VB下你是如何做的?能说一下你的思路吗?多谢!
举报 回复(0) 喜欢(0)     评分
seava
路人甲
路人甲
  • 注册日期2004-03-11
  • 发帖数63
  • QQ
  • 铜币182枚
  • 威望0点
  • 贡献值0点
  • 银元0个
3楼#
发布于:2004-08-02 17:24
帮顶
举报 回复(0) 喜欢(0)     评分
G!s
G!s
路人甲
路人甲
  • 注册日期2004-06-22
  • 发帖数76
  • QQ
  • 铜币269枚
  • 威望0点
  • 贡献值0点
  • 银元0个
4楼#
发布于:2004-08-03 14:36
ARRAY数组
举报 回复(0) 喜欢(0)     评分
一步穷
路人甲
路人甲
  • 注册日期2003-12-15
  • 发帖数107
  • QQ
  • 铜币221枚
  • 威望0点
  • 贡献值0点
  • 银元0个
5楼#
发布于:2004-08-04 16:12
ARRAY数组 ?,具体思路可以说一下吗?楼上的高人!
举报 回复(0) 喜欢(0)     评分
gis
gis
管理员
管理员
  • 注册日期2003-07-16
  • 发帖数15951
  • QQ
  • 铜币25345枚
  • 威望15368点
  • 贡献值0点
  • 银元0个
  • GIS帝国居民
  • 帝国沙发管家
  • GIS帝国明星
  • GIS帝国铁杆
6楼#
发布于:2004-08-06 08:09
array数据的方法的确是可以,由于最近没用mo,也没装vb,改天贴上代码
GIS麦田守望者,期待与您交流。
举报 回复(0) 喜欢(0)     评分
edward22
路人甲
路人甲
  • 注册日期2004-07-01
  • 发帖数121
  • QQ
  • 铜币506枚
  • 威望0点
  • 贡献值0点
  • 银元0个
7楼#
发布于:2004-08-06 08:25
<P>谢谢GIS!</P>
如果你爱他就让他学GIS,如果你恨他就让他学GIS!
举报 回复(0) 喜欢(0)     评分
一步穷
路人甲
路人甲
  • 注册日期2003-12-15
  • 发帖数107
  • QQ
  • 铜币221枚
  • 威望0点
  • 贡献值0点
  • 银元0个
8楼#
发布于:2004-08-09 09:14
多谢!急等!
举报 回复(0) 喜欢(0)     评分
gis
gis
管理员
管理员
  • 注册日期2003-07-16
  • 发帖数15951
  • QQ
  • 铜币25345枚
  • 威望15368点
  • 贡献值0点
  • 银元0个
  • GIS帝国居民
  • 帝国沙发管家
  • GIS帝国明星
  • GIS帝国铁杆
9楼#
发布于:2004-08-09 09:21
<P>程序很多,点线面的redo和undo都要写,这里贴上两个函数看看先</P><P>'添加线
Function UAddLine(map As MapObjects2.map, layerNum As Long, Line As MapObjects2.Line)
On Error GoTo exit1
Dim lineNew As New MapObjects2.Line</P><P> Set m_map = map
 
 Dim recs As MapObjects2.Recordset
 Set recs = map.Layers(layerNum).Records
 CopyLine lineNew, Line
 
 pushTypeAStep utAddLine
 pushInt layerNum
 pushObject lineNew
 pushEnd
 
 recs.Edit
 recs.AddNew
 Set recs.Fields("Shape").Value = lineNew
 
 recs.Update
 recs.StopEditing
 
 
 Refresh map
Set lineNew = Nothing
exit1:
End Function</P><P>Private Function URAddLine(map As MapObjects2.map) 'redo
On Error GoTo exit1
Dim typea, layerNum As Long</P><P>Dim Line As MapObjects2.Line</P><P> typea = pipType
 layerNum = pipInt
Set Line = pipObject
 pipEnd</P><P>Dim recs As MapObjects2.Recordset
Set recs = map.Layers(layerNum).Records
 recs.Edit
 recs.AddNew
 Set recs.Fields("Shape").Value = Line
 recs.Update
 recs.StopEditing
 Refresh map
exit1:
End Function</P>
GIS麦田守望者,期待与您交流。
举报 回复(0) 喜欢(0)     评分
上一页
游客

返回顶部