Beiträge von SallY72

' für eine schärfere Prüfung
Option Explicit On
Option Strict On


'VB.Net: damit die COM-DLL in VBA benutz werden kann
'in C# reicht/geht das nicht, es muss in der AssemblyInfo.cs umgestellt werden!
<System.Runtime.InteropServices.ComVisible(True)> _
Public Class Test


	''' <summary>
	''' DLL-Vorlage für Tests in VBA
	''' </summary>

	#Region "Public Sub New()"
	''' <summary>
	''' Standard Sub für die Erzeugung dieser Klasse
	''' </summary>
	''' <param name="Text">Angezeigter Text</param>
    ''' <remarks></remarks>
	''' <returns>clsInfo</returns>

	Public Sub New()
		MyBase.New		
		MsgBox( "Klasse ON",,"COMTestOhneReg01")
	End Sub

    #end region

	#Region "Public Property clsInfo()"
	''' <summary>
	''' diese Property in VBA mit "Debug.Print objTest.clsInfo" abholen
	''' clsInfo soll die DLL beschreiben, alle Propertys, Methoden usw. aufzeigen
	''' </summary>4EA43AC8-3359-4E59-A302-E428E6644309
	''' <param name="Text">Angezeigter Text</param>
    ''' <remarks></remarks>
	''' <returns>clsInfo</returns>

    Public Shared ReadOnly Property clsInfo() As String
        Get
        	Dim vInfo As String
			vInfo = "Rafael, 20140410" & VbCrLf & _
					"DateiName: COMTestOhneReg01" & VbCrLf & _
					"KlassenName: Test" & VbCrLf & _
					"" & VbCrLf & _
					"Propertys:" & VbCrLf & _
					" clsInfo: Info über diese DLL (string)" & VbCrLf & _
					" Merker1: freier Speicher (string)" & VbCrLf & _
					"" & VbCrLf & _
					"Function:" & VbCrLf & _
					" SetMyProperty/GetMyProperty (string)" & VbCrLf & _
					" MB2(str) = str: MsgboxTest: " & VbCrLf & _
					"" & VbCrLf & _
					"Sub:" & VbCrLf & _
					" Add: addiert 2 Zahlen (integer), MessageBox " & VbCrLf & _
					" MB(str): MsgboxTest: " & VbCrLf & _
					"" & VbCrLf & _
					"|"    	
            Return vInfo
        End Get
    End Property

    #end region

	#Region "Public Function Set/GetMyProperty()"
	''' <summary>
	''' Einfacher Aufruf von Funktionen geht von VBA aus
	''' Call MsgBox(objTest.SetMyProperty("hhhh"), , "Test Set")
	''' Call MsgBox(objTest.GetMyProperty, , "Test Get")
	''' </summary>
	''' <param name="Text">Angezeigter Text</param>
    ''' <remarks></remarks>
	''' <returns>k.a.</returns>


	Dim MyProperty As String

	Public Function SetMyProperty(x As String) As String
		MyProperty = x
		SetMyProperty = "ok" ' einfache Statusmeldung dass gearbeitet wurde
	End Function

	Public Function GetMyProperty() As String
		GetMyProperty = MyProperty
	End Function

	#End Region


	#Region "Public Sub Add()"
	''' <summary>
	''' einfacher Aufruf einer SUB aus VBA geht 
	''' Call objTest.Add(14, 6) ''' objTest = Klasse 
	''' </summary>
	''' <param name="Text">Angezeigter Text</param>
    ''' <remarks></remarks>
	''' <returns>k.a.</returns>

	Public Sub Add(ByVal a As Integer, ByVal b As Integer)
		MsgBox(a + b)
	End Sub

	#End Region

	#Region "Public Property Merker1()"
	''' <summary>
	''' in VBA einfach direkt zuweisen oder abfregen:
	''' objTest.Marke = vDummy2
	''' vAusgabe2 = objTest.Marke 
	''' </summary>
	''' <param name="Text">Angezeigter Text</param>
    ''' <remarks></remarks>
	''' <returns>k.a.</returns>

	Private _Merker1 As String

    Public Property Merker1() As String
        Get
            Return _Merker1
        End Get
        Set(ByVal value As String)
            _Merker1 = value
        End Set
    End Property


    #end region


' 2 Tests für AutoIt


	#Region "Public Sub MB()"
	''' <summary>
	''' einfacher Aufruf einer SUB aus VBA geht 
	''' Call objTest.Add(14, 6) ''' objTest = Klasse 
	''' </summary>
	''' <param name="Text">Angezeigter Text</param>
    ''' <remarks></remarks>
	''' <returns>k.a.</returns>

	Public Shared Sub MB(ByVal value As String)
		MsgBox(value)
	End Sub

	#End Region

		#Region "Public Sub MB()"
	''' <summary>
	''' einfacher Aufruf einer SUB aus VBA geht 
	''' Call objTest.Add(14, 6) ''' objTest = Klasse 
	''' </summary>
	''' <param name="Text">Angezeigter Text</param>
    ''' <remarks></remarks>
	''' <returns>k.a.</returns>

	Public Shared Function MB2(ByVal value As String) As String
		MsgBox(value)
		Return "OK" 
	End Function

	#End Region

End Class


'	#Region "Public Function Addiere()"
'	''' <summary>
'	''' Beschreibung
'	''' </summary>
'	''' <param name="Text">Angezeigter Text</param>
'    ''' <remarks></remarks>
'	''' <returns>k.a.</returns>
'	
'	#end region