Forums Neueste Beiträge
 

MVC in VBA: wohin kommt der verweis?

19/12/2008 - 07:24 von Thomas Martin Mädzulat | Report spam
hallo,
wenn ein classenmodul, das aus einem worksheet heraus instantiiert wurde,
ein userform làdt, wohin muß ich dann den verweis auf dieses classenmodul
innerhalb des forms schreiben, damit ich vom form auf das klassenmodul
zugreifen kann?

das ganze soll so aussehen:

ein worksheet("Tabelle1") mit CommandButton:

Dim oControl As New FormControl
Private Sub CommandButtonStart_Click()
oControl.Start
End Sub

ein classenmodul FormControl:

Public Sub Start()
Load Form
Form.Show
End Sub

Public Sub MainButtonClick()
MsgBox "succeded"
End Sub

und ein UserForm Form mit CommandButton:

Dim oControl As FormControl
Private Sub CommandButtonControlCall_Click()
' zugriff ohne object
' oControl.MainButtonClick
End Sub

Private Sub UserForm_Initialize()

'der verweis kann nicht gesetzt werden...

'Set oControl = Worksheets("Tabelle1").oControl
End Sub
 

Lesen sie die antworten

#1 Thomas Martin Mädzulat
19/12/2008 - 07:45 | Warnen spam
...hat sich erledigt, - ich werde das form von einem modul aus steuern, da
klappt das mit dem zugriff.


"Thomas Martin Màdzulat" wrote:

hallo,
wenn ein classenmodul, das aus einem worksheet heraus instantiiert wurde,
ein userform làdt, wohin muß ich dann den verweis auf dieses classenmodul
innerhalb des forms schreiben, damit ich vom form auf das klassenmodul
zugreifen kann?

das ganze soll so aussehen:

ein worksheet("Tabelle1") mit CommandButton:

Dim oControl As New FormControl
Private Sub CommandButtonStart_Click()
oControl.Start
End Sub

ein classenmodul FormControl:

Public Sub Start()
Load Form
Form.Show
End Sub

Public Sub MainButtonClick()
MsgBox "succeded"
End Sub

und ein UserForm Form mit CommandButton:

Dim oControl As FormControl
Private Sub CommandButtonControlCall_Click()
' zugriff ohne object
' oControl.MainButtonClick
End Sub

Private Sub UserForm_Initialize()

'der verweis kann nicht gesetzt werden...

'Set oControl = Worksheets("Tabelle1").oControl
End Sub


Ähnliche fragen