VB 2010 express Progressbar

Question

나는 약 2 주 동안 visual basic basic express를 사용하고 있으며, RPG 게임을 만들기 위해 노력 중이다. 그리고 지금까지 모든 것이 원활하게 진행되고 있습니다. 하지만 나는 progressbars 값을 표시하기 위해 내 레이블을 얻을 수 없습니다. smoebody 나를 도울 수 있습니까? 값 및 최대 (클래스의 instanse)

Public Class Form1 

    Public Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click 
     Label2.Text = ProgressBar1.Value & ("") 
    End Sub 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
     HouseBuy.show() 
     Me.Hide() 
    End Sub 

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 
     HouseSell.show() 
     Me.Hide() 
    End Sub 

    Public Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click 
     Label2.Text = ProgressBar1.Value & ("") 
     If ProgressBar1.Value = 1000 Then 
      MsgBox("You cant get any more money") 
     ElseIf ProgressBar1.Value = 0 Then 
      MsgBox("You are out of money") 
     End If 
    End Sub 

    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 

    End Sub 

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
     mymap.Show() 
     Me.Hide() 
    End Sub 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

    End Sub 
End Class 

Answer 1

ProgressBar 구성 요소는 당신이 필요로하는 2 propeties 있습니다. 첫 번째로 초기화 된 최대 속성이 필요하고 두 번째로 Value 속성이 증가해야합니다.

Answer 2

아마도 플레이어의 돈을 변수로 저장하는 것이 더 좋을 것입니다. 이렇게하면 진행률 막대 및 레이블 텍스트가 변수 값에서 업데이트되고 진행률 막대 값에 플레이어의 돈이 저장되지 않습니다.

는 여기에 내가 그것을 짓을하는 방법에 대한 간단한 예입니다 :

Dim characterMoney As Integer 'Global variable - Player Money 

Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles but_IncreaseMoney.Click 
    changeMoney(60) 'Increase by 60 
End Sub 
Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles but_DecreaseMoney.Click 
    changeMoney(-60) 'Decrease by 60 
End Sub 

Sub changeMoney(ByVal valToChange) 'Could change to a function (return true or false) 

    Dim checkMoneyVal As Integer 
    checkMoneyVal = (characterMoney + valToChange) 'Check Val after change 

    If checkMoneyVal > 1000 Or checkMoneyVal < 0 Then 'If after the change 
     MessageBox.Show("You would have too much or too little money!") 'Its an invalid amount. 
    Else 
     'Player has enough money. 
     characterMoney = characterMoney + valToChange 'Increase/Decrease their money 
    End If 

    Label1.Text = characterMoney 'Update the label text 
    ProgressBar1.Value = characterMoney 'Update the progress value 
End Sub 

을 그래서이 예에서. 플레이어의 돈을 늘리거나 줄이려는 경우. 변화 후 돈이 무엇인지 계산할 것입니다. 1000보다 크거나 0보다 작 으면 변경을 허용하지 않고 대신 오류 메시지를 반환합니다. 그렇지 않으면 변경 후 유효하면 금액만큼 돈이 증가합니다.

돈이 변경되면 진행률 표시 줄과 라벨이 업데이트됩니다.