Список.В чём ошибка?

[DimR]

<!--shcode--><pre><code class='vb'>Sub ListBoxes()

Dim str(5) As String, strInfo(5) As String, surn(5) As Boolean
Dim i As Byte, idCount As Byte
str(0) = "1"
str(1) = "2"
str(2) = "3"
str(3) = "4"
str(4) = "5"
str(5) = "6"

idCount = 0
UserForm2.ListBox1.Clear
UserForm1.ListBox1.Clear
UserForm1.ListBox1.Enabled = False
UserForm2.ListBox1.Enabled = True
With UserForm2.ListBox1
For i = 0 To 5
.AddItem str(i)
surn(i) = False
Next i
.ListIndex = 0
.MultiSelect = fmMultiSelectExtanded
End With
' ошибка начинается ниже
If UserForm2.ListBox1.ListCount > 0 Then
For i = 0 To UserForm2.ListBox1.ListCount - 1
surn(i) = UserForm2.ListBox1.Selected(i)
If surn(i) Then
strInfo(idCount) = str(i)
UserForm1.ListBox1.AddItem strInfo(idCount)
idCount = idCount + 1
End If
Next i
UserForm1.ListBox1.Enabled = False
UserForm2.ListBox1.Enabled = True
UserForm1.ListBox1.MultiSelect = fmMultiSelectExtanded
End If
End Sub[/CODE]

Не понимаю в чём ошибка: отображается только первый элемент списка

 

[Vlanib]

Странно! У меня без ошибок работает твой код. Выкладывай файл.

 

[DimR]

Вот)

 

[Vlanib]

И снова, код кривоватый, но ошибок не генерирует. Одно но- у меня офис 2003, а у тебя я так понимаю 2007. Но и здесь не должно быть никаких накладок.

 

[etc]

Саму ошибку не пробовали читать? говорят помогает....

 

[Vlanib]

2 etc:
Если я пишу что ошибок нет значит нет никаких. И читать умею. Листы заполняются полностью.
Если ты ловишь такой же косяк то и помог бы человеку.

 

[etc]

Vlanib 1 - это не вам а автору, 2 - пусть сам автор удосужится пошевелить пальцем и выкинуть сюда текст ошибки, тогдща и разговаривать можно.

 

[hosm]

Не понимаю в чём ошибка: отображается только первый элемент списка

программа не выдает ошибок, но работает некорректно с точки зрения автора.

 

[Vlanib]

2 etc:
Sorry!

 

[etc]

OKEN Действительно.... сбил с толку про ошибки ... а тут надо логику смотреть

Добавлено:

Selected(i)

Думается что если выделить последний то уже его станет постоянно выводить.

 

[hosm]

скорее .ListIndex = 0

 

[etc]

скорее .ListIndex = 0

Это одно и тоже, всмысле это и есть select.

 

[hosm]

etc да, Вы правы) я просто указала, почему именно первый)
DimR в общем, комп же тупой, он всё буквально понимает, что написали, то и делает...
программа работает так, как запрограммировали
подумайте, что Вам надо и потом поправьте программу.

 

[etc]

Vlanib А чего у вас 2 etc синее? вы както по хитрому это делаете?

 

[European]

вы както по хитрому это делаете?

очень просто

 

[vital]

<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">флудеры</div></div><div class="sp-body"><div class="sp-content">гыгы

 

[Serrr]

<!--shcode--><pre><code class='vb'>Sub ListBoxes()

.....

For i = 0 To 5
.AddItem str(i)
surn(i) = False '------------------------------------------------------------здесь для всех элементов задаётся FALSE
Next i
.ListIndex = 0
.MultiSelect = fmMultiSelectExtanded
End With
' ошибка начинается ниже
If UserForm2.ListBox1.ListCount > 0 Then
For i = 0 To UserForm2.ListBox1.ListCount - 1
surn(i) = UserForm2.ListBox1.Selected(i)
If surn(i) Then '----------------------------------------------------------- а здесь условие выполняется если TRUE!
strInfo(idCount) = str(i)
UserForm1.ListBox1.AddItem strInfo(idCount)
idCount = idCount + 1
End If
Next i
UserForm1.ListBox1.Enabled = False
UserForm2.ListBox1.Enabled = True
UserForm1.ListBox1.MultiSelect = fmMultiSelectExtanded
End If
End Sub[/CODE]