Informacje podstawowe:
Buduję system SCADA, który działa na VBA i szukam niektórych uprawnień C#. Buduję bibliotekę DLL w języku C# i otrzymuję podstawowe dane do przepływu między biblioteką DLL a VBA.Tablica VBA obiektów zdefiniowanych przez użytkownika z biblioteki C# DLL
[ComVisible(true), ClassInterface(ClassInterfaceType.AutoDual)]
public class BE_Log
{
public string DateTime
{
[return: MarshalAs(UnmanagedType.BStr)]
get;
[param: MarshalAs(UnmanagedType.BStr)]
set;
}
public string User
{
[return: MarshalAs(UnmanagedType.BStr)]
get;
[param: MarshalAs(UnmanagedType.BStr)]
set;
}
public string SCADA
{
[return: MarshalAs(UnmanagedType.BStr)]
get;
[param: MarshalAs(UnmanagedType.BStr)]
set;
}
public string Tag
{
[return: MarshalAs(UnmanagedType.BStr)]
get;
[param: MarshalAs(UnmanagedType.BStr)]
set;
}
public string Area1
{
[return: MarshalAs(UnmanagedType.BStr)]
get;
[param: MarshalAs(UnmanagedType.BStr)]
set;
}
public string Area2
{
[return: MarshalAs(UnmanagedType.BStr)]
get;
[param: MarshalAs(UnmanagedType.BStr)]
set;
}
public string Description
{
[return: MarshalAs(UnmanagedType.BStr)]
get;
[param: MarshalAs(UnmanagedType.BStr)]
set;
}
public string ValueOld
{
[return: MarshalAs(UnmanagedType.BStr)]
get;
[param: MarshalAs(UnmanagedType.BStr)]
set;
}
public string ValueNew
{
[return: MarshalAs(UnmanagedType.BStr)]
get;
[param: MarshalAs(UnmanagedType.BStr)]
set;
}
public BE_Log(string DataTime, string User, string SCADA, string Tag, string Area1, string Area2,string Description)
{
this.DateTime = DateTime;
this.User = User;
this.SCADA = SCADA;
this.Tag = Tag;
this.Area1 = Area1;
this.Area2 = Area2;
this.Description = Description;
}
public BE_Log(string DataTime, string User, string SCADA, string Tag, string Area1, string Area2, string Description, string ValueOld, string ValueNew)
{
this.DateTime = DateTime;
this.User = User;
this.SCADA = SCADA;
this.Tag = Tag;
this.Area1 = Area1;
this.Area2 = Area2;
this.Description = Description;
this.ValueOld = ValueOld;
this.ValueNew = ValueNew;
}
}
I wrócił klasa tak:
[ComVisible(true), ClassInterface(ClassInterfaceType.AutoDual)]
public class TI
{
private BLL_LogBook bll;
public TI()
{
bll = new BLL_LogBook();
}
[return: MarshalAs(UnmanagedType.SafeArray, SafeArraySubType=VarEnum.VT_USERDEFINED)] // SafeArrayUserDefinedSubType = typeof(BE_Log)
public BE_Log[] CreateLogBook()
{
List<BE_Log> logs = bll.GetLogEntry();
return logs.ToArray();
}
}
Moja warstwa danych:
public class BLL_LogBook
{
public List<BE_Log> GetLogEntry()
{
List<BE_Log> logs = new List<BE_Log>();
logs.Add(new BE_Log("05-05-2015", "some user", "scada01", "LA010NDA10CU12XQ12", "Ribe", "Esbjerg", "Some short description"));
logs.Add(new BE_Log("06-05-2015", "test user", "scada01", "LA010NDA10CU12XB05", "Herning", "KBH", "Some long description"));
logs.Add(new BE_Log("07-05-2015", "normal user", "scada02", "LA010NDA10CU12YQ01", "Åhus", "Tønder", "Some test description"));
return logs;
}
}
Statyczna metoda VBA woła:
static class UnmanagedExports
{
[DllExport]
[return: MarshalAs(UnmanagedType.IDispatch)]
static Object TI_Object()
{
return new TI();
}
}
w VBA í otrzymałem dane w ten sposób:
Declare Function TI_Object Lib "<path>\\TJI.dll"() As Object
Sub TestTheTestClass()
Dim TJI As Object
Set TJI = TI_Object()
Dim test As Variant
test = TJI.CreateLogBook()
Dim log As Variant
Set log = test(0)
Debug.Print log.User
End Sub
Teraz moje pytanie:
Jak mogę zwrócić Array lub Lista klasy 'BE_Log'
EDIT:To gdzie utknąłem: http://puu.sh/hnPGe/472ff863d0.png
Próbowałem opracować niektóre z dokumentacji Microsoft, bez powodzenia.
orginal przypomnienie i następnie było to jedno:
http://www.analystcave.com/excel-use-c-sharp-in-excel-vba/
On stwierdza co następuje, jednak ja nie całkowicie to rozumiem.
If you are using an array as an argument be sure to use the C# “ref” get by reference option e.g. ref int[] ar
myślę, że to ma coś wspólnego z „MarshalAs” lub sposób Czytam danych w VBA
Próbowałem zarówno z tablicy i listy 'publiczna Log [] CreateLogBook() ' ' publiczna lista CreateLogBook() ' –
" Próbowałem ... "- i jaki był rezultat? – Joe
Nie mogę pobrać VBA do odczytu danych, a może nie zrobiłem tego "Marszałek", prawda? Czy możesz podać przykład, jak czytać tablicę w VBA, z biblioteki DLL? –