Нужна помощь со строками

[GoaTrancer13]

Прошу помочь. Обьясню суть проблемы. У меня в Label есть текст. К примеру такой:

Рубашка - 5 руб
Брюки - 15 руб
Жилетка - 11 руб

Мне надо создать динамический массив,в котором каждый элемент массива содержал бы 1 строчку,т.е.
D1(1) = "Рубашка - 5 руб"
D1(2) = "Брюки - 15 руб"
и так далее.
Как это сделать? Спасибо

[Antonariy]

Массив контролов. Ставишь лабелу свойство Index = 0, он становится массивом c одним элементом с индексом 0. Созается новый элемент так: Load Label1(x). Даешь ему координаты, текст, показываешь.

[GoaTrancer13]

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

[dr.MIG]

Почему статические? Получай их из ширины или длины предыдущего лэйбла.

[GoaTrancer13]

Код можно конкретный?

[dr.MIG]

Что-нить типа

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

For i = 1 To Label1.Count - 1
Label1(i).Top = Label1(i - 1).Top + Label1(i - 1).Height
Next

[GoaTrancer13]

а при чем здесь высота и ширина? какие предыдущие лэйблы? 1 лабел в котором меняется текст и все

[dr.MIG]

Массив контролов. Ставишь лабелу свойство Index = 0, он становится массивом c одним элементом с индексом 0. Созается новый элемент так: Load Label1(x). Даешь ему координаты, текст, показываешь.

Т.о. создавай массив элементов из нужного числа лэйблов, а затем, устанавливай их свойства, так как я сказал.

[GoaTrancer13]

Господи,да не надо мне никакой массив элементов. 1 строковый массив внутри программы,в котором будут храниться строки из одного лэйбла и все. мне надо, чтобы программа взяла текст из лабела,разбила текст по отдельным строчкам и засунула каждую строчку в массив. все

[dr.MIG]

Короче все запутались... Было бы в чём...

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

D = Split(Label1.Caption, vbCrLf)
For Each i In D
MsgBox i
Next

[GoaTrancer13]

Вот теперь спасибо огромное,все работает. еще раз спасибо за помощь и понимание

[GoaTrancer13]

еще вопрос,как это в массив теперь засунуть?

[Amed]

D - это и есть массив.

[GoaTrancer13]

Да нет,не массив. мне надо,чтоб был массив с размерностью определенной,и в каждом элементе массива была строчка

[Amed]

Это массив с размерностью от LBound до UBound (учи матчасть).

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

Option Explicit

Private Sub Form_Load()
    Dim d() As String, msg As String
    Dim i As Long
   
    Label1.Caption = "Рубашка - 5 руб"
    Label1.Caption = Label1.Caption & vbCrLf & "Брюки - 15 руб"
    Label1.Caption = Label1.Caption & vbCrLf & "Жилетка - 11 руб"
   
    d = Split(Label1.Caption, vbCrLf)
   
    For i = LBound(d) To UBound(d)
        msg = msg & "Элемент c индексом" & i & ": " & d(i) & vbCrLf
    Next i
   
    MsgBox msg
End Sub