Es gibt eine neue Version von Charmap (Zeichentabelle).
Diese funktioniert nur mit Eplan P8 2.0.
CharMap V2.0 legt einen neuen Menüpunkt „Zeichensatztabelle öffnen…“
in das Kontextmenü der „Eigenschaft: Text, bzw. Pfadfunktionstext“.
Außerdem wird auch noch ein neuer Menüpunkt unter Dienstprogramme
angelegt.
Vielen Dank an FrankS!
CharMap V2.0.0.vb 1 (1576 Downloads )
' CharMap, Version 2.0.0, vom 02.09.2010
'
' Erweitert das Context-Menü der "Eigenschaft: Text"
' um einen Eintrag zum Aufrufen der Windows Zeichensatztabelle
'
'
' Copyright by Frank Schöneck, 2010
'
' für Eplan Electric P8, ab V2.0.5
'
Public Class CharMap
_
Public Sub DeleteProjectBackup_Menu()
'Menüeintrag
Dim oMenu As New Eplan.EplApi.Gui.Menu()
oMenu.AddMenuItem("Zei&chensatztabelle öffnen...", "CharMapMenu", "Es wird die Windows Zeichsatztabelle aufgerufen", 35032, 1, True, False)
'Context-Menüeintrag (hier in der Seitenübersicht)
Dim oContextMenu As New Eplan.EplApi.GUI.ContextMenu()
Dim oContextMenuLocation As New Eplan.EplApi.GUI.ContextMenuLocation("GedEditGuiText", "1002")
oContextMenu.AddMenuItem(oContextMenuLocation, "Zeichensatztabelle öffnen...", "CharMapMenu", True, False)
End Sub
_
Public Sub CharMapMenu()
Dim sCharMap As String = "system32\charmap.exe"
Dim sWinDir As String = Environment.GetEnvironmentVariable("windir")
If sWinDir.EndsWith("\") = False Then sWinDir &= "\"
Dim ExterneAnwendung As New System.Diagnostics.Process()
Dim Argumente As String = ""
ExterneAnwendung.StartInfo.FileName = sWinDir & sCharMap
ExterneAnwendung.StartInfo.Arguments = Argumente
ExterneAnwendung.StartInfo.UseShellExecute = True
ExterneAnwendung.StartInfo.CreateNoWindow = False
ExterneAnwendung.Start()
Return
End Sub 'CharMapMenu
End Class
Hinterlasse einen Kommentar