Modal Form

[LorinM]

I want to set parameters on a form then show modal.

Set fForm = frmMine
Load fForm

fForm.AParam = "123"

fForm.Show me, vbModal ' cannot because form already loaded.

Is there an API way ?

This is for an embedded PC anf the form being shown must be visible and nothing else can sit on top.
Controls on this form can close it.

[Arnoutdv]

Remove the line with the load statement

[Elroy]

I want to set parameters on a form then show modal.

Set fForm = frmMine
Load fForm

fForm.AParam = "123"

fForm.Show me, vbModal ' cannot because form already loaded.

Is there an API way ?

This is for an embedded PC anf the form being shown must be visible and nothing else can sit on top.
Controls on this form can close it.

LorinM,

I just see two problems:

1) You never instantiated your form: Set fForm = New frmMine

2) You reversed the arguments to show it. It should be: fForm.Show vbModal, me

[LorinM]

1) yes I do but did not show.
2) my bad. a dyslectic typo.

Is there no API that will make the form Modal after all has settled down ?

[Arnoutdv]

I use the following often:

Dim fTest As frmTest

Set fTest = new frmTest
fTest.PropertyA = “Test”
fTest.Show vbModal

[prote01]

i Use

in FormParent (pForm)

Private Sub Command_click()
 Label1.tag = "123" 'Something with TAG
 cForm.Show [1]
End Sub

in FormChild (cForm)

Private Sub Form_Load()
 Dim Value as String
 Value = pForm.Label1.tag 
 pform.label.tag = ""
End sub

[gaouser]

I want to set parameters on a form then show modal.

Set fForm = frmMine
Load fForm

fForm.AParam = "123"

fForm.Show me, vbModal ' cannot because form already loaded.

Is there an API way ?

This is for an embedded PC anf the form being shown must be visible and nothing else can sit on top.
Controls on this form can close it.

I got 2 ways.

Set fForm = frmMine

fForm.AParam = "123"

fForm.Show me, vbModal

Set fForm = frmMine
Load fForm

fForm.Show me, vbModal

fForm.AParam = "123"

[Crapahute]

What I do in this case :

Form1 :

Option Explicit

Private Sub Command1_Click()
    Form2.Parameter = "Essai"
    Form2.Show vbModal, Me
End Sub

Form2 :

Option Explicit

Private frmParameter As String

Private Sub Form_Load()
    
    Debug.Print frmParameter
    
End Sub

Public Property Get Parameter() As String
    Parameter = frmParameter
End Property

Public Property Let Parameter(ByVal sValue As String)
    frmParameter = sValue
End Property