Ein kleines aber feines Script, welche beim Öffnen der Suche nachfragt ob die Suchergebnisse gelöscht werden sollen…
Ich benutze das Script sehr gerne.
Alternative gibt es eine Löschung der Listen per Knopfdruck.
Vielen Dank an Nairolf und FrankS für die Umsetzung.
Installationsanleitung auf P8-Magic beachten!

Ein kleines aber feines Script, welche beim Öffnen der Suche nachfragt ob die Suchergebnisse gelöscht werden sollen…Ich benutze das Script sehr gerne.Alternative gibt es eine Löschung der Listen per Knopfdruck.Vielen Dank an Nairolf und FrankS für die Umsetzung.Installationsanleitung auf P8-Magic beachten!


DeleteSearch V1.0.1 (95)

Diskussionsthread P8-Magic


Auto-DeleteSearch

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

' DeleteSearch, Version 1.0.0, vom 31.03.2009
'
' Beim öffnen der Suchfunktion wird die Ergebnissliste
' gelöscht.
'
' Copyright by Frank Schöneck, 2009
' letzte Änderung: Frank Schöneck, 31.03.2009 V1.0.0, Projektbeginn
'
' für Eplan Electric P8, ab V1.9.6
'
'
Public Class DeleteSearch
	<DeclareEventHandler("onActionStart.String.XSeSearchAction")> _
	Public Function MyEventHandlerFunction(ByVal iEventParameter As IEventParameter) As Long
 
		'Abfrage ob Ergebnisse gelöscht werden sollen?
		'Wenn Abfrage nicht gewüncht Zeilen auskommentieren
		Dim Result As DialogResult
		Result = MessageBox.Show("Soll erst die Ergebnisliste gelöscht werden ?", "DeleteSearch", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
		If Result = DialogResult.No Then Exit Function
 
    'Ergebnisliste löschen
    Dim CommandLineInterpreter As New CommandLineInterpreter()
    CommandLineInterpreter.Execute("GfDlgMgrActionIGfWind /function:DeleteAll")
 
    Return 0
  End Function
 
End Class