然后添加两个类模块,类名称分别设定为ImpClass以及ImpClass2,然后在类的代码窗口中写入: Implements BaseClass ''''继承特性 上面这行代码说明类ImpClass以及ImpClass2实现类BaseClass。 在ImpClass窗口中加入以下代码: Private Sub BaseClass_BaseSub() ''''实现基类中的BaseSub方法 MsgBox "Hello. This is Imp. inherited from BaseClass" End Sub
在ImpClass2中加入以下代码: Private Sub BaseClass_BaseSub() MsgBox "Hello. This is Imp2. inherited from BaseClass" End Sub
Private Declare Function GetSystemMenu Lib "user32" _ (ByVal hwnd As Long, ByVal bRevert As Long) As Long Private Declare Function RemoveMenu Lib "user32" _ (ByVal hMenu As Long, ByVal nPosition As Long, _ ByVal wFlags As Long) As Long Private Declare Function EnableMenuItem Lib "user32" _ (ByVal hMenu As Long, ByVal wIDEnableItem As Long, _ ByVal wEnable As Long) As Long
Const SC_CLOSE = &HF060
Private Sub Form_Load() Dim hMenu As Long
hMenu = GetSystemMenu(Me.hwnd, 0) RemoveMenu hMenu, &HF060, &H200& Debug.Print EnableMenuItem(hMenu, SC_CLOSE, 1) End Sub