2013-02-22 4 views
0

CInt, TryParse, Convert.Int32 등을 사용하여 변환을 시도했지만 아무 것도 작동하지 않았습니다. 나는 btnResult를 클릭했을 때 btnVote 버튼을 클릭했을 때 후보자의 총 투표 수를 표시하고 결과를 표시하면됩니다.버튼을 클릭 할 때 레이블 값이 증가합니다

Public Class Presidential_Election 

    Private Sub btnVote_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVote.Click 
     If cboCandidates.Text = "NOLI" Then 
      lblNoli.Text = Integer.Parse(lblNoli.Text) + 1 
     ElseIf cboCandidates.Text = "VAL" Then 
      lblVal.Text = (CInt(lblVal.Text) + 1).ToString 
     ElseIf cboCandidates.Text = "LESTER" Then 
      lblLester.Text = CInt(lblLester.Text) + 1 
     ElseIf cboCandidates.Text = "GWAPO" Then 
      lblGwapo.Text = CInt(lblGwapo.Text) + 1 
     End If 
    End Sub 

    Private Sub btnResult_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnResult.Click 
     lblNoli.Visible = True 
     lblVal.Visible = True 
     lblLester.Visible = True 
     lblGwapo.Visible = True 
    End Sub 
End Class 
+0

"Option Strict On"을 켜는 모든 경우에 ToString 메서드를 호출해야한다는 사실을 무시하면 작업을 수행해야하는 것처럼 보입니다. 그것은 어떻게 작동하지 않습니까? 예외가 발생합니까? –

+0

두 번째 시도하면 어떻게됩니까 : (CInt (lblVal.Text) +1) .ToString? BTW, ToString 뒤에()을 넣었습니까? – Melanie

+2

라벨 텍스트 속성의 시작 값은 무엇입니까? –

답변

0

: 나는 또한 인터넷에서 검색을 시도했지만 여전히 행운 그래서 난이 웹 사이트까지 오지 잘하면 내가 VB.net 내 프로그램 내 문제를 해결할 수

다음

내 코드입니다 라벨 텍스트를 처음에 0으로 설정하지 않은 경우 CInt을 사용하면 오류가 발생합니다. 두 가지 옵션이 있습니다 : 0

  • 세트의 모든 레이블 텍스트를하고
  • 사용 발() CInt, 또는
  • 을 계속 사용

예 : 나는 정수를 설정합니다

lblGwapo.Text = Val(lblGwapo.Text) + 1 
+0

완벽하게 작동했습니다! 감사. – abc123

+0

@JustineAnne 여러분 환영합니다. – AbZy

1

각 후보자를위한 카운터. 이 값을 0으로 설정 한 다음 투표를받을 때 증가시킵니다. 결과를 표시 할 때 레이블의 텍스트를 해당 카운터에 바인딩하고 표시합니다. 이렇게하면 label.text를 계속 참조 할 필요가 없습니다.

관련 문제