0
我想更多地了解Runtime.InteropServices。要做到这一点，我决定为Excel中的一个基本的游戏，从一个C＃DLL运行。以下是游戏的顶级C＃代码：COM互操作：C＃DLL导致Excel崩溃（ “预期：要”）
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）只是给出“预期：以”作为一个错误消息，并且不会开始运行（辅助功能就在那里情况下，他们有相关的）：
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
他们的第一线执行之前无论是潜艇的失败 - 通过在VBIDE步执行代码，不利于亮点错误的原因。完全没有错误 - 当我使用类从一个C＃控制台应用程序的一切DLL效果很好。 “预期：要”的含义是什么，任何人都可以提出我做错了什么？