10 1 l Click Private Sub mnu Item

10 -1 功能表控制項建立選項的事件處理程序 l 在功能表選項如同表單上的按鈕控制項， 按一下就可以執行事件處理程序的程式碼， 其預設事件是Click。 Private Sub mnu. Item. UCase_Click(By. Val sender _ As System. Object, By. Val e As System. Event. Args) _ Handles mnu. Item. UCase. Click lbl. Output. Text = UCase(txt. Input. Text) ' 大寫 End Sub

10 -6 -1集合物件與清單控制項的基礎集合物件簡介(事件處理程序) Private Sub Button 1_Click(By. Val sender As _ System. Object, By. Val e As System. Event. Args) _ Handles Button 1. Click Dim item As Tool. Strip. Item Dim no As Integer = 1 Dim out As String = "" For Each item In tls. Color. Items out &= no & ": " & _ item. Tool. Tip. Text & _ vb. New. Line no += 1 Next Msg. Box(out) End Sub