screen.activeform ou en cas de mdi : fmdi.avtiveform
Cordialement
Christian Hubert-Hugoud
"JCM" a écrit dans le message de news:
Bonjour à tous
je voudrais savoir qu'elle est la form valide dans mon appli, par exemple je voudrais savoir si FrmMain.show=true
j'ai repris ce code dans une réponse du newgroup :
Function IsActiveWindow(objFrm As Form) As Boolean Dim frm As Form
IsActiveWindow = False
'on parcourt la collection des forms chargées For Each frm In Forms If frm Is objFrm Then IsActiveWindow = True Exit For End If Next frm End Function
Mais je ne vois pas comment l'appliquer à mon problème :
est-ce frm=frmMain ou objFrm=frmMain
Merci de votre aide cordialement JCM
JCM
Bonjour
Merci pour ta réponse mais je ne vois pas comment utiliser ce code, j'ai essayé :
If Screen.ActiveForm.Name = "frmMain" Then MsgBox "OK" End If
Et cela Beug, peux-tu estre plus précis
Cordialement JCM "Christian HUBERT-HUGOUD- Xtrem7" a écrit dans le message de news:crmdqn$4ia$
Je ne sais pas si j'ai bien compris, mais :
screen.activeform ou en cas de mdi : fmdi.avtiveform
Cordialement
Christian Hubert-Hugoud
"JCM" a écrit dans le message de news: > Bonjour à tous > > je voudrais savoir qu'elle est la form valide dans mon appli, > par exemple je voudrais savoir si FrmMain.show=true > > j'ai repris ce code dans une réponse du newgroup : > > Function IsActiveWindow(objFrm As Form) As Boolean > Dim frm As Form > > IsActiveWindow = False > > 'on parcourt la collection des forms chargées > For Each frm In Forms > If frm Is objFrm Then > IsActiveWindow = True > Exit For > End If > Next frm > End Function > > Mais je ne vois pas comment l'appliquer à mon problème : > > est-ce frm=frmMain ou objFrm=frmMain > > Merci de votre aide > cordialement > JCM >
Bonjour
Merci pour ta réponse mais je ne vois pas comment utiliser ce code, j'ai
essayé :
If Screen.ActiveForm.Name = "frmMain" Then
MsgBox "OK"
End If
Et cela Beug, peux-tu estre plus précis
Cordialement
JCM
"Christian HUBERT-HUGOUD- Xtrem7" <nospam@xtrem7.com> a écrit dans le
message de news:crmdqn$4ia$1@apollon.grec.isp.9tel.net...
Je ne sais pas si j'ai bien compris, mais :
screen.activeform ou en cas de mdi : fmdi.avtiveform
Cordialement
Christian Hubert-Hugoud
"JCM" <JCM@discussions.microsoft.com> a écrit dans le message de
news:042D46EB-5FDD-42AA-8040-3D169269DB45@microsoft.com...
> Bonjour à tous
>
> je voudrais savoir qu'elle est la form valide dans mon appli,
> par exemple je voudrais savoir si FrmMain.show=true
>
> j'ai repris ce code dans une réponse du newgroup :
>
> Function IsActiveWindow(objFrm As Form) As Boolean
> Dim frm As Form
>
> IsActiveWindow = False
>
> 'on parcourt la collection des forms chargées
> For Each frm In Forms
> If frm Is objFrm Then
> IsActiveWindow = True
> Exit For
> End If
> Next frm
> End Function
>
> Mais je ne vois pas comment l'appliquer à mon problème :
>
> est-ce frm=frmMain ou objFrm=frmMain
>
> Merci de votre aide
> cordialement
> JCM
>
Merci pour ta réponse mais je ne vois pas comment utiliser ce code, j'ai essayé :
If Screen.ActiveForm.Name = "frmMain" Then MsgBox "OK" End If
Et cela Beug, peux-tu estre plus précis
Cordialement JCM "Christian HUBERT-HUGOUD- Xtrem7" a écrit dans le message de news:crmdqn$4ia$
Je ne sais pas si j'ai bien compris, mais :
screen.activeform ou en cas de mdi : fmdi.avtiveform
Cordialement
Christian Hubert-Hugoud
"JCM" a écrit dans le message de news: > Bonjour à tous > > je voudrais savoir qu'elle est la form valide dans mon appli, > par exemple je voudrais savoir si FrmMain.show=true > > j'ai repris ce code dans une réponse du newgroup : > > Function IsActiveWindow(objFrm As Form) As Boolean > Dim frm As Form > > IsActiveWindow = False > > 'on parcourt la collection des forms chargées > For Each frm In Forms > If frm Is objFrm Then > IsActiveWindow = True > Exit For > End If > Next frm > End Function > > Mais je ne vois pas comment l'appliquer à mon problème : > > est-ce frm=frmMain ou objFrm=frmMain > > Merci de votre aide > cordialement > JCM >
ng
Salut,
Pour que cela fonctionne il faut au moins une fenetre visible (donc pas question de mettre ca dans le load de la première form).
Donc il faut d'abord tester qu'il y ait bien une form active :
Option Explicit
'//EXEMPLES :
Private Sub Command1_Click() If Not Screen.ActiveForm Is Nothing Then Debug.Print Screen.ActiveForm.Name End If End Sub
Private Sub Form_Load() If Not Screen.ActiveForm Is Nothing Then Debug.Print Screen.ActiveForm.Name End If End Sub
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
JCM wrote:
Bonjour
Merci pour ta réponse mais je ne vois pas comment utiliser ce code, j'ai essayé :
If Screen.ActiveForm.Name = "frmMain" Then MsgBox "OK" End If
Et cela Beug, peux-tu estre plus précis
Cordialement JCM "Christian HUBERT-HUGOUD- Xtrem7" a écrit dans le message de news:crmdqn$4ia$
Je ne sais pas si j'ai bien compris, mais :
screen.activeform ou en cas de mdi : fmdi.avtiveform
Cordialement
Christian Hubert-Hugoud
"JCM" a écrit dans le message de news:
Bonjour à tous
je voudrais savoir qu'elle est la form valide dans mon appli, par exemple je voudrais savoir si FrmMain.show=true
j'ai repris ce code dans une réponse du newgroup :
Function IsActiveWindow(objFrm As Form) As Boolean Dim frm As Form
IsActiveWindow = False
'on parcourt la collection des forms chargées For Each frm In Forms If frm Is objFrm Then IsActiveWindow = True Exit For End If Next frm End Function
Mais je ne vois pas comment l'appliquer à mon problème :
est-ce frm=frmMain ou objFrm=frmMain
Merci de votre aide cordialement JCM
Salut,
Pour que cela fonctionne il faut au moins une fenetre visible (donc pas
question de mettre ca dans le load de la première form).
Donc il faut d'abord tester qu'il y ait bien une form active :
Option Explicit
'//EXEMPLES :
Private Sub Command1_Click()
If Not Screen.ActiveForm Is Nothing Then
Debug.Print Screen.ActiveForm.Name
End If
End Sub
Private Sub Form_Load()
If Not Screen.ActiveForm Is Nothing Then
Debug.Print Screen.ActiveForm.Name
End If
End Sub
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
JCM wrote:
Bonjour
Merci pour ta réponse mais je ne vois pas comment utiliser ce code,
j'ai essayé :
If Screen.ActiveForm.Name = "frmMain" Then
MsgBox "OK"
End If
Et cela Beug, peux-tu estre plus précis
Cordialement
JCM
"Christian HUBERT-HUGOUD- Xtrem7" <nospam@xtrem7.com> a écrit dans le
message de news:crmdqn$4ia$1@apollon.grec.isp.9tel.net...
Je ne sais pas si j'ai bien compris, mais :
screen.activeform ou en cas de mdi : fmdi.avtiveform
Cordialement
Christian Hubert-Hugoud
"JCM" <JCM@discussions.microsoft.com> a écrit dans le message de
news:042D46EB-5FDD-42AA-8040-3D169269DB45@microsoft.com...
Bonjour à tous
je voudrais savoir qu'elle est la form valide dans mon appli,
par exemple je voudrais savoir si FrmMain.show=true
j'ai repris ce code dans une réponse du newgroup :
Function IsActiveWindow(objFrm As Form) As Boolean
Dim frm As Form
IsActiveWindow = False
'on parcourt la collection des forms chargées
For Each frm In Forms
If frm Is objFrm Then
IsActiveWindow = True
Exit For
End If
Next frm
End Function
Mais je ne vois pas comment l'appliquer à mon problème :
Pour que cela fonctionne il faut au moins une fenetre visible (donc pas question de mettre ca dans le load de la première form).
Donc il faut d'abord tester qu'il y ait bien une form active :
Option Explicit
'//EXEMPLES :
Private Sub Command1_Click() If Not Screen.ActiveForm Is Nothing Then Debug.Print Screen.ActiveForm.Name End If End Sub
Private Sub Form_Load() If Not Screen.ActiveForm Is Nothing Then Debug.Print Screen.ActiveForm.Name End If End Sub
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
JCM wrote:
Bonjour
Merci pour ta réponse mais je ne vois pas comment utiliser ce code, j'ai essayé :
If Screen.ActiveForm.Name = "frmMain" Then MsgBox "OK" End If
Et cela Beug, peux-tu estre plus précis
Cordialement JCM "Christian HUBERT-HUGOUD- Xtrem7" a écrit dans le message de news:crmdqn$4ia$
Je ne sais pas si j'ai bien compris, mais :
screen.activeform ou en cas de mdi : fmdi.avtiveform
Cordialement
Christian Hubert-Hugoud
"JCM" a écrit dans le message de news:
Bonjour à tous
je voudrais savoir qu'elle est la form valide dans mon appli, par exemple je voudrais savoir si FrmMain.show=true
j'ai repris ce code dans une réponse du newgroup :
Function IsActiveWindow(objFrm As Form) As Boolean Dim frm As Form
IsActiveWindow = False
'on parcourt la collection des forms chargées For Each frm In Forms If frm Is objFrm Then IsActiveWindow = True Exit For End If Next frm End Function
Mais je ne vois pas comment l'appliquer à mon problème :
est-ce frm=frmMain ou objFrm=frmMain
Merci de votre aide cordialement JCM
JCM
Salut Nicolas
Merci pour ton aide, un souci de moins
Cordialement JCM "ng" a écrit dans le message de news:
Salut,
Pour que cela fonctionne il faut au moins une fenetre visible (donc pas question de mettre ca dans le load de la première form).
Donc il faut d'abord tester qu'il y ait bien une form active :
Option Explicit
'//EXEMPLES :
Private Sub Command1_Click() If Not Screen.ActiveForm Is Nothing Then Debug.Print Screen.ActiveForm.Name End If End Sub
Private Sub Form_Load() If Not Screen.ActiveForm Is Nothing Then Debug.Print Screen.ActiveForm.Name End If End Sub
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
JCM wrote: > Bonjour > > Merci pour ta réponse mais je ne vois pas comment utiliser ce code, > j'ai essayé : > > If Screen.ActiveForm.Name = "frmMain" Then > MsgBox "OK" > End If > > Et cela Beug, peux-tu estre plus précis > > Cordialement > JCM > "Christian HUBERT-HUGOUD- Xtrem7" a écrit dans le > message de news:crmdqn$4ia$ >> Je ne sais pas si j'ai bien compris, mais : >> >> screen.activeform ou en cas de mdi : fmdi.avtiveform >> >> Cordialement >> >> Christian Hubert-Hugoud >> >> "JCM" a écrit dans le message de >> news: >>> Bonjour à tous >>> >>> je voudrais savoir qu'elle est la form valide dans mon appli, >>> par exemple je voudrais savoir si FrmMain.show=true >>> >>> j'ai repris ce code dans une réponse du newgroup : >>> >>> Function IsActiveWindow(objFrm As Form) As Boolean >>> Dim frm As Form >>> >>> IsActiveWindow = False >>> >>> 'on parcourt la collection des forms chargées >>> For Each frm In Forms >>> If frm Is objFrm Then >>> IsActiveWindow = True >>> Exit For >>> End If >>> Next frm >>> End Function >>> >>> Mais je ne vois pas comment l'appliquer à mon problème : >>> >>> est-ce frm=frmMain ou objFrm=frmMain >>> >>> Merci de votre aide >>> cordialement >>> JCM
Salut Nicolas
Merci pour ton aide, un souci de moins
Cordialement
JCM
"ng" <ng@ngsoft-fr.com> a écrit dans le message de
news:uBCCwcw9EHA.1264@TK2MSFTNGP12.phx.gbl...
Salut,
Pour que cela fonctionne il faut au moins une fenetre visible (donc pas
question de mettre ca dans le load de la première form).
Donc il faut d'abord tester qu'il y ait bien une form active :
Option Explicit
'//EXEMPLES :
Private Sub Command1_Click()
If Not Screen.ActiveForm Is Nothing Then
Debug.Print Screen.ActiveForm.Name
End If
End Sub
Private Sub Form_Load()
If Not Screen.ActiveForm Is Nothing Then
Debug.Print Screen.ActiveForm.Name
End If
End Sub
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
JCM wrote:
> Bonjour
>
> Merci pour ta réponse mais je ne vois pas comment utiliser ce code,
> j'ai essayé :
>
> If Screen.ActiveForm.Name = "frmMain" Then
> MsgBox "OK"
> End If
>
> Et cela Beug, peux-tu estre plus précis
>
> Cordialement
> JCM
> "Christian HUBERT-HUGOUD- Xtrem7" <nospam@xtrem7.com> a écrit dans le
> message de news:crmdqn$4ia$1@apollon.grec.isp.9tel.net...
>> Je ne sais pas si j'ai bien compris, mais :
>>
>> screen.activeform ou en cas de mdi : fmdi.avtiveform
>>
>> Cordialement
>>
>> Christian Hubert-Hugoud
>>
>> "JCM" <JCM@discussions.microsoft.com> a écrit dans le message de
>> news:042D46EB-5FDD-42AA-8040-3D169269DB45@microsoft.com...
>>> Bonjour à tous
>>>
>>> je voudrais savoir qu'elle est la form valide dans mon appli,
>>> par exemple je voudrais savoir si FrmMain.show=true
>>>
>>> j'ai repris ce code dans une réponse du newgroup :
>>>
>>> Function IsActiveWindow(objFrm As Form) As Boolean
>>> Dim frm As Form
>>>
>>> IsActiveWindow = False
>>>
>>> 'on parcourt la collection des forms chargées
>>> For Each frm In Forms
>>> If frm Is objFrm Then
>>> IsActiveWindow = True
>>> Exit For
>>> End If
>>> Next frm
>>> End Function
>>>
>>> Mais je ne vois pas comment l'appliquer à mon problème :
>>>
>>> est-ce frm=frmMain ou objFrm=frmMain
>>>
>>> Merci de votre aide
>>> cordialement
>>> JCM
Cordialement JCM "ng" a écrit dans le message de news:
Salut,
Pour que cela fonctionne il faut au moins une fenetre visible (donc pas question de mettre ca dans le load de la première form).
Donc il faut d'abord tester qu'il y ait bien une form active :
Option Explicit
'//EXEMPLES :
Private Sub Command1_Click() If Not Screen.ActiveForm Is Nothing Then Debug.Print Screen.ActiveForm.Name End If End Sub
Private Sub Form_Load() If Not Screen.ActiveForm Is Nothing Then Debug.Print Screen.ActiveForm.Name End If End Sub
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
JCM wrote: > Bonjour > > Merci pour ta réponse mais je ne vois pas comment utiliser ce code, > j'ai essayé : > > If Screen.ActiveForm.Name = "frmMain" Then > MsgBox "OK" > End If > > Et cela Beug, peux-tu estre plus précis > > Cordialement > JCM > "Christian HUBERT-HUGOUD- Xtrem7" a écrit dans le > message de news:crmdqn$4ia$ >> Je ne sais pas si j'ai bien compris, mais : >> >> screen.activeform ou en cas de mdi : fmdi.avtiveform >> >> Cordialement >> >> Christian Hubert-Hugoud >> >> "JCM" a écrit dans le message de >> news: >>> Bonjour à tous >>> >>> je voudrais savoir qu'elle est la form valide dans mon appli, >>> par exemple je voudrais savoir si FrmMain.show=true >>> >>> j'ai repris ce code dans une réponse du newgroup : >>> >>> Function IsActiveWindow(objFrm As Form) As Boolean >>> Dim frm As Form >>> >>> IsActiveWindow = False >>> >>> 'on parcourt la collection des forms chargées >>> For Each frm In Forms >>> If frm Is objFrm Then >>> IsActiveWindow = True >>> Exit For >>> End If >>> Next frm >>> End Function >>> >>> Mais je ne vois pas comment l'appliquer à mon problème : >>> >>> est-ce frm=frmMain ou objFrm=frmMain >>> >>> Merci de votre aide >>> cordialement >>> JCM
