Question

如何编写ToolStripMenuItem来执行相应的函数。

 Public Overridable Function CalcEndingBalance() As Double
 Dim B As Double
 B = p - A * n
    Return B                                  
End Function

这是要执行的功能。

Private Sub CalculateToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)    Handles CalculateToolStripMenuItem.Click

............... *

End Sub

我无法找出调用该函数的代码。

Answer 1

CalcEndingBalance是一个函数，它返回一个Double，因此您必须弄清楚如何处理返回值，但这里有一个快速示例，说明如何显示带有结果的MessageBox。我也稍微清理了你的功能。

Public Overridable Function CalcEndingBalance() As Double
    Return p - A * n
End Function

Private Sub CalculateToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)    Handles CalculateToolStripMenuItem.Click
    MessageBox.Show(CalcEndingBalance().ToString)
End Sub

您还可以执行设置另一个变量的操作：

    Dim endingBal As Double = 0
    endingBal = CalculateBalance()

或填充TextBox：

    TextBox1.Text = CalculateBalance().ToString

VB.NET中的ToolStripMenuItem和ToolStrip按钮

1 个答案: