مثال زیر اکتیو کنترل را به متغیر ctlCurrentControl تخصیص میدهد و اعمال خاصی را بسته به Value ی خاصیت Name کنترل فوکس داده شده انجام میدهد.
Dim ctlCurrentControl As Control
Set ctlCurrentControl=Screen.ActiveControl
If ctlCurrentControl.Name="txtCustomerId" Then
انجام عمل خاصی وقتی فوکس به تی اکس تی کاستمرآیدی برسد
"ElseIf ctlCurrentControl.Name="btnCustomerDetail
Then
انجام عمل خاصی وقتی فوکس به باتن کاستمر دیتیل برسد
End If
تذکر : اگر فوکس به کنترلی انجام نشود در حال استفاده از ActiveControl یا اگر تمام کنترل های فرم هاید یا غیرفعال شوند خطا اتفاق می افتد
درباره این سایت