Question

我正在尝试将文字作为描述添加到我的项目中，但我不知道该怎么做。这是我的代码：

    BMRList.Items.Insert(0, bmrCalc.CalcBasMetabolicRateBMR)
    BMRList.Items.Insert(1, bmrCalc.MaintainWeightCalories)
    BMRList.Items.Insert(2, bmrCalc.LoseOrGainWeightCalories(500, True))
    BMRList.Items.Insert(3, bmrCalc.LoseOrGainWeightCalories(1000, True))
    BMRList.Items.Insert(4, bmrCalc.LoseOrGainWeightCalories(500, False))
    BMRList.Items.Insert(5, bmrCalc.LoseOrGainWeightCalories(1000, False))

这将导致布尔数字作为项目。我想做的是在项目的左侧添加文本。例如

"Your BMR is:"   (item1)  
"To maintain your weight you need" (item2) 
"Calories to lose 0,5 kg per week" (item3)

bmrcalc LoseOrGainWeightCalories方法：

   Public Function LoseOrGainWeightCalories(ByRef weightt As Double, lose As Boolean) As Double


    Dim Maintain As Double = MaintainWeightCalories()

    Dim test As Double
    If lose = True Then
        test = Maintain - weightt

        Return test
    Else
        Return Maintain + weightt
    End If

End Function

我有两个类：Main Class和CalorieCalc类。所有输出必须来自主类。 CalorieClass不得依赖于主类。 CalorieCalc类应该只有用于保存输入的字段（实例变量）。在CalorieCalc类中不使用输出变量。

我希望你明白这个主意。我正在使用VB

Answer 1

就像那样：

BMRList.Items.Insert(0, "Text" & bmrCalc.CalcBasMetabolicRateBMR)

将文本作为描述添加到列表框项目VB

1 个答案: