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:
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
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.
Last edited by HanneSThEGreaT; July 7th, 2010 at 08:45 AM.
If it can show all 6 rows, it scrolls. Otherwise, it goes to the TOP
Private Sub Command1_Click()
Dim s%, x As Integer
s = List1.TopIndex
If s < List1.ListCount - 6 Then
List1.TopIndex = List1.TopIndex + 5
List1.TopIndex = 0
For x = 0 To List1.ListCount - 1
If List1.Selected(x) = True Then
List1.Selected(x) = False
Private Sub Form_Load()
For x = 0 To 15
List1.AddItem x + 1