controls collection

[George Hardy]

hello all,

i am trying to impelement form level security in my vb.net 2003 application.
i have a database table that has the name of the form, subform, userid, and
read,edit,del,add rights (boolean). The subform is a group box or tabpage
that would be visible or enabled (read or edit rights)

my question is:
I have a security class I pass a form object into. When I try to set the
enabled property or visible property on the group box in question, i get a
run-time exception: "Cast from string "grpInventory" to type 'Integer' is
not valid"

Here is the code in my Security class:
MyForm.Controls(subformname).Enabled = True

So how can I access a control on a passed in form, if i cant do it by name?

Thanks a bunch!
george hardy

 

[AMDRIT]

I didn't see a findcontrolbyname, or a getcontrolbyname function listed.
You could create your own though

public notinheritable class formhelperfunctions
public shared function GetControlbyName(Contianer as Control, Name as
string) as control
'any friend or public control will be found within this control

for each ctrl as control in container.controls
if string.compare(ctrl.name,name) = 0 then
return ctrl
end if
next container

end function
end class

Class Form1
private sub TestMe
dim objControl as control
objControl = formhelperfunctions.getcontrolbyname(me,"Textbox1")
if not objControl is nothing then
..do work here
else
msgbox("there was applying security, an expected control could not be
found.")
me.customstate = customstateenum.securitycouldnotbeset
exit sub
end if
end sub
End Class

 

[George Hardy]

thanks! i will give it a try.

george

I didn't see a findcontrolbyname, or a getcontrolbyname function listed.
You could create your own though

public notinheritable class formhelperfunctions
public shared function GetControlbyName(Contianer as Control, Name as
string) as control
'any friend or public control will be found within this control

for each ctrl as control in container.controls
if string.compare(ctrl.name,name) = 0 then
return ctrl
end if
next container

end function
end class

Class Form1
private sub TestMe
dim objControl as control
objControl = formhelperfunctions.getcontrolbyname(me,"Textbox1")
if not objControl is nothing then
..do work here
else
msgbox("there was applying security, an expected control could not be
found.")
me.customstate = customstateenum.securitycouldnotbeset
exit sub
end if
end sub
End Class