Between Keyword

Haider Shah · Joined: 04 Oct 2007 Posts: 3

Hi i am using vb6, so any body inform me the following statment.
If (x >= Shape1.Left And _
x <= Shape1.Left + Shape1.Width And _
Between(y, Shape1.Top - 50, Shape1.Top + 50)) Or _
(y >= Shape1.Top And _
y <= Shape1.Top + Shape1.Height And _
Between(x, Shape1.Left - 50, Shape1.Left + 50)) Then
But the error that the "Between" keyword sub or function not defined.
is there "Between" keyword doesnt exist.
waiting for your soon reply,
Thanks.
Best Regards.
Haider

Archived from group: microsoft>public>vb>syntax

Bob Butler · Joined: 04 Oct 2007 Posts: 1325

"Haider Shah" wrote in message@TK2MSFTNGP04.phx.gbl
> Hi i am using vb6, so any body inform me the following statment.
> If (x >= Shape1.Left And _
> x <= Shape1.Left + Shape1.Width And _
> Between(y, Shape1.Top - 50, Shape1.Top + 50)) Or _
> (y >= Shape1.Top And _
> y <= Shape1.Top + Shape1.Height And _
> Between(x, Shape1.Left - 50, Shape1.Left + 50)) Then
> But the error that the "Between" keyword sub or function not defined.
> is there "Between" keyword doesnt exist.

That's correct. VB has no 'Between' keyword. You can create your own
function if you want...

Public Function Between(ByVal TheVal As Single,ByVal LowVal As Single, _
ByVal HiVal As Single) As Boolean
Between=(TheVal>=LowVal And TheVal<=HiVal)
End Function

If (Between(x,Shape1.Left,Shape1.Left + Shape1.Width) _
And Between(y, Shape1.Top - 50, Shape1.Top + 50)) _
Or (Between(y,Shape1.Top,Shape1.Top + Shape1.Height) _
And Between(x, Shape1.Left - 50, Shape1.Left + 50)) Then

Or you can rewrite the original to test all the ranges directly

If (x >= Shape1.Left And x <= Shape1.Left + Shape1.Width _
And y>=Shape1.Top - 50 and y<=Shape1.Top + 50) _
Or (y >= Shape1.Top And y <= Shape1.Top + Shape1.Height _
And x>=Shape1.Left - 50 and x<=Shape1.Left + 50) Then

I'm not sure why you had one part of each test spelled out and the other
relying on there being a 'between' function.

--
Reply to the group so all can participate
VB.Net: "Fool me once..."

Bob Butler · Joined: 04 Oct 2007 Posts: 1325

"Haider Shah" wrote in message@TK2MSFTNGP04.phx.gbl
> Hi i am using vb6, so any body inform me the following statment.

Just saw that this has been multiposted and answered in multiple places.

who could give me a "vb keyword list"? Such as "if... then" or other VB keyword and each keyword's description, I think this is a way to learn VB's syntax, anybody could give me such a list file? thanks:)

Between keyword Hi i am using vb6, so any body inform me the following statment. If (x >= Shape1.Left And _ x <= Shape1.Left + Shape1.Width And _ Between(y, Shape1.Top - 50, Shape1.Top + 50)) Or _ (y >= Shape1.Top And _ y <= Shape1.Top + Shape1.Height And _ Between(x, Sh

Using the keyword Call or not ?? Hi, Can anyone give me a good reason why you should use thekeyword "Call" in front of a function call?? Thanks Soren

Reason for 'Set' keyword Hi. Could someone please explain to me the reason for the 'Set' keyword in VB. Am I correct in thinking that Set is used for assigning to a reference whereas assignment to primitives is done without 'Set'? Why is that? Most other languages just use '='

Split a 100 page doc and taking a keyword off each document I have a 100 page word document that is a mail merge. Each document we will say is a new document and a SSN is located on each doc in the same location. Is there a way to split the documnet in to single pages and create a comma delimented text file like