Собственный объект формы

@ArtemoBis · Регистрация: 09.03.2013

Author24 — интернет-сервис помощи студентам

Уважаемые форумчане. Прошу помощи, или скажите, что это невозможно

Есть форма, не ней много контролов, в том числе ТекстБоксы. Несколько из текстбоксов (но не все) надо объединить в группу, там данные логически однородные и вместе должны обрабатываться). Чтобы не городить код с обращением к каждому текстбоксу отдельно (в реальной книге их будет чуть побольше, чем в примере, пришла безумная (как оказалось) мысль:Объединить нужные по имени(у них каждая группа начинаетсяодинаково, например my# где # номер).Но свойство Name я нашел только у Controls. Да и коллекция из них же. Собираться они собираются, но обратиться к ним потом как к текстбоксам я не могу:Type mismatch

Фигню я придумал, в VBA так в принципе можно?Очень не хочется поименно, не в цикле обращаться к каждому:огромный невразумительный код выходит.А пожелания юзеров-в форме, не на листе делать

@Catstail · 28.07.2013, 11:37

Пробуй:

Visual Basic

Public TableDiff As Object
Dim ContextForm As UserForm
Dim TeArr(0 To 10) As Control '!!!
Dim CooArr(0 To 10)  As Long
Public Sub Inflate(CF As UserForm, PrefixT As String)
Dim i As Long, Cn
Set ContextForm = CF
For i = 0 To 10
For Each Cn In ContextForm.Controls
If Cn.Name Like (PrefixT & CStr(i)) Then
Set TeArr(i) = Cn
End If
Next Cn
Next i
End Sub
Sub ReadCoords()
Dim i As Long, x As String
For i = 0 To 10
    If Not (TeArr(i) Is Nothing) Then
       x = TeArr(i).Text
       If IsNumeric(x) Then
          CooArr(i) = CLng(x)
       Else
          CooArr(i) = 0
          TeArr(i).Text = 0
       End If
    End If
Next i
End Sub

@ArtemoBis · 28.07.2013, 18:37 **[ТС]**

Catstail, Мегаспасибище!!!!Спасли от матерой индусятины

@ArtemoBis 10 / 5 / 0 Регистрация: 09.03.2013 Сообщений: 29
	28.07.2013, 18:37 [ТС]	3
	Catstail, Мегаспасибище!!!!Спасли от матерой индусятины 0

Собственный объект формы

Решение