|
阅读：1952回复：2
Arcmap图层在编辑状态下如何设置使Delete键无效？<P>打开一个mxd文件，里面有加载的点图层，打开编辑状态，造中一个点元素，如果做到按Delete键无效呢？正常情况是可以删除这个点元素的，而我是想自己做一个删除功能的用户控件来删除，而不是通过按Delete就实现删除功能。</P> <P>我觉得这个应该在arcmap可以设置这个功能，哪位高手知道如何设置的？</P> <P>跪谢！</P> |
|
|
|
1楼#
发布于：2008-08-05 17:00
Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long <BR>Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) <BR><BR>Private Sub Command1_Click() <BR>Call EnableWindow(Me.hwnd, 0) <BR>Me.Caption = "现在拒绝KeyPress, MouseClick" <BR>Dim i As Long <BR>For i = 1 To 100 <BR>Call Sleep(100) <BR>DoEvents '虽有DoEvents，会发现，按Form的任何地方都没有反应 <BR>Next i <BR>Me.Caption = "现在解除了" <BR>Call EnableWindow(Me.hwnd, 1) <BR>End Sub <BR>
|
|
|
|
2楼#
发布于：2008-08-05 17:00
Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long <BR>Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) <BR><BR>Private Sub Command1_Click() <BR>Call EnableWindow(Me.hwnd, 0) <BR>Me.Caption = "现在拒绝KeyPress, MouseClick" <BR>Dim i As Long <BR>For i = 1 To 100 <BR>Call Sleep(100) <BR>DoEvents '虽有DoEvents，会发现，按Form的任何地方都没有反应 <BR>Next i <BR>Me.Caption = "现在解除了" <BR>Call EnableWindow(Me.hwnd, 1) <BR>End Sub <BR>
|
|
|