按钮添加VBS脚本来实现

增加值，并限幅

  Dim objTag

  Set objTag = HMIRuntime.Tags("bb")

  objTag.Read

  objTag.Value = objTag.Value + 10

  objTag.Write

  If objTag.Value>= 100 Then

    objTag.write 100

  End If

 减少值，并限幅

  Dim objTag

  Set objTag = HMIRuntime.Tags("bb")

  objTag.Read

  objTag.Value = objTag.Value - 10

  objTag.Write

  If objTag.Value<= 0 Then

    objTag.write 0

  End If