VPF::массив controls - Форум программистов

IrinaProkopcova

Дата 9.6.2006, 10:58 (ссылка)

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

Загрузка ...

Новичок

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

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

Помогите, пожалуйста, не понимаю в чем ошибка.

Код


Public LText() As System.Windows.Forms.TextBox
Sub newFrm()
            Dim DLeika As New obchiy 'форма
            Dim count As Integer = 1
            For r As Int16 = 1 To 24   ' 24 ряда
                For k As Int16 = 1 To 9 ' девять колонок в ряд 
                    ReDim Preserve stext(count)
                   LText(count) = New System.Windows.Forms.TextBox' здесь ошибку выдает
                    LText(count).Name = "Ltext" & count
                    LText(count).BorderStyle = BorderStyle.Fixed3D
                    Select Case k
                        Case 2, 3, 5, 6, 8, 9
                            LText(count).Width = x
                        Case Else
                            LText(count).Width = xB
                    End Select
                    LText(count).Height = 20
                    Select Case k
                        Case 1
                            lokY = 80
                        Case 2
                            lokY = 180
                        Case 3
                            lokY = 236
                        Case 4
                            lokY = 292
                        Case 5
                            lokY = 392
                        Case 6
                            lokY = 448
                        Case 7
                            lokY = 504
                        Case 8
                            lokY = 604
                        Case 9
                            lokY = 660
                    End Select
                    LText(count).Location = New Point(lokY, 40 + k * 20)
                    LText(count).Visible = True
                    DLeika.tpVertUgol.Controls.Add(LText(count))
                Next
            Next

            LeikaData(strAllFile)
            DLeika.MdiParent = Me
            DLeika.Show()
            DLeika.Text = DLeika.Text & strNProt
End Sub

ivashkanet

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

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

Загрузка ...

Кодю потиху

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

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

IrinaProkopcova, какая ошибка?
Index out of range?
Все дело в том, что нумерация элементов идет с нуля smile

И поэтому последний элемент count-1
Ты хочешь добавить эелемент в массив. За пределами его верхней границы.
Тебе нужно либо redim ему сделать, типа как тут

Цитата(IrinaProkopcova @ 9.6.2006, 10:58

)

ReDim Preserve stext(count)

Либо использовать массив с запасом элементов.
P.S. Мы не телепаты, давай полностью описание ошибки. Если приводишь код, то убери, пожалуйста, все лишнее, не относящееся к вопросу. Твой код должен быть полностью автономен (если, конечно, хочешь чтобы мы его могли откомпилить и проверить), а не содержать неизвестно где объявленных переменных.
P.P.S. Это все для твоего же блага, просто так тебе быстрее ответят smile

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

design, simplicity, and experience with a technology focus

IrinaProkopcova

Дата 9.6.2006, 11:56 (ссылка)

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

Загрузка ...

Извиняюсь, просто думала ошибка, м.б., где-то раньше.
А вылетает здесь:

Код


        LText(count) = New System.Windows.Forms.TextBox

Текст Ошибки такой:
.

Цитата

An unhandled exeption has occurred in your application. If you click con......

Object reference not set to an instance of object.

А массив мне и нужен с единицы, потом из структуры давать значение удобней. "Нулевой" пусть себе болтается.

Извиняюсь, еще раз, нашла ошибку. Действаительно Redimила не тот массив.
Спасибо!

Это сообщение отредактировал(а) IrinaProkopcova - 9.6.2006, 12:12

ivashkanet

Дата 9.6.2006, 13:03 (ссылка)

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

Загрузка ...

Кодю потиху

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

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

Цитата(IrinaProkopcova @ 9.6.2006, 11:56

)

Object reference not set to an instance of object.

Понятно. Сылка на объект не установлена. Т.е. LText "содержит" Nothing (в смысле ничего не содержит). Чтобы это исправить нужно его проинициализировать.
Либо так:

Код


LText = New System.Windows.Forms.TextBox

Либо в процессе описания:

Код


Public LText() As New System.Windows.Forms.TextBox

И будет тебе счастье smile

Добавлено @ 13:06
Как я посмотрю, ты сама нашла ответ. Вот что значит прочитал только нужную мне часть (наименование ошибки)

Это сообщение отредактировал(а) ivashkanet - 9.6.2006, 13:04

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

design, simplicity, and experience with a technology focus

Exception

Дата 10.6.2006, 11:29 (ссылка)

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

Загрузка ...

Эксперт

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

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

Вставлю свои пять копеек. Код жуткий.