Кнопки.

[GrihoSs]

Есть листбокс. Есть две кнопки :
-добавить
-удалить

Как сделать , что бы кнопка "Удалить" была отключена до тех пор , пока
в листбокс не будет введена информация??

для "добавить" использую код:

Код: Выделить всё

Private Sub Cmd1_Click()
lst1.AddItem InputBox("Ввод числа")
End Sub '.....кстати , как сделать ,что бы можно было вводить только численные значения ?

для удалить :

Код: Выделить всё

Private Sub del1_Click()
lst1.RemoveItem (lst1.ListIndex)
End Sub

[tyomitch]

в обе процедуры добавь строчку "del1.Enabled = lst1.ListCount"

[vvs_adm]

в обе процедуры добавь строчку "del1.Enabled = lst1.ListCount"

И как же тогда он добавит первую запись?

[Oxygen]

Такую же строчку следует добавить при загрузке формы.
И по второму вопросу - если используешь InputBox, то никак, только ручками проверять, уже после введения. Как вариант, использовать TextBox.

[GrihoSs]

vvs_adm
Первая запись добавляется.


Можно ли использовать одну кнопку(добавить или удалить) для 3х листбоксов ?

[Oxygen]

И как ты себе это представляешь? Если по тому, элемент которого выбран, то первый элемент ты не сможешь ни в один из них добавить. Если только переключатели поставить. В принципе, можно все, была бы резонность этого, и желание.

[GrihoSs]

Так и знал ((

+ ко всему , а скорее минус , то что после ввода значения , кнопка будет работать , но если не выделить элемент массива (тот который удаляем) , программа выдаст ошибку в стиле Runtime error при нажатии кнопки "удалить".

Исправить можно ??Или искать альтернативу ??

[Oxygen]

Код: Выделить всё


Private Sub Command1_Click()
List1.AddItem InputBox("Введите элемент")
End Sub

Private Sub Command2_Click()
List1.RemoveItem (List1.ListIndex)
if List1.SelCount=0 then Command2.Enabled=false
End Sub

Private Sub Form_Load()
Command2.Enabled = False
End Sub

Private Sub List1_Click()
If List1.SelCount > 0 Then Command2.Enabled = True Else Command2.Enabled = False
End Sub


Какую альтернативу? Нужно просто почитать справку про объект ListBox, и применить нужные свойства. Все элементарно просто.

[GrihoSs]

Справки нету...даже самоучителя нет .
За помощь спасибо (хотя на хлеб не намажешь ).

[Oxygen]

Я немного подправила код. Была ошибочка.