2013-06-26 24 views
-5

我怎樣才能把這個代碼在一個按鈕,我已經試過各種我知道如何專用功能添加一個按鈕,在VB.NET

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 
+0

電話..但你怎麼從代碼期待? – matzone

+0

「馬克」來自哪裏?另一個控制還是什麼?你想對結果做什麼?將它們顯示到控件或其他東西?請詳細說明... –

回答

1

如果您需要的按鈕,使用該文本,嘗試像事端:

Button1.Text = NewAward(73) 

這就是你想要的嗎?

如果你想改變,當按下按鈕時執行的代碼:在按鈕單擊事件

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

Vb說這段代碼的結果=「NewAward(62)Response.Write(」Result:=「&result) – Binglee2323

+1

它適用於我。試着闡述你的問題,這樣我們可以做得更好。更好的問題會提供更好的答案 – SysDragon

相關問題