Свои методы и свойства в классе Form

[AHTOXA]

1) Хотелось бы создать форму с дополнительными методами и свойствами.
2) Передавать ей некоторые значения в качестве инициализационных параметров.
3) Чтобы после закрытия возвращала нужное мне значение или класс.
4) Как сделать данную форму модальной ?
Заранее благодарен.

[Cyrax]

ну дополнительные свойства создаем так:

Код: Выделить всё

Private m_Prop As Long ' переменная для хранения значения нашего нового свойства
' далше используем пару процедур Property Let/Get
Public Property Get NewProp() As Long
  NewProp = m_Prop ' позволяем прочитать свойство
End Property

Public Property Let fg(ByVal vNewValue As Long)
  m_Prop = NewValue ' а это установка свойства
  ' можно эту процедуру удалить, тогда свойство будет только для чтения
End Property

в Property Let/Get можно (и нужно) добавить проверку корректности значений или вызов еще какихто процедур и функций

а методы - это обычные процедуры и функции объявленные в модуле формы как Public

Код: Выделить всё

Public Sub NewMethod ()

End Sub

вызов свойств и методов:
Form1.PropertyName = Value ' присвоение
Var = Form1.PropertyName ' чтение
Form1.MethodName ' вызом метода

[AHTOXA]

Спасибо за ответ.

С 1,4 разобрались. Как быть со 2,3 пунктом (4 - Form.Show(1))?

[GSerg]

Вот ведь вредный какой.
Нету у нас ни конструкторов, ни деструкторов!
Поэтому вижу такой выход... Создать свою public процедуру (типа конструктор) и вызывать её сразу после создания. И большими буквами написать в комментариях: ПОКА НЕ ВЫЗОВИТЕ InitMe, НИЧЕГО НЕ ДЕЛАЙТЕ!!!

А касаемо п. 3...
Ну, например, завести в форме указатель на объект, который будет получать инфу. А запись сей инфы по указателю осуществлять из события Form_Unload().

[AHTOXA]

Ага, уже так сделал . Лучше бы заказчик заставил меня на c++ проги писать

[alibek]

Чаще всего я делаю таким образом.
Делается форма, в ней объявляется процедура Init приблизительно такого содержания

Код: Выделить всё

Option Explicit
...
Private vVar1 As Long, vVar2 As Long
...
Public Function Init(ByVal CityID As Long, Optional ByVal StreetID As Long) As Long
...
Tag = vbNullString
vVar1 = CityID
vVar2 = StreetID
...
'в некоторых случаях удобнее форму отображать прямо здесь
'в других случаях ее лучше показывать в вызывающей процедуре
Show vbModal
If Tag = "OK" Then
  Init = vVar2
Else
  Init = -1
End If
End Sub

На форме имеется также следующий код:

Код: Выделить всё

Private Sub Form_QueryUnload
If UnloadMode = ... Then
  Cancel = True
  Exit Sub
End If
End Sub

Private Sub cmdOK_Click
Tag = "OK"
Hide
End Sub

Private Sub cmdCancel_Click
Tag = "CANCEL"
Hide
End Sub


Вызывается примерно так:

Код: Выделить всё

Dim ret As Long
Load frmSelectStreet
ret = frmSelectStreet.Init(1,2)
Unload frmSelectStreet
Set frmSelectStreet = Nothing
If ret <= 0 Then
  MsgBox "CANCEL"
Else
  MsgBox "ret = " & ret
End If


[AHTOXA]

To alibek
Хороший совет.

Можно подробнее по этому куску кода:

Private Sub Form_QueryUnload
If UnloadMode = ... Then
Cancel = True
Exit Sub
End If
End Sub

Какие значения может принимать UnloadMode ?

[alibek]

Посмотри Enum QueryUnloadConstants. Это метод, каким закрывают окно. Тебя интересует метод, когда нажимают [X] (или команда Close (Alt+F4) в системном меню), тогда надо делать Cancel = True и вызывать cmdCancel_Click (потому что если юзер закрывает окно, это скорее Cancel, чем OK). Что можно сделать еще - просто сделать ControlBox=False для окна, чтобы его нельзя было закрыть по [X].