' //Deletes all features selected on the current layer
Public Sub DeleteAllSelectedFeatures(ByVal pFeatureCursor As IFeatureCursor, ByVal GeometryTypeStr As String)
Dim pWorkspaceEdit As IWorkspaceEdit
Dim pFeature As IFeature
' If there are no features currently selected then nothing to do
If pFeatureCursor Is Nothing Then Exit Sub
Try
Dim bResponse As DialogResult
bResponse = MsgBox("您确定删除所有" & GeometryTypeStr & "要素吗?", MessageBoxButtons.YesNo)
If bResponse = Windows.Forms.DialogResult.Yes Then
' Loop over the selected features deleting each in turn
pWorkspaceEdit = pSdeWorkspace
pWorkspaceEdit.StartEditing(True)
pWorkspaceEdit.StartEditOperation()
pFeature = pFeatureCursor.NextFeature
While Not pFeature Is Nothing
pFeature.Delete()
pFeature = pFeatureCursor.NextFeature
End While
pWorkspaceEdit.StopEditOperation()
pWorkspaceEdit.StopEditing(True)
End If
mainForm1.AxMapControl1.ActiveView.Refresh()
Exit Sub
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
Public Sub DeleteAllSelectedFeatures(ByVal pFeatureCursor As IFeatureCursor, ByVal GeometryTypeStr As String)
Dim pWorkspaceEdit As IWorkspaceEdit
Dim pFeature As IFeature
' If there are no features currently selected then nothing to do
If pFeatureCursor Is Nothing Then Exit Sub
Try
Dim bResponse As DialogResult
bResponse = MsgBox("您确定删除所有" & GeometryTypeStr & "要素吗?", MessageBoxButtons.YesNo)
If bResponse = Windows.Forms.DialogResult.Yes Then
' Loop over the selected features deleting each in turn
pWorkspaceEdit = pSdeWorkspace
pWorkspaceEdit.StartEditing(True)
pWorkspaceEdit.StartEditOperation()
pFeature = pFeatureCursor.NextFeature
While Not pFeature Is Nothing
pFeature.Delete()
pFeature = pFeatureCursor.NextFeature
End While
pWorkspaceEdit.StopEditOperation()
pWorkspaceEdit.StopEditing(True)
End If
mainForm1.AxMapControl1.ActiveView.Refresh()
Exit Sub
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub