Gemeinsam zu mehr Effizienz in der Anwendungserstellung
|  (Die Seite wurde neu angelegt: „=Installation=  ==MSI Paket==  ==Batch Scripts==  =Verwendung=  ==Einfügen in ein Access-Form==“) |  (→Verwendung) | ||
| Zeile 7: | Zeile 7: | ||
| =Verwendung= | =Verwendung= | ||
| - | == | + | ==Minimalbeispiel== | 
| + | |||
| + | * Installieren Sie den DotNetControlContainer im System | ||
| + | * Erstellen Sie eine leere Access Testdatenbank (mdb oder accdb) | ||
| + | * Importieren Sie die Klasse NetComDomain aus der Access CodeLib | ||
| + | * Erstellen Sie ein neues, leeres Formular und öffnen Sie es im Entwurfsmodus | ||
| + | * Wählen Sie im Menü die Option ''ActiveX Steuerelemente'' und fügen Sie ein neues ''ACLibControlConatiner.ControlContainer'' Objekt ein | ||
| + | * Prüfen Sie dass der Name des Controls im Formular ''ControlContainer0'' lautet | ||
| + | * Wenn Sie Access ab Version 2007 (oder Neuer) verwenden setzen Sie in den Objekteigenschaften des Elements ''ControlContainer0'' die Eigenschaft ''Horizontaler Anker'' sowie die Eigenschaft ''Vertikaler Anker'' auf ''Beide''. | ||
| + | * Fügen Sie in das Formular einen Button ''Befehl1'' ein. | ||
| + | * Fügen Sie dem Formular folgenden Code hinzu | ||
| + | |||
| + | <source lang="vb"> | ||
| + | Option Compare Database | ||
| + | Option Explicit | ||
| + | |||
| + | Private WinForm As Object | ||
| + | |||
| + | Private Sub Befehl1_Click() | ||
| + | |||
| + |     Dim DllPath As String | ||
| + |         DllPath = "C:\Windows\Microsoft.NET\Framework\v2.0.50727\System.Windows.Forms.dll" | ||
| + | |||
| + |     With New NetComDomain | ||
| + |         Set WinForm = .CreateObject("Form", "System.Windows.Forms", DllPath) | ||
| + |             WinForm.Text = "Das ist ein .NET Winform" | ||
| + |             WinForm.StartPosition = 1 | ||
| + |             WinForm.ShowIcon = False | ||
| + |             WinForm.TopLevel = False | ||
| + |     End With | ||
| + | |||
| + |     Me.ControlContainer0.Object.LoadControl WinForm | ||
| + | |||
| + |     WinForm.Show | ||
| + | |||
| + | End Sub | ||
| + | </source> | ||
| Inhaltsverzeichnis | 
Option Compare Database Option Explicit Private WinForm As Object Private Sub Befehl1_Click() Dim DllPath As String DllPath = "C:\Windows\Microsoft.NET\Framework\v2.0.50727\System.Windows.Forms.dll" With New NetComDomain Set WinForm = .CreateObject("Form", "System.Windows.Forms", DllPath) WinForm.Text = "Das ist ein .NET Winform" WinForm.StartPosition = 1 WinForm.ShowIcon = False WinForm.TopLevel = False End With Me.ControlContainer0.Object.LoadControl WinForm WinForm.Show End Sub