vb.net - 如何在 VB.NET 中为按钮添加私有函数

Question

我怎么能把这个代码放在一个按钮中我已经尝试了我所知道的一切

  Private Function NewAward(Mark As Double) As String
Select Case Mark
    Case 90 To 100
        Return "High Distinction"
    Case 75 To 89
        Return "Distinction"
    Case 60 To 74
        Return "Credit"
    Case 50 To 59
        Return "Pass"
    Case Else
        Return "Participation"
End Select
End Function

Answer 1

如果您需要按钮来使用此文本，请尝试以下操作：

Button1.Text = NewAward(73)

那是你要的吗？

如果要更改按下按钮时执行的代码：

Sub Button1Click(sender As Object, e As EventArgs) Handles Button1.Click
    'Your code
End Sub