نوشتن dll

[Mahnazmh]

با سلام و مختصر:
من یک dll می خواهم (code) که وقتی فرمم را برای أن می فرستم Width فرم را برای
من برگرداند.
با تشکر از دوستان خودم مرسی
:oops: :flower: :flower: :flower: :oops:

[بابک زواری]

خوب این چه کاریه ؟ خود width فرم رو چرا از خودش بدست نمیاری ؟
یا منظورت دقیقا چیه ؟

[Mahnazmh]

با سلام و تشکر
کدنویس گفتید: :موفق: یا منظورت دقیقا چیه ؟ :موفق:
منظور نوشتن تابعی در dll که پارامتر ارسالی به أن یک شی باشد
مانند کد زیر که می خواهم در dll به صورت public استفاده کنم ولی قبول نمی کند
Public Sub Locked_Find(Frm As Form, EditState As Boolean)
For Each Control In Frm.Controls
If TypeOf Control Is TextBox _
Or TypeOf Control Is DataList _
Or TypeOf Control Is DataCombo _
Then
Control.Locked = Not EditState
Control.Text = ""
End If
If TypeOf Control Is OptionButton _
Then
Control.Enabled = EditState
Control.Value = False
End If
If TypeOf Control Is Image _
Then Control.Enabled = EditState
If TypeOf Control Is MHOCXDateHorofObj _
Then Control.MHEnabled = EditState
Next
On Error Resume Next
Frm.cmdAdd.Enabled = Not EditState
Frm.cmdEdit.Enabled = Not EditState
Frm.cmdDelete.Enabled = Not EditState
Frm.cmdRefresh.Enabled = Not EditState
Frm.cmdPrint.Enabled = Not EditState
Frm.cmdMoveFirst.Enabled = Not EditState
Frm.cmdMovePrev.Enabled = Not EditState
Frm.cmdMoveNext.Enabled = Not EditState
Frm.cmdMoveLast.Enabled = Not EditState
Frm.cmdSave.Enabled = Not EditState
Frm.cmdCancel.Enabled = Not EditState
Frm.cmdFix.Enabled = Not EditState
Frm.Vsfg.Enabled = Not EditState
Frm.cmdSearch.Enabled = EditState
Frm.cmdPrint.Enabled = Not EditState
End Sub

با تشکر فراوان از شما
میل من Mahnaz_mhakbari@yahoo.com
:flower: :flower: :flower:

[بابک زواری]

شما به جای Frm As Form از این دستور استفاده کنید Frm As object بعد در متن تابع
با دستور type of جنس این object رو چک کنید که فرم باشه در غیر اینصورت از انجام
عملیات صرفنظر کنید.
مشکل از public بودن نیست

[Mahnazmh]

با سلام
أقای کد نویس نهایت تشکر را از شما دوست خوبم دارم
:flower: :flower: :flower:
:thnx: