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 (889 Downloads)
|
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 30 31 32 33 34 35 36 37 38 39 40 41 42 43 |
' 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 |