Передача параметров

[kolonok]

Доброго всем!..

Можно ли открываемой форме передавать параметры?
и если да - то как? =)

[Денис]

О, способов куча! Если ты говоришь о передаче внутри одного приложения, то Просто обращаешься к контролам на форме для чтения или записи значений (естественно, пока она загружена).

Ну, например:

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

Form2.Caption = "Справочник"
Form2.Button1.Caption = "Готово"
Form2.List1.Visible = True

Ну а в целом, поиск по форуму тебе поможет.. в каждом конкретном случае.

[kolonok]

Денис, спасибо вопрос ясен.

про такой способ - это понятно. хотелось "поизящней" =).

к тому же передавать планировал рекордсет, или, скажем, массив

[Денис]

Ну давайте подождем способов поизящней.

[JohnK]

kolonok
Уточни вопрос. Когда и откуда открывается форма?
Если при запуске проги, то можно передавать параметры как из файла, реестра так и из командной строки.
Если же ты просто динамически создаешь еще одно окно внутри проекта, то глобальная переменная тебе в помощь!

[Twister]

Можно ли открываемой форме передавать параметры?

Тут недавно спрашивали про передачу параметров в запускаемый ЕХЕшник. Народ жгет по полной. Ни ЕХЕшник, ни форма, ни окно - это НЕ ФУНКЦИЯ, о какой передачи параметров может идти речь?

Просто обращаешься к контролам на форме для чтения или записи значений

хотелось "поизящней" =).

Ну давайте подождем способов поизящней.

И долгожданный, изящный способ:

можно передавать параметры как из файла, реестра так и из командной строки.

Параметры чему? ЕХЕшнику, форме? Я в шоке.

Вообще, изначально вопрос должен был звучать либо так:

Как можно совместно использовать некоторые (любые) данные в разных формах?

Или так:

Как мне обратиться к переменным одной формы из другой?

Предлагаю выполнить несколько шагов:
1. Создать в проекте модуль.
2. Объявить в нем нужные переменные как Public.
3. Юзать их наздоровье из любой точки программы.
4. Все же, задавать вопросы более корректно и не путаться в терминах и определениях.

[alibek]

Я обычно использую такую конструкцию:

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

'Form

Option Explicit

Private varResult As Long
Private varArgument1 As Long

...

Public Function DoInput(Parent As Form, ByRef Param1 As Long) As Boolean
varArgument1 = Param1
Me.Show vbModal, Parent
If varResult = 1 Then
  Param1 = varArgument1
  DoInput = True
End If
Unload Me
End Sub

...

Private Sub cmdOK_Click()
varResult = 1
Me.Hide
End Sub



'parent
Dim frm As Form1, V As Long
Set frm = New Form1
Load frm
If frm.DoInput(V) Then
  MsgBox V
End If
Set frm = Nothing


Если форма немодальная, то тогда просто публичные переменные на уровне формы и публичный метод FormInit (вызываемый из родительской формы), в котором инициализируется интерфейс.

[kolonok]

идея была открывать модальную форму и натравливать ее на рекордсет (вариант - массив).
Просто не хотелось юзать Public .

Огромное всем спасибо!
Twister,
п.4. - постараюсь воспользоваться =)

[Andrey Fedorov]

Можно сделать Public переменную уровня формы и передать ей.
Можно в форме сделать Public процедуру/функцию, передавать ей параметры

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

' В вызывающей форме:
'-----------
Dim f As New MyModalForm
...
If f.ShowForm(r, ...) Then
...
'-----------
' В модальной форме:
'-----------
Pubic Function ShowForm(r As ADODB.Recordset, ... ) As Boolean
    ....
    Show Screen.ActiveForm, vbModal
    Par7 = ...
    ShowForm = ...
End Function
'-----------

[Денис]

В принципе, все зависит от того, что должно дальше происходить с передаваемым параметром, должно ли окно просто отображать необходимые значения или должно работать с полученными массивами или объектами, а потом возвращать их. В случае работы с БД, ИМХО удобнее работать с заранее объявленными в отдельном модуле Public-объектами.

[iGrok]

Ну так можно и рекордсет так передать..

В родителе (frmMain) -
public objRec as Recordset

В модальной форме -
Dim oMyRec as Recordset

При открытии модальной формы -
Set oMyRec = frmMain.objRec

И далее работаем с oMyRec.. Это как вариант )