Page 129 - TCS ICT Book 8
P. 129
The City School 2021-2022
End Sub
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnAdd.Click
pub = pub + 1 Appendix
Label1.Text = pub
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Label1.Click
End Sub
End Class
If...Then Statements
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim number As Integer
number = textBoxNumber.Text
If number >= 7 Then
lblResult.Text = “Congratulations! You win”
End If
End Sub
End Class
If...Then...Else Statements
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim number As Integer
number = textBoxNumber.Text
129
