Mit diesem Script wird ein neuer Menüpunkt initialisiert (unter Dienstprogramme). Dadurch kann man schnell die Zeichentabelle von Windows aufrufen um Sonderzeichen usw. einzufügen.
Vielen Dank an FrankS!

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

Public Class CharMap
   _
 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
   _
 Public Sub MenuFunction()
    Dim oMenu As New Eplan.EplApi.Gui.Menu()
    oMenu.AddMenuItem("Zei&chensatztabelle...", "CharMapMenu")
  End Sub 'MenuFunction