-
July 7th, 2010, 08:22 AM
#1
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.
Last edited by HanneSThEGreaT; July 7th, 2010 at 08:45 AM.
-
July 7th, 2010, 08:55 AM
#2
Re: Listbox Item "top" position
Welcome to the forums!
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
-
July 7th, 2010, 09:31 AM
#3
Re: Listbox Item "top" position
the capability of double clicking to edit the text?
and yes i will try out the link. i will post on how it goes!
-
July 7th, 2010, 09:38 AM
#4
Re: Listbox Item "top" position
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.
-
July 7th, 2010, 02:57 PM
#5
Re: Listbox Item "top" position
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
-
July 8th, 2010, 01:20 AM
#6
Re: Listbox Item "top" position
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.
-
July 8th, 2010, 03:08 AM
#7
Re: Listbox Item "top" position
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
Last edited by HanneSThEGreaT; July 8th, 2010 at 03:18 AM.
-
July 8th, 2010, 03:20 AM
#8
Re: Listbox Item "top" position
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
-
July 8th, 2010, 03:22 AM
#9
Re: Listbox Item "top" position
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
-
July 8th, 2010, 04:11 AM
#10
Re: Listbox Item "top" position
Glad I was too busy to see it!
And he has PM's turned OFF! (or did you protect the guilty?)
-
July 8th, 2010, 04:23 AM
#11
Re: Listbox Item "top" position
Originally Posted by dglienna
Glad I was too busy to see it!
And he has PM's turned OFF! (or did you protect the guilty?)
I didn't protect anyone!
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
Last edited by HanneSThEGreaT; July 8th, 2010 at 04:28 AM.
Tags for this Thread
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|