Private Sub Command1_Click()
ass = ass + 1
Load Label1(ass)
Label1(ass).Caption = "текст"
End Sub
Private Sub Form_Load()
ass = 0
end sub
Добавляем Label
Это код для довавление label на форму:
Я написал код и он почему-то не работает.. Почему?
Код:
Я написал код и он почему-то не работает.. Почему?
Попробуй!
Код:
Private Sub Command1_Click(ass as integer)
ass = ass + 1
Load Label1(ass)
Label1(ass).Caption = "текст"
End Sub
Private Sub Form_Load()
ass = 0
end sub
ass = ass + 1
Load Label1(ass)
Label1(ass).Caption = "текст"
End Sub
Private Sub Form_Load()
ass = 0
end sub
Вот готовый рабочий пример
да один лабел появляется, а вот при вызове label(2) basic выдаёт ошибку.
Люди всё просто до неприличия, дело в том что ass является переменной локального масштаба т.е. при выходе из процедуры она обнуляется и отсюда и возникает ошибка "Объект уже загружен" всё что вам надо сделать это объявить переменную вне функции.
Спасибо за внимание.
Спасибо за внимание.
Да надо бы еще добавить (помимо объявления ass глобальной переменной)
Label1(ass).visible=TRUE
Label1(ass).visible=TRUE
Ах, да точно ещё и визибол = тру, как я мог забыть?:D :) :o
Ну, спасибо всем... Выручили :)