Конференция VBStreets

**neic** » 31.05.2005 (Вт) 14:58

Вот пишу я так

Код: Выделить всё: asdasdsda = asdasdsda + 1 ' переменная asdasdsda начинает считать с нуля ReDim nm(asdasdsda) nm(asdasdsda) = Label1.Caption kl = nm(1)

При втором нажати на кнопку asdasdsda будет равно 2, а kl будет равняться ""(тобишь пустоте), при том что kl просто не может быть равным пустоте!

Чё за бойда?

**Павлуша** » 31.05.2005 (Вт) 15:04

Попробуй в саммом начале кода поставить asdasdsda<> 0
думаю помочь должно.

**Andrey Fedorov** » 31.05.2005 (Вт) 15:10

neic писал(а):Чё за бойда?

Почитай получше про Redim, и обрати внимание на Preserve, тогда и найдешь свою ошибку.

**Ennor** » 31.05.2005 (Вт) 16:04

А также не помешает прочтение хелпа по Option Base.

**Konst_One** » 31.05.2005 (Вт) 16:07

Ennor
особенно: :lol:

Option Base 1

**neic** » 31.05.2005 (Вт) 18:18

Andrey Fedorov, Ennor, Konst_One
Все ваши ответы просто не помогают, и не ужели вы думаете что я дурак? Я уже использова и так и сяк, и в модуле оъявлял и .т.д. и всё равно не работает!

**ALX_2002** » 31.05.2005 (Вт) 20:30

Вроде пашет всё. Ничё не понял в чём трабл. :?:

Код: Выделить всё: Dim asdasdsda As Long Private Sub Form_Load() asdasdsda = asdasdsda + 1 ReDim nm(asdasdsda) nm(asdasdsda) = Label1.Caption kl = nm(1) MsgBox kl End Sub

**iolaus** » 31.05.2005 (Вт) 21:29

да тебе же уже сказали redim обнуляет масив, а что бы этого не произошло вместо своего redim напиши

ReDim Preserve nm(asdasdsda)

**neic** » 31.05.2005 (Вт) 21:47

iolaus писал(а):да тебе же уже сказали redim обнуляет масив, а что бы этого не произошло вместо своего redim напиши

ReDim Preserve nm(asdasdsda)

Да не работает эта бойда проверял уже!

**iolaus** » 31.05.2005 (Вт) 22:27

быть такого не может!!!
напиши где и как обьявляешь массив и точно что делаешь...

**Алексей К.** » 01.06.2005 (Ср) 6:30

Время жизни переменных - обьяви нужные переменные на уровне программного модуля через Public ...

**alibek** » 01.06.2005 (Ср) 8:08

neic писал(а):Andrey Fedorov, Ennor, Konst_One
Все ваши ответы просто не помогают, и не ужели вы думаете что я дурак?

**iolaus** » 01.06.2005 (Ср) 10:09

**Alexander N. Samarin** » 01.06.2005 (Ср) 12:13

Кидай проект сюда!

**neic** » 01.06.2005 (Ср) 18:17

Да я сделал уже так чтобы этот массив не нужен был! Но всё же хочкться разобраться!

**kirrun** » 01.06.2005 (Ср) 19:42

neic писал(а):Andrey Fedorov, Ennor, Konst_One
Все ваши ответы просто не помогают, и не ужели вы думаете что я дурак?

**Ennor** » 01.06.2005 (Ср) 21:15

Окей, приступим. Показывай, как ты объявляешь переменные:
1. nm
2. kl
Далее, не вижу смысла в применении инкремента к неинициализированной переменной за пределами цикла. Я про вот это:

Код: Выделить всё: asdasdsda = asdasdsda + 1

Гораздо более правильным во всех смыслах будет написать так:

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

<Это просто пипец какой-то, кто же так переменные называет, если не хочет потом в ним сам же и запутаться? А заодно и других запутать.>

Ну и напоследок, покажи, как у тебя установлены Option Base, Option Explicit и Option Compare.

**iolaus** » 01.06.2005 (Ср) 22:37

Ennor
<Это просто пипец какой-то, кто же так переменные называет, если не хочет потом в ним сам же и запутаться? А заодно и других запутать.>

:):):)

Да ладно вам так загоняться все эти Option ставить все работает даже если только массив обьявить и все!!!! только ща попробовал....[/b]

**Alexander N. Samarin** » 02.06.2005 (Чт) 15:08

А че такое Option Compare?

**kirrun** » 02.06.2005 (Чт) 15:20

Ennor писал(а):<Это просто пипец какой-то, кто же так переменные называет, если не хочет потом в ним сам же и запутаться? А заодно и других запутать.>

Ага. Это точно. Если я программку пишу тока чтобы че-то проверить, я переменные называю a, b, c, d...

**tyomitch** » 02.06.2005 (Чт) 15:25

Alexander N. Samarin писал(а):А че такое Option Compare?

MSDN писал(а):Option Compare Statement

Used at module level to declare the default comparison method to use when string data is compared.

Остаток этой статьи найди в MSDN сам.

**Alexander N. Samarin** » 02.06.2005 (Чт) 15:58

Найти-то ее я нашел, но еичего не понял :oops:

**Ennor** » 03.06.2005 (Пт) 0:53

2 Alexander N. Samarin:
Option Compare Binary - сравнение строк с учетом регистра символов. В этом случае "йцукен" <> "ЙцукЕн". Самый жесткий случай, используется редко, но полезен при обработке XML-данных, т.к. язык XML весь, от начала и до конца, чувствителен к регистру.
Option Compare Text - сравнение строк без учета регистра. Соответственно, "йцукен" = "ЙЦУКЕН". Дефолтная установка в VB6, в принципе, можно не указывать.

В обычном VB варианты на этом исчерпываются. Но, если ты используешь Access VBA, то появляется еще один вариант - Option Compare Database. В этом случае результат сравнения зависит от соответствующей настройке в БД Access, которую ты используешь. Сам я с аксессом никогда не работал, поэтому точнее не опишу, спрашивай у зубров

.

BV » 03.06.2005 (Пт) 1:38

Ennor писал(а):...сравнение строк без учета регистра. Соответственно, "йцукен" = "ЙЦУКЕН". Дефолтная установка в VB6, в принципе, можно...

Неа! Как раз наоборот - по дефолту в VB6 Binary сравнение.

**Alexander N. Samarin** » 03.06.2005 (Пт) 11:16

Thanks!!

**Ennor** » 03.06.2005 (Пт) 17:43

BV писал(а):Неа! Как раз наоборот - по дефолту в VB6 Binary сравнение.

Офигеть... действительно, по дефолту идет CS. Значит, я уже начинаю все забывать

.

Конференция VBStreets

Дурацкий масив

Дурацкий масив

Re: Дурацкий масив

Кто сейчас на конференции