I'm afraid your'e on the wrong track. You have a great idea, but believe it or not, it may be very difficult to implement. Here is an example of how to go about with it : Show
http://www.bigresource.com/Tracker/Track-vb-8cAR3xkIJJ/ I personally would have used a ListView, as it already contains that capability
the capability of double clicking to edit the text? No. The concept of putting a textbox over an item, hence trying to make it editable. - July 7th, 2010, 02:57 PMRe: Listbox Item "top" positionHe wants the TOP index? If it can show all 6 rows, it scrolls. Otherwise, it goes to the TOP Code: Option Explicit Private Sub Command1_Click() > Dim s%, x As Integer > s = List1.TopIndex > If s < List1.ListCount - 6 Then > List1.TopIndex = List1.TopIndex + 5 > Else > List1.TopIndex = 0 > End If > For x = 0 To List1.ListCount - 1 > If List1.Selected(x) = True Then > List1.Selected(x) = False > End If > Next x > End Sub Private Sub Form_Load() > Dim x% > For x = 0 To 15 > List1.AddItem x + 1 > Next x > End Sub David CodeGuru Article: Bound Controls are Evil-VB6 2013 Samples: MS CODE Samples CodeGuru Reviewer 2006 Dell CSP2006, 2007 & 2008 MVP Visual Basic If your question has been answered satisfactorily, and it has been helpful, then, please, Rate this Post!July 8th, 2010, 01:20 AM Re: Listbox Item "top" positionOriginally Posted by dgliennaHe wants the TOP index? I doubt, David. It seems as if the OP wants an editable listbox - therefore he / she needs to know each item's top position so that he / she can place a TextBox there. - July 8th, 2010, 03:08 AMRe: Listbox Item "top" positionOriginally Posted by dgliennaHe wants the TOP index? If it can show all 6 rows, it scrolls. Otherwise, it goes to the TOP ... [/CODE] (First READ the Thread, then answer. \********.)BTT: You could compute the Position where to put the Textbox using TextHeight like this : Code: Private Sub List1_DblClick() > Dim nPos As Long > Dim nIndex As Long > nPos = List1.TopIndex > nIndex = List1.ListIndex > Text1.Top = List1.Top + ((nIndex - nPos) * TextHeight("Ag")) > End Sub Last edited by HanneSThEGreaT; July 8th, 2010 at 03:18 AM. - July 8th, 2010, 03:20 AMRe: Listbox Item "top" positionOK, your comment about the Americans were really not necessary. This is a public forum, and one thing about public forums is that you have to behave yourself. Next time try to be more tactful before dishing someone's response. You won't like it if you were insulted like that. Consider this a friendly warning. Hannes July 8th, 2010, 03:22 AM Re: Listbox Item "top" positionI still think that trying to add a textbox onto the listbox ( although a nice idea ) is not really the correct way to go - it adds more overhead, more complications with the design, and is more error prone. It is just my opinion - so I may be wrong -
And he has PM's turned OFF! (or did you protect the guilty?) David CodeGuru Article: Bound Controls are Evil-VB6 2013 Samples: MS CODE Samples CodeGuru Reviewer 2006 Dell CSP2006, 2007 & 2008 MVP Visual Basic If your question has been answered satisfactorily, and it has been helpful, then, please, Rate this Post! -
|