COM 互操作： C# DLL 导致 Excel 崩溃 ( "Expected: To" )

Question

我想了解更多关于Runtime.InteropServices。为此，我决定为Excel制作一款基于c# DLL的基本游戏。以下是游戏的顶级c#代码:

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Runtime.InteropServices;
namespace ExcelEscapeGame
{
    [Guid("F4810BC6-C65E-4D1B-855A-D645C7F66893")]
    [ComVisible(true), InterfaceType(ComInterfaceType.InterfaceIsDual)]
    public interface IEscapeGame
    {
        [DispId(1)]
        void NewGame([param: MarshalAs(UnmanagedType.I1)] byte EnemyMoveSpeed,
            [param: MarshalAs(UnmanagedType.I1)] byte PlayerMoveSpeed,
            [param: MarshalAs(UnmanagedType.I1)] byte EnemyCount,
            [param: MarshalAs(UnmanagedType.I4)] int OuterWidth,
            [param: MarshalAs(UnmanagedType.I4)] int OuterLength,
            [param: MarshalAs(UnmanagedType.I4)] int BorderWidth);
        [DispId(2)]
        [return: MarshalAs(UnmanagedType.SafeArray, SafeArraySubType = VarEnum.VT_I4)]
        int[,] GameMap();
    }
    [Guid("B937DE85-776F-4822-A3B7-A936F2043537")]
    [ComVisible(true), ClassInterface(ClassInterfaceType.None)]
    public class EscapeGame : IEscapeGame
    {
        private GameFrame GF;
        private EnemyFlock TheHorde;
        private Player player;
        private int[,] BaseMap;
        private bool Initialized = false;
        public void NewGame(byte EnemyMoveSpeed, byte PlayerMoveSpeed, byte EnemyCount,
            int OuterWidth, int OuterLength, int BorderWidth)
        {
            GF = new GameFrame(new Point(0, 0), new Point(BorderWidth, BorderWidth), OuterLength, OuterWidth);
            TheHorde = new EnemyFlock(EnemyCount, EnemyMoveSpeed);
            TheHorde.RandomlyPositionAtEdge(GF);
            player = new Player(PlayerMoveSpeed, GF.CentrePoint());
            BaseMap = GF.FrameMap();
            Initialized = true;
        }
        public EscapeGame() { }
        public EscapeGame(byte EnemyMoveSpeed, byte PlayerMoveSpeed, byte EnemyCount,
            int OuterWidth, int OuterLength, int BorderWidth)
        {
            this.NewGame(EnemyMoveSpeed, PlayerMoveSpeed, EnemyCount,
            OuterWidth, OuterLength, BorderWidth);
        }
        public int[,] GameMap()
        {
            TestInitialized();
            int[,] map = CopyMap();
            Point[] EnemyPositions = TheHorde.Positions();
            foreach (Point p in EnemyPositions)
            {
                map[p.x, p.y] = (int)ColourEnum.ENEMY;
            }
            map[player.Position.x, player.Position.y] = (int)ColourEnum.PLAYER;
            return map;
        }
        private int[,] CopyMap()
        {
            TestInitialized(); 
            int[,] OutMap = new int[BaseMap.GetUpperBound(0) + 1, BaseMap.GetUpperBound(1) + 1];
            for (int i = 0; i <= BaseMap.GetUpperBound(0); i++)
            {
                for (int j = 0; j <= BaseMap.GetUpperBound(1); j++)
                {
                    OutMap[i, j] = BaseMap[i, j];
                }
            }
            return OutMap;
        }
        private void TestInitialized()
        {
            if (!Initialized) throw new NullReferenceException("The class was not initialized");
        }
    }
}

我正试图从Excel中调用它。当我最初测试它时，一切似乎都很正常。现在我已经向DLL中添加了更多的类(包括上面的EscapeGame类)，有些东西似乎已经坏了，我不知道为什么。以下两个VBA子(Test)中的第一个曾经工作得很好，现在只是导致Excel立即崩溃(没有错误消息)，第二个(Go)只是给出"预期:to"作为错误消息，不会开始运行(辅助函数只是在那里，以防它们是相关的):

Sub Test()
Dim point As New ExcelGames.point
point.MakePoint 10, 10
Set p.Position = point
p.MoveSpeed = 2
Dim arr As Variant, pRange As Excel.Range
arr = p.Paths
Set pRange = Sheet1.Range("f10")
Application.ScreenUpdating = False
For i = 0 To UBound(arr, 1)
    pRange.Offset(arr(i, 0), arr(i, 1)).Interior.ColorIndex = 5
Next i
Application.ScreenUpdating = True

End Sub

Sub Go()
Dim TheGame As New EscapeGame, p1 As New ExcelGames.point, offsetp As New ExcelGames.point
p1.MakePoint 0, 0
offsetp.MakePoint 2, 2
TheGame.NewGame 2, 2, 10, 20, 20, 2
Dim arr As Variant
arr = TheGame.GameMap()

Dim i As Long, j As Long
Application.ScreenUpdating = False
For i = 0 To UBound(arr, 1)
    For j = 0 To UBound(arr, 2)
        Sheet1.Cells(i + 1, j + 1).Value = arr(i, j)
    Next j
Next i
Application.ScreenUpdating = True
Dim gameRange As Excel.Range
Set gameRange = Sheet1.Range(Cells(1, 1), Cells(UBound(arr, 1) + 1, UBound(arr, 2) + 1))
FormatRange gameRange
FormatConditionRange gameRange, "=" & ExcelGames.ColourEnum_INNERSQUARE, 14395790
FormatConditionRange gameRange, "=" & ExcelGames.ColourEnum_OUTERSQUARE, 15652797
FormatConditionRange gameRange, "=" & ExcelGames.ColourEnum_PLAYER, 5296274
FormatConditionRange gameRange, "=" & ExcelGames.ColourEnum_ENEMY, 8696052
End Sub
Private Sub FormatRange(ByRef xlrange As Excel.Range)
With xlrange
    .Columns.ColumnWidth = _
    .Columns("A").ColumnWidth / .Columns("A").Width * _
    .Rows(1).Height
End With
End Sub
Private Sub FormatConditionRange(ByRef xlrange As Excel.Range, ByVal Formula As String, _
    ByVal Colour As Long)
Dim FC As FormatCondition
With xlrange
    Set FC = .FormatConditions.Add(xlCellValue, Operator:=xlEqual, Formula1:=Formula)
    With FC
        .Interior.Color = Colour
        .Font.Color = Colour
        .StopIfTrue = False
    End With
End With
End Sub

两个sub在第一行执行之前都失败了——在vide中逐级执行代码并不能帮助突出显示错误的原因。当我在c#控制台应用程序中使用DLL中的类时，一切都工作得很好-根本没有错误。"期望:要"是什么意思，谁能告诉我哪里做错了吗?

Answer 1

解决方案是，命名第二个子"Go"导致Excel认为它期待一个GoTo语句。这似乎影响了该模块中的所有代码。一旦我将名称改为"GoWork"，子程序就会正确执行。