MyTetra Share
Делитесь знаниями!
Программно создать массив контролов
31.07.2019
22:37
Раздел: !Закладки - VBA

Вообще-то, в поиск. Но я сегодня добрый. Пример с одним элементом. Думаю и с двумя, тремя, десятью,... разберешься.


'Option Rtfm On
'Option Ban On

Dim WithEvents oBox As TextBox
Private Sub Form_Load()

    Me.Width = 4500
    Me.Caption = "RTFM!"

    Set oBox = Me.Controls.Add("VB.TextBox", "txtBox")
    oBox.BorderStyle = 0
    oBox.ForeColor = vbRed
    oBox.BackColor = vbBlack
    oBox.FontName = "Courier New"
    oBox.FontBold = True
    oBox.FontSize = 72
    oBox.Top = 0
    oBox.Left = 0
    oBox.Height = 500
    oBox.Width = 4500
    oBox.Text = "RTFM!"
    oBox.Visible = True
End Sub

Private Sub oBox_Click()
    MsgBox "RTFM!"
End Sub

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования