Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Ввод следующего элемента массива

Автор: dlumv 20.10.2007, 21:19

Дана форма, на которой находится текстовое поле и кнопка, по нажатию которой должен вводится следующий элемент массива (тип текстовый). Использование InputBox в данном случае неуместно. Как запрограммировать кнопку?

Автор: Pugach 20.10.2007, 23:46

Что имелось ввиду? По нажатию кнопки текст в текстовом поле должен сохраняться как следующий элемент  массива?

Если так то сложность будет только в определении размера массива. Если заранее знать, что она будет нажиматься не очень много, то можно в размер массива поставить число с запасом.

Например до ста раз:

dim sss(100) as string
i=0
Private Sub Command1_Click()
  sss(i)=text1.text
  i=i+1
end sub

Автор: dlumv 21.10.2007, 17:01

Цитата(Pugach @ 20.10.2007, 23:46

)

Спасибо!

все работает

Автор: Akina 21.10.2007, 20:54

Цитата(Pugach @ 21.10.2007, 00:46

)

сложность будет только в определении размера массива

Не вижу сложности:

Код


option base 0

Dim Arr() As String

Private Sub form_load()
ReDim Arr(0)
End Sub

Private Sub Command1_Click()
Arr(Ubound(Arr)) = text1.text
Redim Preserve Arr(Ubound(Arr)+1)
End Sub