ник: alecks_lp
Даю кусок кода для формы с БОЛЬШИМ количеством контролов. Перебираются контролы формы и прописываются пользовательские функции для событий контролов.
Public Function SetForeColor(frm As Form)
On Error Resume Next
Dim ctl As Control
For Each ctl In frm.Controls
With ctl
If .ControlType = acLabel Then
If .Name Like "lbl??" Then
.ShortcutMenuBar = "SetDayOption"
ElseIf .Name Like "txt??" Then
.OnMouseMove = "=GetLabelFlash(" & Val(Mid(.Name, 4)) & ")"
.OnClick = "=UpdateTabelItem(" & .Name & ")"
End If
.OnMouseDown = "=SetLableStyle(" & .Name & ",2)"
.OnMouseUp = "=SetLableStyle(" & .Name & ",1)"
.BackStyle = 1
.BackColor = LABEL_RAISED_BackColor
End If
End With
Next
End Function
|