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