VPF::Есть слайдер - ползунок. В нем даны значения от 0

xaoc25

Дата 22.7.2010, 11:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 22.7.2010

Репутация: нет
Всего: нет

Есть слайдер - ползунок. В нем даны значения от 0 до 10. Эти значения передаются в функцию, которая каждому значению слайдера дает одно число.
Вопрос, как сделать что бы каждое значение функции сохранилось в список?
Событие(слайдер)(y1....yn) - > Число(x1....xm) - > Запись x1
                                                   ........
                                                   Запись xm


Задачу можно представить так, когда пишем x(i) = n слева в теле процедуры, я не хочу каждый раз присваивать (вводить число n) "вручную"
Мне нужно  что бы эта переменная менялась когда я двигаю слайдер. Но, когда значение n меняется на m, значение n затирается в ячейке памяти, так? Мне надо что бы
x меняется, но предыдущие его значения остаются. Наверное нужно какая то доп процедура, или реакция на событие..
Нашел вот такой кусочек кода, нельзя ли его использовать?

Код


Dim i As Integer
Dim Wrap As String
Wrap = Chr(13) & Chr(10)
For i = 1 To 10
    TextBox1.Text = TextBox1.Text & "Строка " & i & Wrap
Next i

Вот код для которого нужно получить множество значений

Код


Private Sub RunScript(ByVal x As Integer, ByVal y As Integer, ByRef A As Object) 
    Dim dictionary As New Dictionary(Of String, Integer)
    ' y - текущее значение слайдера, x - соотвествующи значению слайдера номер
    dictionary.Add(y, x)
    Dim pair As KeyValuePair(Of String, Integer)
    For Each pair In dictionary
      ' получаем пару чисел, задача получить список пар для всех значений слайдера
      Print("{0}, {1}", pair.Key, pair.Value)
      A = dictionary
    Next pair
End Sub

Это сообщение отредактировал(а) diadiavova - 22.7.2010, 16:08

Pilger

Дата 22.7.2010, 13:43 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 257
Регистрация: 10.5.2008
Где: Германия

Репутация: нет
Всего: нет

Тебе надо сохранять числа в список по порядку? То есть добавлять в список?

Код


Dim List As New List(Of Integer)
List.add(x(i))

Может я не понял...

Это сообщение отредактировал(а) Pilger - 22.7.2010, 13:45

--------------------

Ein Leben nach der Schleife existiert, nur wenn die Schleife terminiert.

diadiavova

Дата 22.7.2010, 16:10 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142

xaoc25, будь добр, используй разметку для выделения кода

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB .NET \| Следующая тема »