【代码7-1】 Public Color As Long Sub draw()’
问题:
【代码7-1】
Public Color As Long
Sub draw()
’方法体不包括可执行语句
End Sub
Sub move(stepx As Single,stepy As Smgle)
’方法体不包括可执行语句
End Sub
【代码7-2】
(1)
Private color As Long
… ‘其他定义省略
Private bridged As (2)
Private Sub Class_Initialize ( )
Set bridged= (3)
End Sub
Private Property (4) ( )As Long
IShape_Color = color
End Property
Private Property (5) (ByVal newColor As Long)
color=newColor
End Property
Private Sub IShape_draw ( ) ’使用XCirele提供的显示功能
(6)
End Sub
Private Sub IShape_move (stepx As Single, stepy As Single)
… ’省略描述
End Sub