UserControl laden

02/06/2010 - 16:50 von Lothar Geyer | Report spam
In Fortführung eines früheren Threads habe ich nun kleinere Probleme bei
der Umsetzung.

Aus einer Form F1 soll eine zweite F2 geladen werden, die sich ein
bestimmtes UserControl laden und anzeigen soll. Mein Kode-Fragmente:

in der F1 steht in einem Command_Click:

Dim myForm As frmDetails1

Set myForm = New frmDetails1
myForm.showDetailControl "ctlDetailVertrieb"
Set myForm.Partner = myPartner


In der F2 steht:

Private myPartner As clsPartner
Private myControl As IfDetailCtl

Public Sub showDetailControl(ControlName As String)

Set myControl = Me.Controls.Add(ControlName & ".object", "MyControl")
Me.Show

End Sub

Public Property Set Partner(Partner As clsPartner)

Set myPartner = Partner
Set myControl.Partner = myPartner

End Property

Aber das haut nicht hin. Das Me.Controls.Add bringt eine Fehlermeldung:
"Ungültige Klassenzeichenfolge. Es wird nach einem Objekt mit der ProgID
ctlDetailVertrieb gesucht"

Nun habe ich Tipps früherer Threads befolgt und mit
ctlDetailVertrieb.Object und AppName.ctlDetailVertrieb.Object probiert.
Gleiches (negatives) Ergebnis. Auch mit AppName.ctlDetailVertrieb
klappts nicht, nur lautet die Fehlermeldung "Typen unvertràglich". Liegt
das an dem Interface, über das ich das UserControl anspreche?

Lothar Geyer
 

Lesen sie die antworten

#1 Lothar Geyer
02/06/2010 - 17:12 | Warnen spam
Eine weitere Frage zum gleichen Thema.
In einer Form will ich ein SSTab aufbauen, das auf jedem Tab ein
UserControl hat. Da aber (konfigurations-abhàngig) nicht immer alle Tabs
belegt werden (und damit auch die Anzahl der Tabs unterschiedlich ist),
muss ich zur Laufzeit eines meiner UserControls auf einem Tab plazieren.
Nur: das gelingt mir nicht. Hat jemand die notwendigen Zeilen Kode für mich?
Danke im voraus.

Lothar Geyer

Ähnliche fragen