У меня есть список и текстовое поле в диалоговом окне, а также 2 кнопки (Добавить и Удалить).Я хотел бы добавить значение TextBox в массив Listbox при нажатии кнопки Добавить.Я также хочу удалить выделенный элемент списка при нажатии кнопки Удалить.У меня это пока что, но внутри функции диалога он не распознает объект Textbox:
'#Language "WWB-COM"
Option Explicit
Dim ListArray()
Private Function dlgHandler(DlgItem$, Action%, SuppValue&) As Boolean
Select Case Action%
Case 1 ' Dialog box initialization
Case 2 ' Value changing or button pressed
If DlgItem = "btnAdd" Then
Dim N As Integer
N = UBound(ListArray)+1
ReDim Preserve ListArray(N)
ListArray(N) = dlg.txtNewValue
DlgListBoxArray "lbxValues",ListArray()
dlgHandler = True 'do not exit the dialog
End If
Case 3 ' TextBox or ComboBox text changed
Case 4 ' Focus changed
Case 5 ' Idle
Case 6 ' Function key
End Select
End Function
Sub Main
Begin Dialog UserDialog 430,287 ' %GRID:10,7,1,1
TextBox 30,182,370,21,.txtNewValue
ListBox 30,21,370,154,ListArray(),.lbxValues
PushButton 30,210,70,21,"Add",.btnAdd
PushButton 110,210,70,21,"Delete",.btnDelete
OKButton 170,245,90,21
End Dialog
Dim dlg As UserDialog
' Init
ReDim ListArray(3)
ListArray(0) = "PreVal01"
ListArray(1) = "PreVal02"
ListArray(2) = "PreVal03"
If Dialog(dlg) = -1 Then
MsgBox ("Done")
End If
End Sub
Вся помощь будет оценена!JS