PROGRAMMING VB 6.0

PROGRAMMING VB 6.0

REGISTRATION APPLICATION:

CODING FOR REGISTRATION APPLICATION:

Dim message As String

message = "UNIVERSITY" + Lstuniv.Text + vbCr

message = message + "PROGRAMME" + cboprog.Text + vbCr

message = message + "HOSTEL" + cbohos.Text + vbCr

MsgBox message, vbOKOnly + vbInformation, "STUDENTDETAILS"

End Sub

Private Sub cmddetail_Click()

Private Sub cmdexit_Click()

End

End Sub

Private Sub Form_Load()

Lstuniv.Clear

Lstuniv.AddItem "MUBS"

Lstuniv.AddItem "MUK"

Lstuniv.AddItem "KYU"

Lstuniv.AddItem "MUST"

Lstuniv.ListIndex = 0

cboprog.AddItem "BBC"

cboprog.AddItem "BOIM"

cboprog.AddItem "BCOM"

cboprog.ListIndex = 0

cbohos.AddItem "BERLIN"

cbohos.AddItem "AKA"

cbohos.AddItem "LANDMARK"

cbohos.AddItem "BAHESI"

cbohos.ListIndex = 0

End Sub

OPTION BUTTONS AND CHECK BOX APPLICATION:

CODING FOR OPTION BUTTONS AND CHECKBOX:

Dim studProg, studHos, studwhen As String

Private Sub cmddis_Click()

Dim i As Integer

Dim message As String

message = studProg + vbCr

message = message + studHos + vbCr

message = message + studwhen + vbCr

For i = 0 To 5

If chkcoz(i).Value = vbChecked Then message = message + chkcoz(i).Caption + vbCr

Next i

MsgBox message, vbOKOnly, "STUDENTS DETAILS"

End Sub

Private Sub cmdEnd_Click()

End

End Sub

Private Sub Form_Load()

studProg = "BBC1"

studHos = "AKA"

studwhen = "DAY"

End Sub

Private Sub opthos_Click(Index As Integer)

studHos = opthos(Index).Caption

End Sub

Private Sub optprog_Click(Index As Integer)

studProg = optprog(Index).Caption

End Sub

Private Sub optwhen_Click(Index As Integer)

studwhen = optwhen(Index).Caption

End Sub