Button 1Click 15 Button 1Click Button 1Click Private
新增按鈕控制項- Button 1_Click 15
新增標籤控制項- Button 1_Click • Button 1_Click事件處理程序的程式碼,如下所示: Private Sub Button 1_Click(By. Val sender As System. Object, _ By. Val e As System. Event. Args) Handles Button 1. Click Dim f, X As Integer Dim str As String X = 10 str = "X = " & X & vb. New. Line f=X^2 -2*X+3 lbl. Result. Text = str & "X ^ 2 - 2 * X + 3 = " & f End Sub 20
新增文字方塊- btn. Convert_Click • btn. Convert_Click事件處理程序的程式碼, 如下所示: Private Sub btn. Convert_Click(By. Val sender As _ System. Object, By. Val e As System. Event. Args) _ Handles btn. Convert. Click Dim fahr, cels As Double cels = CDbl(txt. Input. Text) fahr = (9. 0 * cels) / 5. 0 + 32. 0 lbl. Result. Text = fahr End Sub 25
選取文字方塊的內容-Button 1_Click • 按二下Button 1按鈕,可以建立Button 1_Click事件 處理程序。 Private Sub Button 1_Click(By. Val sender As System. Object, _ By. Val e As System. Event. Args) Handles Button 1. Click txt. Message. Selection. Start = 0 txt. Message. Selection. Length = 5 txt. Message. Focus() End Sub 30
選取文字方塊的內容-Button 2_Click • 按二下Button 2按鈕,可以建立Button 2_Click事件 處理程序。 Private Sub Button 2_Click(By. Val sender As System. Object, _ By. Val e As System. Event. Args) Handles Button 2. Click txt. Output. Text = txt. Message. Selected. Text & "/" & _ txt. Message. Selection. Start & "/" & _ txt. Message. Selection. Length txt. Message. Focus() End Sub 31
- Slides: 43