Помогите с заполнением массива!

[ugin_95]

Итак у меня на форме имеется окошко для ввода количества элементов массива TextBox1
И кнопка для начала создания массива Button1
При нажатие на кнопку массив необходимо начать заполнять пользовательскими значениями
есть ещё одно поле для ввода (TextBox2) и кнопка (Button2)
как сделать чтобы цикл "приостанавливался" до нажатия кнопки (Button2) и после этого присвоил элементу массива значение из поля (TextBox2)

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

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       If TextBox1.Text <> "" Then 'Проверка не пусто ли поле для ввода количества элементов
            Dim a(TextBox1.Text) As String
            For i = 0 To TextBox1.Text - 1 'Цикл для создания массива
                 'Здесь мне нужен код для приостановки массива до нажатия кнопки (Button2)
                 a(i) = TextBox2.text
            Next
       End If
End Sub

[arvitaly]

Используй таймер

[ugin_95]

Используй таймер

Это просто пример чтобы понять как это сделать... я читал про DoEvents но у меня не работает... встречая в коде DoEvents компелятор пищет что такая переменная не объявлена
таймер это вроде как нагрузка на проц (пусть и очень маленькая)

Я хочу прсто узнать как определить что нажата определённая кнопка не используя для этого циклов и таймеров
и как приостановить выполнение кода до нажатия этой кнопки

[Nord777]

Application.DoEvents

[MIT]

кампелятор

[ugin_95]

кампелятор

бывает

Application.DoEvents

а можно поподробнеи? я только начал ... и желательно показать код..

[Nord777]

я читал про DoEvents но у меня не работает... встречая в коде DoEvents компелятор пищет что такая переменная не объявлена

Какой ещё код? Я же написал уже. DoEvents - это метод класса Application, поэтому писать надо Application.DoEvents

[ugin_95]

ну теперь программа реагирует на любое действие а как сделать чтобы реагировала на нажатие определённой кнопки?

[Nord777]

ну теперь программа реагирует на любое действие а как сделать чтобы реагировала на нажатие определённой кнопки?

В обработчике нужной кнопки устанавливай значение булевой переменной, а в цикле заполнения массива проверяй её. Если переменная = true - массив не заполняешь(ну или что ты хочешь сделать...)

А то, что программа реагирует на любое действие..., так это уже твоя забота, сделать так, чтобы реагировала на нужные только тебе действия.
Что именно тебя беспокоит? То что жмутся ВСЕ кнопки? Так заблокируй их на период выполнения действий. Enable = false

[ugin_95]

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

    Public pr As Boolean = False

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       If TextBox1.Text <> "" Then 'Проверка не пусто ли поле для ввода количества элементов
            Dim a(TextBox1.Text) As String
            For i = 0 To TextBox1.Text - 1 'Цикл для создания массива
                    While pr = False
                        Sleep(100)
                        My.Application.DoEvents()
                    End While
                    pr = True
                    a(i) = TextBox2.Text
            Next
       End If
    End Sub

    Public Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        pr = True
    End Sub


Теперь программа просто виснет.... как сделать чтобы программа не висла?

[Nord777]

Теперь программа просто виснет....

Почему у меня не виснет, а у тебя виснет?

[ugin_95]

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