Основы офисного программирования и язык VBA


         

Dim NewCtrl As


Dim NewCtrl As Control
Dim Inserted As Boolean
Private Sub UserForm_Initialize ()
Inserted = False
Opb1. Value = True
End Sub
Private Sub CommandButton1_Click ()
If Inserted = False Then
If Opb1. Value = True Then ' выбрано поле ввода
' добавляем 2 поля ввода
Set NewCtrl = Controls. Add ("Forms. TextBox. 1", "Text1")
NewCtrl. Left = 96
NewCtrl. Top = 12
NewCtrl. Width = 80
NewCtrl. Height = 20
NewCtrl. Text = "Введите имя"
Set NewCtrl = Controls. Add ("Forms. TextBox. 1", "Text2")
Controls ("Text2"). Left = 96
Controls ("Text2"). Top = 50
Controls ("Text2"). Width = 80
Controls ("Text2"). Height = 20
Else ' добавляем список
Set NewCtrl = Controls. Add ("Forms. ListBox. 1", "NewList")
NewCtrl. Left = 96
NewCtrl. Top = 12
NewCtrl. Width = 80
NewCtrl. Height = 70
NewCtrl. AddItem ("Анна")
NewCtrl. AddItem ("Елена")
NewCtrl. AddItem ("Ирина")
NewCtrl. AddItem ("Мария")
End If
Inserted = True
Else: MsgBox ("Элемент уже добавлен!" & vbCrLf & "Второй добавить не могу!")
End If
End Sub

Содержание  Назад  Вперед