Добавление содержимого TextBox в ListBox в WinWrap Basic - PullRequest
0 голосов
/ 12 февраля 2019

У меня есть список и текстовое поле в диалоговом окне, а также 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

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...