Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
пример:Динамически сформ-ть объекты на форме 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
Дата публикования: 2014-12-28; Прочитано: 203 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!