Scribd
Upload
5 views4 pages

Visual Basic Form Event Handlers

The document describes a Visual Basic program with multiple forms, buttons, checkboxes and textboxes. It contains code to: 1. Clear checkboxes and textboxes when certain buttons are clicked. 2. Perform calculations based on which radio buttons and checkboxes are selected and display results in textboxes. 3. Display a message with the selected radio button, checkbox and time/date labels that update every tick of a timer.

Uploaded by

Voughn Caintic
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
5 views4 pages

Visual Basic Form Event Handlers

The document describes a Visual Basic program with multiple forms, buttons, checkboxes and textboxes. It contains code to: 1. Clear checkboxes and textboxes when certain buttons are clicked. 2. Perform calculations based on which radio buttons and checkboxes are selected and display results in textboxes. 3. Display a message with the selected radio button, checkbox and time/date labels that update every tick of a timer.

Uploaded by

Voughn Caintic
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd

Calapano, Iñigo John Joshua M.

August 24, 201 7


CSS-A Ms. Leori Ignacio

Public Class Form1

Private Sub Timer1_Tick(sender As Object, e As EventArgs)

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles [Link]


[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = ""

End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles [Link]


[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles [Link]


End
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles [Link]


Dim S, B, F, J, C As Integer
If [Link] Then
S = 100
End If
If [Link] Then
B = 150
End If
If [Link] Then
F = 200
End If
If [Link] Then
J = 0
End If
If [Link] Then
C = 50%
End If
[Link] = S + B + F + J + C

Dim D, FJ, A As Integer


If [Link] Then
D = 20
End If
If [Link] Then
FJ = 15
End If
If [Link] Then
A = 20
End If
[Link] = D + FJ + A

Dim Z, X, V, L, N, M As Integer
If [Link] Then
Z = 10
End If
If [Link] Then
X = 10
End If
If [Link] Then
V = 10
End If
If [Link] Then
L = 10
End If
If [Link] Then
N = 10
End If
If [Link] Then
M = 10
End If
[Link] = Z + X + V + L + N + M
Dim K, O, P As Integer
K = Val([Link])
O = Val([Link])
P = Val([Link])
[Link] = K + O + P

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]


Dim INIGO As String
If [Link] Then
INIGO = INIGO + [Link] + vbNewLine
End If
If [Link] Then
INIGO = INIGO + [Link] + vbNewLine
End If
If [Link] Then
INIGO = INIGO + [Link] + vbNewLine
End If
If [Link] Then
INIGO = INIGO + [Link] + vbNewLine
End If
If [Link] Then
INIGO = INIGO + [Link] + vbNewLine
End If
If [Link] Then
INIGO = INIGO + [Link] + vbNewLine
End If
If [Link] Then
INIGO = INIGO + [Link] + vbNewLine
End If
If [Link] Then
INIGO = INIGO + [Link] + vbNewLine
End If
If [Link] Then
INIGO = INIGO + [Link] + vbNewLine
End If
If [Link] Then
INIGO = INIGO + [Link] + vbNewLine
End If
If [Link] Then
INIGO = INIGO + [Link] + vbNewLine
End If
If [Link] Then
INIGO = INIGO + [Link] + vbNewLine
End If
If [Link] Then
INIGO = INIGO + [Link] + vbNewLine
End If
If [Link] Then
INIGO = INIGO + [Link] + vbNewLine
End If
If [Link] Then
INIGO = INIGO + [Link] + vbNewLine
End If
If [Link] Then
INIGO = INIGO + [Link] + vbNewLine
End If
[Link](INIGO + vbNewLine)

End Sub

Private Sub Timer1_Tick_1(sender As Object, e As EventArgs) Handles [Link]


[Link] = [Link]("dddd, MMMM, dd, yyyy")
[Link] = [Link]("hh:mm:ss:tt")
End Sub
End Class

You might also like