SIMPLIFICACAO

JOHNHEY 26/08/2010 05:47:31
#351318

Fiz as seguinte linhas de código e esta a funcionar lindamente, mas gostaria de saber se existe uma forma de simplificar.
[ô]verifica se o utilizador pode ou não fazer inclusões, alterar, salvar, excluir e devolve nos checkbox
incluir = leitor.Item([Ô]incluir[Ô]).ToString
If incluir = [Ô]True[Ô] Then
CheckBox2.Checked = True
Else
CheckBox2.Checked = False
End If
salvar = leitor.Item([Ô]salvar[Ô]).ToString
If salvar = [Ô]True[Ô] Then
CheckBox4.Checked = True
Else
CheckBox4.Checked = False
End If
excluir = leitor.Item([Ô]excluir[Ô]).ToString
If excluir = [Ô]True[Ô] Then
CheckBox3.Checked = True
Else
CheckBox3.Checked = False
End If
alterar = leitor.Item([Ô]alterar[Ô]).ToString
If alterar = [Ô]True[Ô] Then
CheckBox5.Checked = True
Else
CheckBox5.Checked = False
End If
pesquisar = leitor.Item([Ô]pesquisar[Ô]).ToString
If pesquisar = [Ô]True[Ô] Then
CheckBox6.Checked = True
Else
CheckBox6.Checked = False
End If