How to Create Quiz Application In Visual Baisc

To create a Quiz application by using VB 6.0
Source Coding in Visual Programming
1.ActiveX Control
A.User Control
Public Property Get result() As Double
result = Val(Form3.Text2.Text)
End Property

Private Sub Command1_Click()
Form1.Show
End Sub

Private Sub Command2_Click()
Form2.Show
End Sub

Private Sub Command3_Click()
Form3.Show
End Sub
B.Form 1
Private Sub Command1_Click()
If Option2.Value = True Then
Text1.Text = Val(Text1.Text) + 10
End If
If Option6.Value = True Then
Text1.Text = Val(Text1.Text) + 10
End If
Me.Hide
End Sub

C.Form 2
Private Sub Command1_Click()
If Option1.Value = True Then
Text1.Text = Val(Text1.Text) + 10
End If
If Option6.Value = True Then
Text1.Text = Val(Text1.Text) + 10
End If
Me.Hide
End Sub

D.Form 3
Private Sub Command1_Click()
If Option3.Value = True Then
Text1.Text = Val(Text1.Text) + 10
End If
If Option5.Value = True Then
Text1.Text = Val(Text1.Text) + 10
End If
Text2.Text = Val(Form1.Text1.Text) + Val(Form2.Text1.Text) + Val(Text1.Text)
Me.Hide
End Sub
2.Standard EXE
a.Form 1
Private Sub Command1_Click()
Form2.Show


Me.Hide
End Sub

b.Form 2
Private Sub Command1_Click()
Form3.Show
Form3.Text2.Text = UserControl11.result
Me.Hide
End Sub

c.Form 3
Private Sub Command1_Click()
Data1.Recordset.AddNew
Data1.Recordset.Fields(0) = Text1.Text
Data1.Recordset.Fields(1) = Val(Text2.Text)
Data1.Recordset.Update
End Sub

Private Sub Command2_Click()
DataReport1.Show
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Text1.Text = Form1.Text1.Text
End Sub
Quiz application by using VB 6.0

Related post