Лекция: Пример динамического способа формирования объектов на форме VB.

пример: Динамически сформ-ть объекты на форме VB/

Dim Text1 As TextBox,Text2 As TextBox,Text3 As TextBox

'объекты Text1 и Text2,Text3 не будут сод-ть события

Dim WithEvens Command1 As CommandButton

Private Sub Form_Load()

Me.ScaleMode=3 Режим-пиксели для объектов формы

End Sub

Private Sub Form_Unload(Cancel As Integer)

Set Command1=Nothing

Set Text1=Nothing

Set Text2=Nothing

Set Text3=Nothing

End Sub

Private Sub Form_Activate()

MsgBox «мы сформировали дин-кую форму в среде VB»

End Sub

Private Sub Form_Initialize()

Me.Width=4000 для формы размеры задаются в твипах

Me.Height=2600 при разрешении экрана 1280*1024 точек

Set Text1=Controls.Add(«VB.TextBox»,«T1»,Form1)

Set Text2=Controls.Add(«VB.TextBox»,«T2»,Form1)

Set Text3=Controls.Add(«VB.TextBox»,«T3»,Form1)

Set Command1=Controls.Add («VB.CommandButton»,«Cmd1»,Form1)

Text1.Visible=True

Text2.Visible=True

Text3.Visible=True

Command.Visible=True

Command1.FontBold=True

Text1.FontBold=True

Text2.FontBold=True

Text3.FontBold=True

Text1.Left=12 Размеры эл-ов на форме в пикселях

Text1.Top=6

Text1.Width=270

Text1.Height=18

Text2.Left=12

Text2.Top=36

Text2.Width=270

Text2.Height=18

Text3.Left=12

Text3.Top=66

Text3.Width=270

Text3.Height=18

Command1.Left=45 Command1.Top=100

Command1.Width=200

Command1.Height=40

Command1.Caption=«Вычислить выражение»

End Sub

Private Sub Command1_Click()

Dim a As Double,b As Double,c As Double

On Error GoTo 100

a=Text1

b=Text2 c=a*b

Text3=c

Exit Sub

MsgBox «Вы уверены, что ввели значения в текстовые поля?»,vbQuestion,_«Динамическая форма» End Sub