Вопрос по массивам

[AnarCky]

Будьте добры, объясните новичку плззз.

Можно ли создать одномерный массив из объектов типа Label?
И если да, то как махом изменить свойство Background Colour?

Заранее ба-альшое спасибо!

[GSerg]

Махом...

Перебором.

[AnarCky]

Это юмор, да?
Я сам люблю пошутить, но сейчас вопрос серьезный.

[GSerg]

Перебором.

[AnarCky]

Слушай, я не понимаю.
Ты серьезно что-то под этим подразумеваешь?

Если да, то будь добр - разъясни. Я же сказал, я почти чайник.

Если нет, то извиняйте...

[Nord777]

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

    Dim LBArray(9) As Label

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim L As Label
        For i As Integer = 0 To LBArray.Length - 1
            L = New Label
            L.Name = "MyLabel" & i + 1
            L.Text = L.Name
            L.BackColor = Drawing.Color.Azure
            L.Location = New Drawing.Point(10, 10 + i * (L.Size.Height + 2))
            LBArray(i) = L
        Next
        Me.Controls.AddRange(LBArray)
    End Sub

[Ramzes]

ступил, сори

[AnarCky]

Понял.
Большое спасибо!

[AnarCky]

Еще...

Что значат эти строки?

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

       
LBArray(i) = L

Me.Controls.AddRange(LBArray)


[Ramzes]

LBArray(i) = L присвоение элементу масива с индексом i объекта L
Me.Controls.AddRange(LBArray) - в объект (судя по всему container или производный класс) добваляеться масив объектов неизвестного типа

Книги - морська глибина,
хто в них пірне аж до дна,
той хоч и труду мав досить,
дивнії перли виносить

[Nord777]

известного

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

Dim LBArray(9) As Label

[AnarCky]

Спасибо.

[Ramzes]

Nord777, внимательно читай

Еще...

Что значат эти строки?

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

       
[b]LBArray(i) = L[/b]

Me.Controls.AddRange(LBArray)


[Nord777]

я тебя понял
Точное обьяснение не вдаваясь в контекст темы

[1Steps]

Всем Здравствуйте.
А как можно взять в массив уже существующие на форме Label или Textbox, тем более, что все стоят в разных Location?

[Viper]

Гм... Объявить массив и через For Each перебрать все контролы, проверять тип контрола и помещать в массив

[1Steps]

Спасибо.

[AnarCky]

А как пишется правильно цикл For Each?
Скажите срочно плззз. Книжки под рукой нет, а надо узнать в течении получаса. HELP PLEASE!!!
Спасибо

[Viper]

типа так

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

For Each obj In col
' что-то делаем с obj
Next

где obj - объект нужного тебе типа, а col - Коллекция, массив или что-то другое, реализующее интерфейс IEnumerable.

[AnarCky]

Все вспомнил! проверьте

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

Dim i AS Control
Dim ARR() AS Control

For each i In ARR()*

If ARR(i) Is ChemElemCell.ChemElemCell

Ed If

Next


в месте помеченым * он подчеркивает скобочки и вопит "Number of indices is less than the number of dimensions of the indexed array"
Что это значит и как лечиться?

[AnarCky]

!Viper!
Спаисбо!

[Viper]

скобки убери

З.Ы. дал же тебе пример кода, прочитать не сумел?

[AnarCky]

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

        For i1 = 1 To 10000
            For Each i In Controls
                If i Is ChemElemCell.ChemElemCell* Then
                    CRTBarray(i1) = i
                End If
            Next
        Next


Подчеркивает строчку ChemElemCell.ChemElemCell в этом коде. Пишет ChemElemCell это объект в пространстве имен ChemElemCell и не может быть использован как выражение

[Viper]

Должно быть так:

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

If i.GetType Is GetType(ChemElemCell.ChemElemCell) Then

[tyomitch]

А что, TypeOf ... Is в VB.net отменили?

[Viper]

Не отменили, но походу народ про него забыл напрочь...

[GSerg]

А что, TypeOf ... Is в VB.net отменили?

Отменили.
Uprgade Wizard даёт по нему warning, преобразованный код не компилируется.

В Visual Basic 6.0 функция TypeOf использовалась в инструкции If...Then...Else для того, чтобы установить, соответствовала ли ссылка на объект указанному типу объекта. В этом контексте определенный пользователем тип рассматривался как тип объекта.
В Visual Basic .NET определенные пользователем типы (теперь известные как структуры) не являются типами объектов и не могут обрабатываться функцией TypeOf.
Следующий пример иллюстрирует использование функции TypeOf с определенным пользователем типом:

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

' Visual Basic 6.0
Private Type MyType
   a As Integer
End Type
Private Sub Form_Load()
   Dim m As MyType
   If TypeOf m Is MyType Then
      MsgBox "MyType"
   End If
End Sub

' After upgrade to Visual Basic .NET
Private Structure MyType
   Dim a As Short
End Structure
Private Sub Form_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
   Dim m As MyType
   ' UPGRADE_WARNING: TypeOf has a new behavior.
   If TypeOf m Is MyType Then
      MsgBox "MyType"
   End If
End Sub

Что делать дальше
Приведите код к сравнению типов без использования функции TypeOf:

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

' Modified code
Dim m As MyType
Dim mTest As MyType
If m.GetType Is mTest.GetType Then...

[Viper]

ндя... а в списке операторов TypeOf прекрасно себя чувствует без упоминаний об устаревании

[AnarCky]

А почему ничего не происходит в таком коде:

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

    Dim cont As Control, i1 As Integer
    Dim stroka As String
    Dim fail As System.IO.StreamReader
    Dim CRTBarray() As ChemElemCell.ChemElemCell
    Dim el As ChemElemCell.ChemElemCell

        For i1 = 0 To Controls.Count - 1
            For Each cont In Controls
                If i1.GetType Is GetType(ChemElemCell.ChemElemCell) Then
                    CRTBarray(i1) = cont
                End If
            Next
        Next

        For i1 = 0 To CRTBarray.Length - 1

            If System.IO.File.Exists("Разное\table.txt") Then
                fail = System.IO.File.OpenText("Разное\table.txt")
                stroka = fail.ReadLine
            Else
                MessageBox.Show("К сожалению не найден файл table.txt.", "Ошибка", _
                              MessageBoxButtons.OK, MessageBoxIcon.Error, _
                              MessageBoxDefaultButton.Button1)
            End If

            el = New ChemElemCell.ChemElemCell
            el.Name = "cec" & stroka.Substring(0, 2)
            el.ElementName = stroka.Substring(54, 12)
            el.ElementLatinName = stroka.Substring(69, 12)
            el.ElementNumber = stroka.Substring(84, 3)
            el.ElementSymbol = stroka.Substring(0, 2)
            el.ElementNum1 = stroka.Substring(6, 9)
            el.ElementNum2 = stroka.Substring(18, 9)
            el.GradientColor1 = Color.OrangeRed
            el.GradientColor2 = Color.Orange
            el.Location = New Drawing.Point(24, 608 + el.Size.Width)
            CRTBarray(i1) = el

        Next


Хочется, чтобы порядка 110 контролов заполнились автоматически инфой из файла

[Viper]

Вообще-то вот здесь должна быть ошибка, поскольку массив не инициализирован:

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

CRTBarray(i1) = cont

Во-вторых, непонятен смысл переобхявления элемента

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

el = New ChemElemCell.ChemElemCell

По идее, в этот момент элементы лежащие в массиве уже инициализированы (при условии, исправления предыдущей ошибки)