VB 2010快递进度条

Question

我一直在使用视觉基本2010年快递约2个星期了，现在我试图做一个RPG游戏。直到现在，一切都一帆风顺。但我无法让我的标签显示进度栏的价值。 smoebody能帮我吗？

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组件（类的instanse）具有2个化子性质，你需要： 价值 和最大值。 你需要初始化的第一个最大属性，第二个增加你的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或小于零，它不会让更改发生 - 而是返回错误消息。 否则，如果改变后有效，那么它会增加金额。

一旦发生金钱变化 - 进度条和标签会更新。