Загружаю контрол, затем пытаюсь его удалить и получаю ошибку "Unable to within this context"
'На форме один TextBox с именем Text1, индексом 0 и высотой 325.
Код:
- Код: Выделить всё
'На форме один TextBox с именем Text1, индексом 0 и высотой 325.
Option Explicit
Dim HeightForm As Integer
Private Sub Form_Load()
HeightForm = 3000
Me.Height = HeightForm
Add_kontrol 5
End Sub
Private Sub Form_Resize()
Dim Raznost As Integer, i As Integer
i = Me.Height - HeightForm
Raznost = i / 315
If Raznost > 0 Then Add_kontrol Raznost
If Raznost < 0 Then Rem_kontrol Abs(Raznost) 'тут возникает ошибка
End Sub
Private Sub Rem_kontrol(ByVal RemKol As Byte)
Dim Index As Integer, N As Integer
'Удаление контролов с последнего.
For N = 1 To RemKol
Index = Text1.Count - 1
Unload Text1(Index)
Next N
End Sub
Private Sub Add_kontrol(ByVal AddKol As Byte)
Dim y As Integer, Index As Integer, N As Integer
'Добавление контролов.
For N = 1 To AddKol
Index = Text1.Count
y = Text1(Index - 1).Top + Text1(Index - 1).Height
Load Text1(Index)
Text1(Index).Top = y
Text1(Index).Visible = True
Next N
End Sub
При размещении на форме кнопки, удаление контролов по ее нажатию производится без проблем. Что за беда?
