VPF::ListBox проблема - Форум программистов

ndec

Дата 13.2.2007, 22:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 3.2.2007

Репутация: нет
Всего: нет

Код


Option Explicit
Dim bytI As Byte, bytJ As Integer, bytK As Byte, strA(1 To 33), strB(1 To 10), strC(1 To 10) As String

Private Sub cmdAlph_Click()
Open "C:\1.txt" For Input As #1
For bytI = 1 To 33
Do Until EOF(1)
Input #1, strA(bytI)
txtAlph.Text = txtAlph.Text + strA(bytI)
Loop
Next bytI
Close #1
End Sub

Private Sub cmdSort_Click()
bytJ = 1
For bytK = 1 To 33
For bytI = 1 To 10
If strA(bytK) = Left$(strB(bytI), 1) Then
    strC(bytJ) = strB(bytI): bytJ = bytJ + 1
End If
Next bytI
Next bytK
End Sub

Private Sub cmdTerm_Click()
Open "C:\1.txt" For Input As #2
bytI = 1
Do Until EOF(2)
Input #2, strB(bytI)
lstTerm.AddItem strB(bytI)
bytI = bytI + 1
Loop
Close #2
End Sub

Private Sub cmdRez_Click()
For bytJ = 1 To 10
lstSort.AddItem strC(bytJ)
Next bytJ
End Sub

Ребят, есть код, в нем вроде все нормально работает, но в процедуре cmdRez_Click() Ни вкакую нехотят заноситься данные из lstTerm. Я их выделить могу, но они не отображаются, помогите пожалуйста!

Kirill89

Дата 14.2.2007, 03:55 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 501
Регистрация: 17.10.2006
Где: Питер

Репутация: 3
Всего: 4

У меня он ругается на Private Sub cmdSort_Click().

Код


For bytK = 1 To 33
For bytI = 1 To 10
If strA(bytK) = Left$(strB(bytI), 1) Then
    strC(bytJ) = strB(bytI): bytJ = bytJ + 1 'bytJ - это тут откуда? так и надо?
End If
Next bytI
Next bytK

А чего ты пытаешься добиться? Я скопировал твой код, откомпилировал его, но смысла так и не понял.
Конечно список пустой, strC у тебя заполняется в нерабочей процедуре, и, при отладке, значение каждого его эллемента = "" (пустоте).
Что должно находиться в файле 1.txt?

PS: Попробуй, например в ручную заполнить массив strC, увидишь, что список не пустой smile

Это сообщение отредактировал(а) Kirill89 - 14.2.2007, 03:57

--------------------

GSteam[dot]info

ndec

Дата 14.2.2007, 08:55 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 3.2.2007

Репутация: нет
Всего: нет

Мне просто нужно скопировать содержимое lstTerm (Термины, там файл с терминами) в lstSort. А как заполниьть процедуру тогда?

Спасибо тебе за отзывы!

Naghual

Дата 14.2.2007, 12:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49

Код


For bytJ = 1 To 10
    lstSort.AddItem lstTerm(bytJ)
Next bytJ

--------------------

Я желаю всем Счастья!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »