Обработка событий формы в классе

@Sp1der · Регистрация: 05.07.2007

Я создаю библиотеку, в ней одна форма MyForm и модуль класса MyClass. В форме объявлено событие

Visual Basic

1	Public Event OkClicked()

Событие возникает при нажатии кнопки Ok

Visual Basic

1
2
3

Private Sub btnOk_CLICKED()
RaiseEvent OkClicked
End Sub

В классе объявлена форма

Visual Basic

1	Dim WithEvents MyFormNew As MyForm

Метод показа формы

Visual Basic

Public Sub Show()
Set MyFormNew = New MyForm
MyFormNew.Show
End Sub

Обработчик события

Visual Basic

1
2
3

Private Sub MyFormNew_OkClicked()
MsgBox 'Ura'
End Sub

Проблема в том, что событие из формы не передается в класс. Т.е. в форме я нажимаю на кнопку Ок, но сообщение 'Ura' не появляется. Может быть, кто-нибудь знает, как решить проблему.
PS. Не забывайте, что это библиотека и копию класса в форме делать нельзя (по-моему)

@Konst_one · 05.09.2007, 13:51

Копию класса в форме делать можно, а иначе не получится.
Создай свойство в форме - типа твоего класса и передай свой класс при инициализации. А в классе сделай метод вызова события.

Visual Basic

'class MyClass
friend sub FireEventOK()
   MsgBox 'Ura'
end sub
 
Public Sub Show()
Set MyFormNew = New MyForm
MyFormNew.MyClass=me
MyFormNew.Show
End Sub

Visual Basic

'form MyForm
private mvarMyClass as MyClass
friend property Let MyClass(vData as MyClass)
  set mvarMyClass =vData
end property
 
Private Sub btnOk_CLICKED()
 
   mvarMyClass.FireEventOK
 
End Sub

@Serge Pod · 05.09.2007, 16:41

Vot tak poprobuy:
---------------------------------
Main form s knokoy v proerte dla proverki DLL

Visual Basic

Private lgMyClass As Test.MyClass
 
Private Sub cmdOk_Click()
    Set lgMyClass = New Test.MyClass
End Sub

MyClass v DLL Test
---------------------------------------

Visual Basic

Private WithEvents MyFormNew As MyForm
 
 
 
Private Sub MyFormNew_OkClicked()
MsgBox 'Ura'
End Sub
 
 
Private Sub Class_Initialize()
Set MyFormNew = New MyForm
    MyFormNew.Show
End Sub
 
 
Private Sub Class_Terminate()
     Set MyFormNew = Nothing
End Sub

My Form v DLL Test
-----------------------------

Visual Basic

Public Event OkClicked()
Public Sub FormShow()
    Set MyFormNew = New MyForm
    MyFormNew.Show
End Sub
 
Private Sub cmdOk_Click()
    RaiseEvent OkClicked
End Sub

=========================
Provereno - rabotaet.

Zamecheniya:
Dla formy luche vsego opredelit' otdel'nye metody dlya otkrytiya i dlya unichtojeniya. Naprimer : OpenDialog i Terminate

Uklassa MyClass toje doljny byt' otdel'nye public metody dlya inicializacii i unichtojeniya.

Udachi

http://aibase.uka.ru

05.09.2007, 16:49

Передаю совет который сам тут получил:

Используй WithEvents:

Visual Basic

'** Class_1***
Dim frm as New Form1 'содержит кнопку OK
Dim WithEvents btn As CommandButton
 
Public Sub ShowFrm()
frm.Show
Set btn=frm.Command1
End Sub
 
Private Sub btn_Click()
MsgBox 'Класс1'
End Sub

Visual Basic

'** Class_2***
Dim frm as New Form1 'содержит кнопку OK
Dim WithEvents btn As CommandButton
 
Public Sub ShowFrm()
frm.Show
Set btn=frm.Command1
End Sub
 
Private Sub btn_Click()
MsgBox 'Класс2'
End Sub

Visual Basic

'***** использование *****
Public C1 As New Class_1, C2 As New Class_2
C1.Show
'если нажать Command1 выполнится MsgBox 'Класс1'
 
С2.Show
'если нажать Command1 выполнится MsgBox 'Класс2'

С1 и С2 должны еще жить при нажатии на кнопку, поэтому я их описал как Public, но в принципе можно описывать локально для процедуры, если ты уверен что процедура не закончится покак не выйдут из формы, если она закончится , то возможна ситуация что нажмут на Command1, а С1 и С2 уже не существует и естественно ни чего не сработает.