Dropdown List Example

[ItWorks]

Hi Guys/Gals,

Still new to this but getting on fast.

Here is a little example of how I solved the need for a Dropdown list.

Can anyone explain to me what is happenning with ScrollView.ScrollPosition because I could not get it to work right until I added DoEvents in the right place, looks like a scrolllist needs time to move to the right position.

Anyway, hope you enjoy my little example.

ItWorks

 

[Informatix]

Can anyone explain to me what is happenning with ScrollView.ScrollPosition because I could not get it to work right until I added DoEvents in the right place, looks like a scrolllist needs time to move to the right position.

Every time you change the position, you trigger an animation. That's why you have to wait. Sometimes, one DoEvents is not enough.
Here's a bit of code to wait until the scrolling animation ends (NewPosition is the position to reach):

Dim PreviousPosition As Int: PreviousPosition = -1
Do Until PreviousPosition = sv.ScrollPosition
   PreviousPosition = sv.ScrollPosition
   sv.ScrollPosition = NewPosition
   DoEvents
Loop

 

[ItWorks]

hi Informatix,

Thanks for the code snippet.
I will try that tomorrow.
My eyes have gone now, staring at a screen all day.

Regards
ItWorks