View Single Post
  #8   Report Post  
Posted to microsoft.public.excel.programming
Bob Phillips[_5_] Bob Phillips[_5_] is offline
external usenet poster
 
Posts: 620
Default Versioning Question

Thanks, Harald, you confirm what I expected, but that makes an interesting
read anyway.

I see what Dave was getting at, but a very loose phrasing certainly confused
a few folks.

By the way, you are Norwegian are you not? If so, I would have expected you
to spell colourful correctly <vbg.

Regards

Bob

"Harald Staff" wrote in message
...
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.