Listbox Item "top" position

How would i get it?
I am trying to to make it easier for my program users to edit the list items. I want it to work like this:

Code:

---

Private sub list1_dblclick()
text1.visible = true
text1.text = list1.list(list1.listindex)
'here is where i cannot figure out what to do(i know the below code wont work. i've tested it.)
text1.top = list1.listindex.top
end sub

---

how could i get it that every time the user double clicks on a list item, that a textbox apears there all they have to do is edit the text and press enter.
i mostly just need to get the "top" position of a selected list item.

Welcome to the forums! :wave:

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 :

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?
and yes i will try out the link. i will post on how it goes!

Quote:

---

Originally Posted by dageek247

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.

He 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

---

Quote:

---

Originally Posted by dglienna

He 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.

Quote:

---

Originally Posted by dglienna

He 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

---

OK, 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

I 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 :)

Glad I was too busy to see it! :mad:

And he has PM's turned OFF! (or did you protect the guilty?)

Quote:

---

Originally Posted by dglienna

Glad I was too busy to see it! :mad:

And he has PM's turned OFF! (or did you protect the guilty?)

---

I didn't protect anyone! :confused: :confused:

Eesh, it seems as if I shouldn't have woken up today.....

Tell you both what. I thought this thread was under control ( with my previous post ), but I see now that it will turn ugly, and honestly, there is no place for that in this forum.

I'm closing this thread now.

Sorry dageek, but it seems you'll have to make a new thread, although you did nothing wrong, it is unfair that this has happened - just because people can't behave

Hannes