20-09-12, 05:26 PM
السلام عليكم...
الإجراء يكون كالتالي:
و يتم الاستدعاء كالتالي مثلاً:
نرجو الاستفادة و السلام.
الإجراء يكون كالتالي:
كود :
Private Sub BringToFront(ParamArray ControlNames() As Variant)
Dim Idx As Long
On Error GoTo BringToFront_Err
For Idx = 0 To UBound(ControlNames)
ControlNames(Idx).ZOrder vbBringToFront
Next Idx
Exit Sub
BringToFront_Err:
Err.Clear
Err.Raise vbObjectError + 1001, App.EXEName & " - Sub BringToFront", "أحد البارامترات ليس مكوناً موجوداً أو أنه لا يدعم وظيفة الإحضار إلى الأمام"
End Sub
و يتم الاستدعاء كالتالي مثلاً:
كود :
BringToFront Text1, Frame2
نرجو الاستفادة و السلام.