dnyamicly check for a value 3

[BenniP]

hello,

i want to drag a form around, but in label in this form i want to inform the user every second, or half second, about the current position.

 

[vb5prgrmr]

Are you talking about its X and Y (Left and Top) properties?

If so then you could use a timer control with the code in it that would be something like...

Label1.Caption = Me.Left & ", " & Me.Top

Good Luck

 

[BenniP]

a big thx for your help!

 

[RonVaught]

Add a Timer named (Timer1) on your form with the code shown below.

Private Sub Timer1_Timer()
Me.Caption = "Left = " & Format$(Me.Left) & ", Top = " & Format$(Me.Top)
End Sub

 

[BenniP]

and to you also RonVaught,

but another question. how can i change the twips from vb, to pixel?

 

[CajunCenturion]

Check out the Screen.TwipsPerPixelX and .TwipsPerPixelY properties. Good Luck
--------------
As a circle of light increases so does the circumference of darkness around it. - Albert Einstein

 

[vb5prgrmr]

or

Label1.Caption = Me.Left / Screen.TwipsPerPixelX & ", " & Me.Top / Screen.TwipsPerPixelY

Good Luck

 

[vb5prgrmr]

Nope, that won't return pixel position you would need to add (* screen.width/height) to get pixel position based on resolution. (oops! if forgot).

Good Luck

 

[BenniP]

sorry but i didn't understood your last post. it work fine for me without *screen.width or *screen.height.

 

[BenniP]

sorry for my last post
it was wrong

 

[vb5prgrmr]

When you set your screen resolution to 1600x1200 my origional code will return 1600x1200 for the bottom right corner of the screen, but 1600x1200 is not the number of pixels horizontally or vertically. When setting your resolution to 1600x1200 you are telling your OS to send to your screen 1600x1200 dots (pixels) per square inch.

So while my second post of code may be what you are looking for the actual answer for pixel position is my second and third post combined.

I hope that helps. Good Luck