ГлавнаяVB Динамическое добавление контрола на форму.
Динамическое добавление контрола на форму.
Автор Kit Schreiber
05.03.2003 г.
Пример динамического добавления контрола на форму.
Пример динамического добавления контрола на форму: 'Made by Kit Schreiber 'send to me message
Этот e-mail защищен от спам-ботов. Для его просмотра в вашем браузере должна быть включена поддержка Java-script
'Если кто то захочет со мной связаться 'моя почта
Этот e-mail защищен от спам-ботов. Для его просмотра в вашем браузере должна быть включена поддержка Java-script
'Пример проверяет наличие контрола 'заружает и отгружает его 'работает на любой контрол '''''''''''''''''''' Dim NewC As Integer 'Count numer of control Dim II As Integer Dim i2 As Integer Function ContEx(YouOb As Object, cnom As Integer) As Boolean Dim cn As Integer On Error GoTo jj: cn = YouOb(cnom) jj: If Err.Number <> 340 Then ContEx = True On Error GoTo 0 End Function
Private Sub Form_Load() Picture1.Width = Text1(0).Width * 5 + 50 For II = 1 To 5 Load Text1(II) Text1(II).Left = Text1(II - 1).Left + Text1(II - 1).Width Text1(II).Top = Text1(II - 1).Top Text1(II).Width = Text1(II - 1).Width Text1(II).Height = Text1(II - 1).Height Text1(II).Text = "" Text1(II).Visible = True Next II 'ADDcontrol End Sub Private Sub ADDcontrol() NewC = (Text1.Count) * 0.2 * Text1(0).Height + Text1(0).Top II = Text1.Count For i2 = II To II + 5 Load Text1(i2) Text1(i2).Left = Text1(i2 - 6).Left '+ Text1(i2 - 1).Width Text1(i2).Top = NewC Text1(i2).Width = Text1(i2 - 1).Width Text1(i2).Height = Text1(i2 - 1).Height Text1(i2).Text = "" Text1(i2).Visible = True Next i2 Picture1.Height = NewC + Text1(0).Height + 50 VScroll1.Max = Picture1.Height End Sub Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then ADDcontrol End Sub Private Sub VScroll1_Scroll() 'Picture1.Top = VScroll1.Value - 32000 If Picture1.Height > Pic.Height Then Picture1.Top = VScroll1.Value - VScroll1.Max End If End Sub