Page 128 - TCS ICT Book 8
P. 128
The City School 2021-2022
Appendix
Developing Applications
Hello World
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnReaction.Click
lblReaction.Text = “Hello World”
End Sub
End Class
Declaring Private Variable
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim num1 As Integer
Dim num2 As Integer
num1 = TextBox1.Text
num2 = TextBox2.Text
Label1.Text = num1 + num2
End Sub
End Class
Declaring Public Variable
Public Class Form1
Public pub As Integer
Private Sub btnRst_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnRst.Click
pub = 0
Label1.Text = pub
128
