menuitemadd, call a function

[Der_schorsch]

Hi everybody,

how do I call a specific function with an Menuitem. If i do it like this:

Option Explicit  'Erzwingt die explizite Deklaration aller Variablen in einem Skript.+
Dim StrMessungIO
Sub SetMessIO
    StrMessungIO = "iO"
End Sub

Sub SetMessnIO
    StrMessungIO = "niO"
End Sub
MenuReset
          MenuItemAdd "VIEW","M","Popup","Messung akzeptieren/ablehnen"
          MenuItemAdd "VIEW","M.7","MenuItem","Messung akzeptieren","Call SetMessIO"
          MenuItemAdd "VIEW","M.7","MenuItem","Messung ablehnen","SetMessnIO"

InterActionOn

I get a "Type mismatch" Error

[Twigeater]

Hallo Schorsch!

Du musst da, wenn du das Skript nicht als Anwenderbefehle angemeldet hast, das mit einem ScriptStart machen. Das sieht dann so aus:

MenuItemAdd "VIEW","M.7","MenuItem","Messung akzeptieren","Call ScriptStart(""MyScript"",""SetMessIO"")"

Matthias