View Single Post
  #7   Report Post  
Posted to microsoft.public.excel.programming
Harald Staff[_4_] Harald Staff[_4_] is offline
external usenet poster
 
Posts: 70
Default Versioning Question

Hi Bob

Except for the brilliant conditional compilation, I think isolating it is the only way
around it. This was one of the colorful debates back in the Hawley days, that's why I
remember it so well:
http://makeashorterlink.com/?M2C4167F5

quote: "I have not tested this but if the UserForm ShowModal Property is set to False, it
will simply show as Modal in pre 2000 versions and show as not Modal in 97 versions. So
is there any need to test?"

:-)

HTH. Best wishes Harald
Excel MVP

Followup to newsgroup only please.

"Bob Phillips" wrote in message
...
Harald,

Had a wonderful bright idea after my last response, don't use the vbModeless
constant but it's value instead.

Great idea, yes? But thinking some more I guess it's not such a good idea.
Presumably, as modeless forms were only introduced in 2000, the 97 version
would not even support the arguments to the Show method, so it would still
err on that line if not isolated as you suggest. I don't have 97 to hand, so
can you confirm that?

Regards

Bob

"Harald Staff" wrote in message
...
Hi Bob

It errs on 97 because vbModeless is unknown. The trick is to place that

into an isolated
sub that won't be called in 97:

Sub Main()
Select Case Val(Application.Version)
Case 8
UserForm1.Show
Case 9 To 99
Call Modeles
Case Else
End Select
End Sub

Private Sub Modeles()
UserForm1.Show vbModeless
End Sub

--
HTH. Best wishes Harald
Excel MVP

Followup to newsgroup only please.

"Bob Phillips" wrote in message
...
ExcelMan,

Have you tried

If Application.Version 8 Then
UserForm1.Show vbModeless
Else
UserForm1.Show
End If


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"ExcelMan" wrote in message
...
Is there a way to use a VBA feature in Excel 2000 when running in

Excel
2000, but have the system not us it when running in Excel 97?

I've created a modeless dialog box for my application. I want it to

run
in
Excel 2000 (and it does) but when I try to run the app in Excel 97 I

get a
compile error because Excel 97 does not accept the vbModeless

parameter
after the Form.Show command.

I've tried containing it in a If statment, but that doesn't solve the
problem.

Is there anything equivalent to the precompiler statements in C that I

can
use here?

Thanks.