ник: час
имеется модуль класса clsBT
Option Explicit
Dim WithEvents m_bt As VB.CommandButton
Dim m_OwnerForm As Form
Public Property Get Button() As VB.CommandButton
Set bt = m_bt
End Property
Public Property Set Button(bt As VB.CommandButton)
Set m_bt = bt
End Property
Public Property Get OwnerForm() As Form
Set OwnerForm = m_OwnerForm
End Property
Public Property Set OwnerForm(frm As Form)
Set m_OwnerForm = frm
End Property
Private Sub m_bt_Click()
Select Case m_bt.Tag
Case "#"
Unload m_OwnerForm
Case Else
MsgBox "O, Yes! " & m_bt.Caption, vbInformation
End Select
End Sub
|
Помогите хотяба коментами к коду
================================
у мну всё конечна работает.........
но никак не въеду - как это всё работает..........