CreateControl(ControlType As String,ControlName As String,ControlParent As String)

CreateControl(ControlType As String,ControlName As String,ControlParent As String) ( Function )

Метод: CreateControl - Создать контрол

Синтаксис:

objectvariable.CreateControl( ControlType, ControlName, ControlParent )

где

objectvariable - ITCSForm

ControlType: String - Тип контрола

ControlName: String - Имя контрола

ControlParent: String - Родитель контрола

Пример:

Sub MenuItem1Click (Form, ObjName) 
'Form As ITCSForm, ObjName As String
  x = theApp.MessageBox ( "Item1 Click!", "Message", 0)
End Sub 
Sub SubItemClick (Form, ObjName) 
'Form As ITCSForm, ObjName As String
  x = theApp.MessageBox ( "SubItem Click!", "Message", 0)
End Sub 
Sub Button1Click( Form, ObjName )
'Form As ITCSForm, ObjName As String
  x = theApp.MessageBox ( "Button1 Click!", "Message", 0)
End Sub
Sub Button2Click( Form, ObjName )
'Form As ITCSForm, ObjName As String
  x = theApp.MessageBox ( "Button2 Click!", "Message", 0)
End Sub
Sub FormEvent_OnFormCreate(Form)
'Form As ITCSForm
 
 Form.Width = 470
 Form.Height = 270  
 ' Создание контрола "Страницы"
 Call Form.CreateControl ("PageControl","PControl","")
 Set PControl = Form.Controls("PControl")
 
 PControl.Left = 20
 PControl.Top = 20
 PControl.Width = 400
 PControl.Height = 200
 
 'Создаем контролы
 '
 '    CreateControl ( Тип_контрола, Имя_контрола, Родительский_контрол )
 
 'Создание новых страниц 
 Call Form.CreateControl ("TabSheet","Tab1","PControl")
 Set Tab1 = Form.Controls ("Tab1")
 Tab1.ImageIndex = 0
 
 Call Form.CreateControl ("TabSheet","Tab2","PControl")
 Set Tab2 = Form.Controls ("Tab2")
 Tab2.ImageIndex = 1
 
 'Создание кнопок на страницах
 Call Form.CreateControl ("Button","Button1","Tab1")
 Set Button1 = Form.Controls ("Button1")
 Button1.Top = 50
 Button1.Left = 100
 
 Call Form.CreateControl ("Button","Button2","Tab2")
 Set Button2 = Form.Controls ("Button2")
 Button2.Top = 50  
 Button2.Left = 100
 
 'Создание контекстного меню для страницы "Tab1"
 Call Form.CreateControl ("PopupMenu","PopupMenu","Tab1")
 Set PopupMenu = Form.Controls ("PopupMenu")
 
 'Создание пункта контекстного меню
 Call Form.CreateControl ("MenuItem","Item1","PopupMenu")
 Set Item1 = Form.Controls ("Item1")
 Item1.Caption = "Item1"
 Item1.ImageIndex = 3
 
 'Создание подпункта контекстного меню
 Call Form.CreateControl ("MenuItem","SubItem","Item1")
 Set Item31 = Form.Controls ("SubItem")
 Item31.Caption = "SubItem"
 Item31.ImageIndex = 6
 ' Устанавка обработчиков событий
 '
 '         SetControlEvent ( Имя_контрола, Тип_события, Обработчик_события )
 
 Call Form.SetControlEvent ( "Item1", "ObjectClick", "Ex2_ControlsSample.MenuItem1Click")
 Call Form.SetControlEvent ( "SubItem", "ObjectClick", "Ex2_ControlsSample.SubItemClick")
 Call Form.SetControlEvent ( "Button1", "ObjectClick", "Ex2_ControlsSample.Button1Click")
 Call Form.SetControlEvent ( "Button2", "ObjectClick", "Ex2_ControlsSample.Button2Click")
 
End Sub