|
Изменения положения строки в listbox
|
|||
---|---|---|---|
#18+
Господа, подскажите pls, как по нажатию кнопки можно изменять положение выделенной строки в listbox(поднимать/опускать)? ... |
|||
:
Нравится:
Не нравится:
|
|||
27.08.2003, 17:46 |
|
Изменения положения строки в listbox
|
|||
---|---|---|---|
#18+
Спасибо, разобрался Dim SelItem As Object Dim UpItem As Object Dim SelIndex As Integer Dim UpIndex As Integer SelIndex = Me.ListBox1.SelectedIndex If SelIndex > 0 Then UpIndex = SelIndex - 1 SelItem = Me.ListBox1.Items(SelIndex) UpItem = Me.ListBox1.Items(UpIndex) Else Exit Sub End If Me.ListBox1.Items.RemoveAt(SelIndex) Me.ListBox1.Items.RemoveAt(UpIndex) Me.ListBox1.Items.Insert(UpIndex, SelItem) Me.ListBox1.Items.Insert(SelIndex, UpItem) Me.ListBox1.SelectedIndex = UpIndex ... |
|||
:
Нравится:
Не нравится:
|
|||
27.08.2003, 18:11 |
|
|
start [/forum/topic.php?fid=20&msg=32249258&tid=1440024]: |
0ms |
get settings: |
9ms |
get forum list: |
13ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
37ms |
get topic data: |
11ms |
get forum data: |
2ms |
get page messages: |
37ms |
get tp. blocked users: |
1ms |
others: | 269ms |
total: | 387ms |
0 / 0 |