Изменение событий контрола во время выполнения проги

[vvs_adm]

Внимательнее нужно читать вопрос (Это я себе)

[Konst_One]

VBControlExtender + Controls.Add

[Cryonyx]

2 FleX_2004
А можно глупый вопрос: а зачем тебе создавать Текст1 для создания Текст2
В любом случае, можно сделать средствами как Басика (см. выше пример Konst_One), так и на виндовом апи (правда в последнем случае задолбёшься события обрабатывать.
Вот пример для басовых средств:

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


Option Explicit

Dim WithEvents TextBox2 As TextBox

Private Sub Form_Load()
    Set TextBox2 = Me.Controls.Add("VB.TextBox", "TextBox2")
    TextBox2.Width = 300
    TextBox2 = "You can't type here anything "
    TextBox2.Visible = True
End Sub

Private Sub TextBox2_Change()
    TextBox2 = "You can't type here anything "
End Sub


Кидай код в форму и смотри

[Cryonyx]

2 Flex_2004
Прости конечно за глупый вопрос, но что тебе мешает сделать тот же код во время выполнения проги?

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


Option Explicit

Dim WithEvents TextBox2 As TextBox

'' Просто запихиваешь этот код в комманд контрол
Private Sub Command1_Click()
    Set TextBox2 = Me.Controls.Add("VB.TextBox", "TextBox2")
    TextBox2.Width = 300
    TextBox2 = "You can't type here anything "
    TextBox2.Visible = True
End Sub

Private Sub TextBox2_Change()
    TextBox2 = "You can't type here anything "
End Sub


На худой конец, можно создать один из таких элементов, а все остальные подгружать через Load