| Вопрос: ListBox.MultiSelect | Добавлено: 07.02.06 17:32 |
Автор вопроса:  Igor
|
|
На форме есть ListBox и CheckBox.
При изменении CheckBox должно менятся свойство ListBox.MultiSelect с ListBox.MultiSelect = fmMultiSelectSingle на ListBox.MultiSelect = fmMultiSelectMulti Но этого не происходит. Как можно решить эту проблему короче (проще)??? Из положения выкрутился следующим образом: Private Sub flgMultiPrint_Click() If flgMultiPrint Then Call lstBoxMulti Else Call lstBoxSingle End If Call Build_ListStudent End Sub 'lstStudentM - ListBox с нужным мне свойством fmMultiSelectMulti 'lstStudentS - ListBox с нужным мне свойством fmMultiSelectSingle Private Sub lstBoxMulti() lstStudentM.ZOrder (0) lstStudentM.Enabled = True lstStudentS.Enabled = False lstStudentS.ZOrder (1) End Sub Private Sub lstBoxSingle() lstStudentS.ZOrder (0) lstStudentS.Enabled = True lstStudentM.Enabled = False lstStudentM.ZOrder (1) End Sub |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  GSerg Вопросов: 0 Ответов: 1876 
|
Профиль | | #1 | Добавлено: 07.02.06 18:49 |
| Да, именно так короче и проще... | ||
Страница: 1 |