Vb.net 累积损失

我是新的编码和尝试的东西了。我希望有人能帮忙。我有一个指示攻击和治疗的健康条代码。但是，我想创建一个文本框，以数字格式指示运行状况。我不知道如何处理这个问题。txtHP.text是我希望号码出现的地方。以下是我目前的代码：

Public Class Form1
    Dim bteNombre As Integer
    Public DMap As New Bitmap(Me.Width, Me.Height, Me.CreateGraphics)
    Public GraphicsBuffer As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(DMap)
    Public HpBarG As Integer = 100
    Public HpBarR As Integer = 100

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
        Handles MyBase.Load
        DrawHpBar()
    End Sub
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As  _
                            System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        e.Graphics.DrawImage(DMap, 0, 0)
    End Sub
    Private Sub DrawHpBar()
If HpBarG < 0 Then
    HpBarG = 0
End If
If HpBarG > 100 Then
    HpBarG = 100
End If
        GraphicsBuffer.DrawRectangle(Pens.Black, New Rectangle(47 - 1, 5 - 1, 100 + 1, 15))
        GraphicsBuffer.FillRectangle(Brushes.Red, New Rectangle(47, 5, HpBarR, 14))
        GraphicsBuffer.FillRectangle(Brushes.Lime, New Rectangle(47, 5, HpBarG, 14))
        Me.Invalidate(New Rectangle(47 - 1, 5 - 1, 100 + 1, 15))


    End Sub

    Private Sub btnAttack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
                Handles btnAttack.Click
        Randomize()
        bteNombre = Int((10 - 1 + 1) * Rnd() + 1)
        txtAtkHeal.Text = bteNombre.ToString
        HpBarG -= txtAtkHeal.Text
        DrawHpBar()

    End Sub

    Private Sub btnHeal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
               Handles btnHeal.Click
        Randomize()
        bteNombre = Int((5 - 1 + 1) * Rnd() + 1)
        txtAtkHeal.Text = bteNombre.ToString
        HpBarG += txtAtkHeal.Text
        DrawHpBar()
        txtHP.Text = bteNombre

    End Sub

End Class 

---

谢谢

创建一个文本框，然后指定文本属性，如下所示：

TextBox1.Text = HpBarG.ToString()

如果要以百分比形式显示该值，请执行以下操作：

TextBox1.Text = HpBarG.ToString("P")

---

有关将数字格式化为字符串的不同方式的详细信息，请阅读。

创建一个文本框，然后指定文本属性，如下所示：

TextBox1.Text = HpBarG.ToString()

如果要以百分比形式显示该值，请执行以下操作：

TextBox1.Text = HpBarG.ToString("P")

---

有关将数字格式化为字符串的不同方式的更多信息，请阅读。

myTextBox.Text=HpBarG？感谢您正确地发布了它，这很有效！谢谢你的帮助！myTextBox.Text=HpBarG？感谢您正确地发布了它，这很有效！谢谢你的帮助+1但是，可能要删除该文件；因为他用的是VB而不是C=D@Scott-刚刚意识到并解决了这个问题，作为一名C/JavaScrip开发人员，每天都有一种很抱歉的习惯-英雄联盟我知道你的意思。我总是这么做！非常感谢你！你们太棒了@user3092463-没问题，请随时接受答案，并在可能的情况下对答案进行投票。祝你好运-+1但是，可能要删除该文件；因为他用的是VB而不是C=D@Scott-刚刚意识到并解决了这个问题，作为一名C/JavaScrip开发人员，每天都有一种很抱歉的习惯-英雄联盟我知道你的意思。我总是这么做！非常感谢你！你们太棒了@user3092463-没问题，请随时接受答案，并在可能的情况下对答案进行投票。祝你好运-