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 (141)

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