regbyte
سه شنبه 20 فروردین 1387, 20:15 عصر
من یه قطعه کد دارم که می خوام اونو بصورت یک پروسیجر در ماژول اصلی برنامم بذارم تا از تمام فرمهای دیگم بهش دسترسی داشته باشم:
ForEach ctrl As Control In groupPanel1.Controls
SelectCase ctrl.GetType.ToString
CaseGetType(TextBox).ToString
tbMain = ctrl
AddHandler tbMain.TextChanged, AddressOf stateEventHandler
CaseGetType(CheckBox).ToString
chkMain = ctrl
AddHandler chkMain.CheckedChanged, AddressOf stateEventHandler
EndSelect
Next
در پروسیجر باید groupPanel1 و stateEventHandler بصورت آرگومان داده شوند:
publicSub mActiveApplyBtn(ByVal gp As GroupPanel , ??? )
تمام فرمهام :
PrivateSub stateEventHandler(ByVal sender AsObject, ByVal e As EventArgs)
IfNot btnSave.Enabled Then btnSave.Enabled = True
EndSub
رو دارن.
stateEventHandler رو چه چوری باید تعریف کنم؟
لطفا راهنمایی کنید.
ForEach ctrl As Control In groupPanel1.Controls
SelectCase ctrl.GetType.ToString
CaseGetType(TextBox).ToString
tbMain = ctrl
AddHandler tbMain.TextChanged, AddressOf stateEventHandler
CaseGetType(CheckBox).ToString
chkMain = ctrl
AddHandler chkMain.CheckedChanged, AddressOf stateEventHandler
EndSelect
Next
در پروسیجر باید groupPanel1 و stateEventHandler بصورت آرگومان داده شوند:
publicSub mActiveApplyBtn(ByVal gp As GroupPanel , ??? )
تمام فرمهام :
PrivateSub stateEventHandler(ByVal sender AsObject, ByVal e As EventArgs)
IfNot btnSave.Enabled Then btnSave.Enabled = True
EndSub
رو دارن.
stateEventHandler رو چه چوری باید تعریف کنم؟
لطفا راهنمایی کنید.