From 8eb69a3624aa5afb86b3ac53e3c417a2c42f9615 Mon Sep 17 00:00:00 2001 From: Nikolay Sivov Date: Sun, 5 Aug 2018 00:30:00 +0300 Subject: [PATCH] [vbruntime] Implement Interaction.CreateObject(). --- .../Microsoft.VisualBasic/Interaction.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/vbruntime/Microsoft.VisualBasic/Microsoft.VisualBasic/Interaction.vb b/vbruntime/Microsoft.VisualBasic/Microsoft.VisualBasic/Interaction.vb index a91c6e6d..2186a202 100644 --- a/vbruntime/Microsoft.VisualBasic/Microsoft.VisualBasic/Interaction.vb +++ b/vbruntime/Microsoft.VisualBasic/Microsoft.VisualBasic/Interaction.vb @@ -85,8 +85,8 @@ Namespace Microsoft.VisualBasic Return String.Join(" ", Environment.GetCommandLineArgs) End Function Public Shared Function CreateObject(ByVal ProgId As String, Optional ByVal ServerName As String = "") As Object - 'TODO: COM - Throw New NotImplementedException + Dim ObjType as Type = Type.GetTypeFromProgID(ProgId, ServerName) + Return Activator.CreateInstance(ObjType) End Function Public Shared Sub DeleteSetting(ByVal AppName As String, Optional ByVal Section As String = Nothing, Optional ByVal Key As String = Nothing)