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 (977 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