BLOQUEAR DIVERSOS TEXTBOX DE UMA VEZ SÓ
Citação:A dúvida é , não consigo fazer isso em VB.NET ? só encontrei a propriedade ReadOnly mas no caso teria que fazer um por um, lembrando que talvez eu queira bloquear 10 textbox e deixar 5 sem bloquear.
Você poderia colocar os campos que precisam ser bloqueados dentro de um controle Panel, e os outros, que não precisam de bloqueio, deixar dentro de outro controle Painel (pode ser até um panel dentro do outro). Assim você pode bloquear ou desbloquear os campos necessários apenas lhe dando com o Panel. Por exemplo: Panel1.Enabled=False e Painel2.Enabled=True;
se usar a propriedade readonly no campo ele deixa branco e não deixa utilizar
par deixar um campo branco ao invés de cinza eu já fiz essa POG
[txt-color=#0000f0]Dim AlterarAlunos as boolean = True[/txt-color]
[txt-color=#0000f0]txtAluTelefone.ReadOnly = Not AlterarAlunos
txtAluTelefone.TabStop = AlterarAlunos
If AlterarAlunos Then
txtAluTelefone.BackColor = Color.White
txtAluTelefone.ForeColor = Color.Black
Else
txtAluTelefone.BackColor = Color.FromArgb(255, 237, 237, 237)
txtAluTelefone.ForeColor = Color.DimGray
End If[/txt-color]
par deixar um campo branco ao invés de cinza eu já fiz essa POG
[txt-color=#0000f0]Dim AlterarAlunos as boolean = True[/txt-color]
[txt-color=#0000f0]txtAluTelefone.ReadOnly = Not AlterarAlunos
txtAluTelefone.TabStop = AlterarAlunos
If AlterarAlunos Then
txtAluTelefone.BackColor = Color.White
txtAluTelefone.ForeColor = Color.Black
Else
txtAluTelefone.BackColor = Color.FromArgb(255, 237, 237, 237)
txtAluTelefone.ForeColor = Color.DimGray
End If[/txt-color]
[Ô]Nunca se afaste de seus sonhos, pois se eles se forem, você continuara vivendo, mas terá deixado de existir[Ô].
Charles Chaplin
Vê se isso pode te ajudar:
aqui ele varre todo o form e pega todos os Text de 1 a 10 e desabilita ou habilita
onde tiver [Ô]Then[Ô] tu pode colocar mais condições para selecionar somente os textbox que quiser
[txt-color=#0000f0]
Public Sub SetValor(ByVal Formulario As Form)
for i=1 to 10
NomeDoControle = [Ô]Text[Ô]+i.tostring
For Each controle As control In Formulario.Controls
If TypeOf controle Is TextBox Then
If controle.Name = NomeDoControle Then controle.Enable = True/False
End If
Next
End Sub
next[/txt-color]
aqui ele varre todo o form e pega todos os Text de 1 a 10 e desabilita ou habilita
onde tiver [Ô]Then[Ô] tu pode colocar mais condições para selecionar somente os textbox que quiser
[txt-color=#0000f0]
Public Sub SetValor(ByVal Formulario As Form)
for i=1 to 10
NomeDoControle = [Ô]Text[Ô]+i.tostring
For Each controle As control In Formulario.Controls
If TypeOf controle Is TextBox Then
If controle.Name = NomeDoControle Then controle.Enable = True/False
End If
Next
End Sub
next[/txt-color]
Faça seu login para responder