Scribd
Upload
54 views

DBMS RECORD - Front End Tools Visual Basic

The document describes creating a registration form using Visual Basic front-end tools. It includes steps to create the form with controls, write code for functions, save the project, and execute the form. The coding section includes code for populating dropdowns and lists from controls, capturing gender and area of study selections, and displaying messages based on radio button selections.

Uploaded by

Pradeep Kumar
Copyright
© Attribution Non-Commercial (BY-NC)
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
54 views

DBMS RECORD - Front End Tools Visual Basic

The document describes creating a registration form using Visual Basic front-end tools. It includes steps to create the form with controls, write code for functions, save the project, and execute the form. The coding section includes code for populating dropdowns and lists from controls, capturing gender and area of study selections, and displaying messages based on radio button selections.

Uploaded by

Pradeep Kumar
Copyright
© Attribution Non-Commercial (BY-NC)
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
You are on page 1/ 3

EX: NO: 6 FRONT END TOOLS

AIM

To design a form using different tools in Visual Basic.

PROCEDURE

STEP 1: Start

STEP 2: Create the form with essential controls in tool box.

STEP 3: Write the code for doing the appropriate functions.

STEP 4: Save the forms and project.

STEP 5: Execute the form .

STEP 6: Stop

CODING:

Private Sub Calendar1_Click()


Text3.Text = Calendar1.Value
End Sub

Private Sub Combo1_Change()


Combo1.AddItem "BSC"
Combo1.AddItem "MSC"
Combo1.AddItem "BE"
Combo1.AddItem "ME"
End Sub

Private Sub Command1_Click()


List1.AddItem Text1.Text
List1.AddItem Text2.Text
If Option1.Value = True Then
gender = "male"
End If
If Option2.Value = True Then
gender = "female"
End If
List1.AddItem gender
List1.AddItem Text3.Text

If Check1.Value = 1 And Check2.Value = 1 Then


area = "software Engineering & Networks"
End If
If Check1.Value = 0 And Check2.Value = 1 Then
area = " Networks"
End If
List1.AddItem area
List1.AddItem Text4.Text

End Sub

Private Sub Command2_Click()


End
End Sub

Private Sub Command3_Click()


If List1.ListIndex <> 0 Then
List1.RemoveItem (0)
End If
End Sub

Private Sub Form_Load()


Label10.Caption = Date$
MsgBox "Welcome to Registration"

End Sub

Private Sub Option1_Click()


If (Option1.Value = True) Then
MsgBox ("You have selected Male")
ElseIf (Option2.Value = True) Then
MsgBox ("You have selected Female")
End If
End Sub

Private Sub Option2_Click()


If (Option1.Value = True) Then
MsgBox ("You have selected Male")
ElseIf (Option2.Value = True) Then
MsgBox ("You have selected Female")
End If
End Sub

Result:
OUTPUT:
REGISTRATION FORM

You might also like