События на явно не указанный контрол

[Calvin]

Здраствуйте, уважаемые! Помогите с проблемой...вот есть форма, допустим с 30-ю TEXT-ми. Они не входят в массив элементов управления. Мне не хочется для каждого контрола прописывать процедуру обработки какого-либо события.....Можно ли неявно задать имя контрола в заголовке процедуры обработки событий и внутри ее...Можно ли сделать типа так?:

Код: Выделить всё

Set mycontrol=Text1          ' к примеру

Private Sub mycontrol_GotFocus()
mycontrol.text="aaa"
end sub


[alibek]

А придется.
Либо выделяй контролы в массив, либо в каждом событии каждого контрола пиши:

Код: Выделить всё

...
Private Sub GlobalText_Change(Obj As Control)
  ...
End Sub

Private Sub GlobalText_GotFocus(Obj As Control)
  ...
End Sub

...

Private Sub Text1_Change()
  Call GlobalText_Change(Text1)
End Sub

Private Sub Text1_GotFocus()
  Call GlobalText_GotFocus(Text1)
End Sub


Можно еще что-то наподобии:

Код: Выделить всё

Option Explicit

Private WithEvents CustomText As VB.TextBox

Private Sub CustomText_Change()
  ...
End Sub

...

...
Set CustomText = Text1
...


Но в твоем случае это не подойдет.

[Konst_One]

надо использовать VBControlExtender

Код: Выделить всё

Option Explicit
Dim WithEvents objExt As VBControlExtender ' Declare VBControlExtender variable WithEvents

Private Sub LoadControl()
   Licenses.Add "Project1.Control1", "ewrinvcmcoe"
   Set objExt = Controls.Add("Project1.Control1", "myCtl")
   objExt.Visible = True ' The control is invisible by default.
End Sub

Private Sub extObj_ObjectEvent(Info As EventInfo)
   ' Program the events of the control using Select Case.
   Select Case Info.Name
   Case "Click"
      ' Handle Click event here.
   ' Other cases now shown
   Case Else ' Unknown Event
      ' Handle unknown events here.
   End Select
End Sub



[Calvin]

2 Konst_One ну в общем я запускаю процедуру LoadControl

Код: Выделить всё

Private Sub Form_Initialize()
Call LoadControl
End Sub


а потом на строчке

Код: Выделить всё

   Licenses.Add "Project1.Control1", "ewrinvcmcoe"


начинает ругаться (я не понял, что этот код конкретно означает - можно пояснить?)
"Invalid class string......Looking for object with ProgID: Project1.Control1"

[alibek]

Так добавляй VB.TextBox, а не Project1.Control1.

[alibek]

И, кстати, думаю в твоем случае эту строчку можно не указывать.

[Calvin]

Нифига не понял...ничего не получается, все равно ругается

[tyomitch]

надо использовать VBControlExtender

Или этот метод всё равно не позволяет обрабатывать события многих контролов, или я чего-то не понял.

Calvin, чем массив контролов-то не угодил?