ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Modal/Modeless Forms (https://www.excelbanter.com/excel-programming/375670-modal-modeless-forms.html)

kirkm[_6_]

Modal/Modeless Forms
 
Is there any way to have a form modeless in Excel 2002
but model in Excel 97.

I was playing with this

If Val(Application.Version) = 8 Then
frmLabel.Show
Else: frmLabel.Show vbModeless
End If

but the Else clause causes an error in Excel 97 (which
I can't trap out).

Thanks - Kirk

Michel Pierron

Modal/Modeless Forms
 
Hi kirkm,
You must use conditional compilation:

#If VBA6 Then
frmLabel.Show
#Else
frmLabel.Show vbModeless
#End If

MP

"kirkm" a écrit dans le message de
news: ...
Is there any way to have a form modeless in Excel 2002
but model in Excel 97.

I was playing with this

If Val(Application.Version) = 8 Then
frmLabel.Show
Else: frmLabel.Show vbModeless
End If

but the Else clause causes an error in Excel 97 (which
I can't trap out).

Thanks - Kirk




Michel Pierron

Modal/Modeless Forms
 
The correct procedure is the reverse:

#If VBA6 Then
frmLabel.Show vbModeless
#Else
frmLabel.Show
#End If

MP

"Michel Pierron" a écrit dans le message de news:
...
Hi kirkm,
You must use conditional compilation:

#If VBA6 Then
frmLabel.Show
#Else
frmLabel.Show vbModeless
#End If

MP

"kirkm" a écrit dans le message
de news: ...
Is there any way to have a form modeless in Excel 2002
but model in Excel 97.

I was playing with this

If Val(Application.Version) = 8 Then
frmLabel.Show
Else: frmLabel.Show vbModeless
End If

but the Else clause causes an error in Excel 97 (which
I can't trap out).

Thanks - Kirk






kirkm[_6_]

Modal/Modeless Forms
 
On Sun, 22 Oct 2006 10:03:55 +0200, "Michel Pierron"
wrote:

The correct procedure is the reverse:

#If VBA6 Then
frmLabel.Show vbModeless
#Else
frmLabel.Show
#End If



Many thanks Michael,
That worked spot-on.

Cheers - Kirk


All times are GMT +1. The time now is 10:41 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com