VB 2010 텍스트 상자 및 단추 사용/사용 안함

Question

Visual Basic 2010의 프로젝트에 대한 질문이 하나 더 있습니다. 텍스트 상자 2 개, 단추 1 개 및 진행률 막대 1 개가 있습니다. 사용자 이름 (tb1)과 임의 암호 (tb2)를 입력해야만 버튼을 사용할 수 있고 누를 경우 진행률 표시 줄이 시작됩니다. 내가 텍스트 상자에 텍스트를 작성하지 않고 활성화 한 경우 버튼을 비활성화하고 싶습니다. 이 코드를 시도했지만 작동하지 않습니다.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
     If TextBox1.Text <> "" And TextBox2.Text <> "" Then 
      Button1.Enabled = True 
     ElseIf Button1.Enabled = False Then 
      MsgBox("Progress Fail.", MsgBoxStyle.Exclamation) 
     End If 
    End Sub 

어떻게 해결할 수 있습니까? 도움을 주셔서 감사합니다

나는 라디오 버튼도 함께 목록을 추가했습니다. 지금 내가 radio1 버튼에서 하나의 항목을 선택하면 button1이 활성화되기를 원한다. 다시 한 번 감사드립니다

Answer 1

이 작업은 버튼이 아닌 텍스트 상자에서 수행해야합니다. 이것을 시도하십시오 :

Private Sub TextBox_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox2.TextChanged, TextBox1.TextChanged 
    Button1.Enabled = TextBox1.Text <> "" And TextBox2.Text <> "" 
End Sub 

시작시 버튼을 비활성화로 설정하면 정상적으로 작동합니다. 하위 항목은 두 텍스트 상자 모두에서 사용됩니다 (Handles 부분 참조).

--- 수정 --- 좋아

, 그래서 우리는 콤보뿐만 아니라에서 수표를 포함한다. 약간 불안정합니다 ... 예, 이벤트가 동일한 서명 (동일한 유형의 동일한 매개 변수)을 가지고 있기 때문에 Handles -part에 다른 이벤트를 추가 할 수 있습니다. 그러나 이것은 내 의견으로는 약간 더러워지고있다.

그럼 같이 오히려 그것을 할 수 있습니다 : 당신은 거세한 숫양을 확인되거나

Private Sub TextBox_TextChanged(sender As System.Object, e As System.EventArgs) _ 
    Handles TextBox2.TextChanged, TextBox1.TextChanged 

    evaluateUserEntries() 
End Sub 

Private Sub ComboBox1_SelectedValueChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedValueChanged 
    evaluateUserEntries() 
End Sub 

Private Sub evaluateUserEntries() 
    Button1.Enabled = TextBox1.Text <> "" And TextBox2.Text <> "" And ComboBox1.SelectedIndex <> -1 
End Sub