نوشته شده توسط
jk
تشکر از بابت برنامه تون - از الگوریتم جالبی استفاده کردید.
استفاده از tag رو به هیچ وجه توصیه نمی کنم. چون در خیلی از جاها نیاز به تغییر زبان دارید و آن جاها tag ندارید! به عنوان مثال هدرهای یک گرید رو به چه شکلی می خواهید فارسی بکنید؟ هدرها که tag ندارند!
مطمئا موقعیت مکانی آبجکت فارسی و انگلیسی در فرم یکسان نخواهد بود. برای حل این مشکل چه پیشنهادی دارید؟
سلام
در اين روش هم از tag استفاده نشده است
براي اشيائي هم كه خاصيت Caption يا Text ندارند (مثل گرايدهاي مختلف يا ...)
برنامه قابل گسترش مي باشد، مثلا اگر از FlexGrid استفاده شده بود تابع Translate به شكل زير تعميم مي يابد
With frmData.dta.Recordset
For Each obj In frm.Controls
If TypeOf obj Is VSFlexGrid Then
...
End If
به جاي ... فرض را بر اين مي گيريم كه Obj اسم يك FlexGrid هست و با اين نام تمام خواص و متدهاي FlexGrid قابل استفاده هستند، مثلا با خاصيت TextMatrix ميشه متن هدر رو عوض كرد
Obj.TextMatrix(0,1) = "Test"