Jump to content
Fórum Script Brasil
  • 0

Ajuda - Bloquear textbox com base na opção do combobox


Bellebs

Question

Olá, bom dia.

Estou com uma dúvida quanto ao bloqueio de um textbox; utilizando um comando if, coloquei as opções de Enabled True ou False, dependendo da opção que for escolhida na combobox que recebe as respostas; exemplo, na propriedade List do listbox, tem as opções "ZERADO" e "COM O VALOR ABAIXO"; no camando if, quando for escolhida a opção "ZERADO" no combobox, a caixa textbox que recebe o valor, deverá ficar bloqueada (Enabled = False), e quando a opção escolhida for "COM VALOR", a textbox deverá ficar desbloqueada (Enabled = True); porém ela fica desbloqueada nos dois casos :wacko: , mesmo com o Enabled = False na condição if do "ZERADO"; só bloqueia se for colocado o Enabled = False no load do form, porém nesse caso ela fica bloqueada nas duas opções mesmo, com o uso do Enabled = True na opção "COM VALOR". :blink:

Alguém poderia me ajudar a resolver isso? Existe algum outro comando que dê essa possibilidade de bloquear somente em um caso?

Desde já agradeço.

Link to comment
Share on other sites

2 answers to this question

Recommended Posts

  • 0

Private Sub Combo1_Click()
Select Case Combo1.Text
 Case "ZERADO"
  Text1.Enabled = False
 Case "COM O VALOR ABAIXO"
  Text1.Enabled = True
End Select
End Sub
Eu costumo usar "Select Case" ao invés do "If Then" :D Note que coloquei no evento "Click" da ComboBox... no evento "Change" não rolou... Aqui com "IF THEN" :
Private Sub Combo1_Click()
If Combo1.Text = "ZERADO" Then
  Text1.Enabled = False
 ElseIf Combo1.Text = "COM O VALOR ABAIXO" Then
  Text1.Enabled = True
End If
End Sub

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152.2k
    • Total Posts
      652k
×
×
  • Create New...