Listbox Index Problem [Resolved]

[rbrook]

I have a really strange problem with a listbox. This particular listbox is used as follows: you find the info you want to populate another screen, click on it and the info is transferred to the other screen. Works every time, EXCEPT in this case...if you have to move the scrollbar all the way to the bottom and then click on any item you see, the listindex number is one less than it should be. In other words, if you leave the scrollbar at least one 'click' from the bottom, you can click on any item on the page and the info from that line transfers...if you pull the scrollbar all the way to the bottom then click on any item on the page, the one above it is transferred. Really sux lol! Help!?

[MartinLiss]

There is probably something else going on. Can you post a form that shows the problem?

[rbrook]

Hi Martin, I hate to show my ignorance, but do you mean the code when you say 'form'? Here is the code. I can roll my mouse over the listindex and see that it's one number off when the scrollbar is at the bottom of the screen.

Private Sub VPVinListBox_Click()

16150 If XferScreenLoaded = "Y" Then
16160 VPVinListBoxXfer
16170 Exit Sub
16180 End If

16190 VPVinListBox.Col = 1
16200 MainSeq = VPVinListBox.CellText(VPVinListBox.ListIndex)
16210 VPVinListBox.Col = 7
16220 MainBody = VPVinListBox.CellText(VPVinListBox.ListIndex)
16230 VPVinListBox.Col = 2
16240 MainModel = VPVinListBox.CellText(VPVinListBox.ListIndex)
16250 MainMake = txtVLMake.Text
16260 Unload Me
16270 Unload AdditionalScreenForm
16280 SetMainFormText

End Sub

[MartinLiss]

What I meant was for you to create a form with the controls and code needed to recreate the problem and attach it to a post.

BTW, VPVinListBox can't be a Listbox. What type of control is it?

[rbrook]

I'm sorry, Martin. It is an ActiveX control by Vantage Point Software. Maybe I should have contacted them rather than posting here. I'll put 'resolved' on this one....thanks anyway.