-
how to use class interface&objects
Hi,
I'm tring to use OOP to build a simple code.
i want to build a program that will place a message on the screen
with a name of shape(circle, line).
i have class interface that define property "shape" and method "draw".
[VBA]
public shape As String
Public Sub draw()
End Sub
[/VBA]
circle class:
[VBA]
Implements Idraw
Private Property Get Idraw_shape() As String
Idraw_shape = "Crcle"
End Property
Private Property Let Idraw_shape(ByVal RHS As String)
'
End Property
Private Sub Idraw_draw()
MsgBox (Idraw_shape)
End Sub
[/VBA]
and another similar "line" class.
what am i doing wrong, how can i run a circle class to get the circle message on the screen.
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules