Wednesday, 27 May 2015

Learn Visual Basic 6.0- ListBox Control- Advanced- Hospital Wards - Pat...


Hospital Wards - Patients Health Status Application
In App, Two List Boxes List1 "Ward" and List2 "Patients" are used .
When we click on the any ward i.e ICU,GENERAL,TROMA...in ward list,Name of patients of the particular will be appeared in the Patients List.
Secondly,When you click on the name of the patient in the Patient List,It will show the Health Status of that Patient.
This demonstration is only illustrating the working of listbox control in depth.
Just watch first 5 seconds of the video to know more about this app
 Source code
http://www.mediafire.com/view/15c9qh0ptkfrayf/List_Box_-Hospital_App.txt

Please do the comments and Like:-) 



Source Code for Hospital Wards - Patients Health Status Application:
Private Sub List1_Click()
Dim ward As String
ward = List1.Text
Select Case ward
Case "ICU"
List2.Clear
List2.AddItem "Ramesh"
List2.AddItem "Kamal"
List2.AddItem "Raman"
Case "TROMA CENTRE"
List2.Clear
List2.AddItem "Sanjeev"
List2.AddItem "Kamal"
List2.AddItem "Palvinder"
Case "MATERNITY"
List2.Clear
List2.AddItem "Priya"
List2.AddItem "Naina"
List2.AddItem "Reena"
Case "GENERAL"
List2.Clear
List2.AddItem "Jonny"
List2.AddItem "Kewal"
List2.AddItem "Raman"
Case "PRIVATE"
List2.Clear
List2.AddItem "Rajinder"
List2.AddItem "Kishore"
List2.AddItem "Rajan"
Case "CHILDREN"
List2.Clear
List2.AddItem "Rocky"
List2.AddItem "Mohit"
List2.AddItem "Aman"
End Select
End Sub

Private Sub List2_Click()
If List2.Text = "Ramesh" Then
Text1.Text = "Patient is Under Medical Supervision"
ElseIf List2.Text = "Sanjeev" Then
Text1.Text = "Patient is Critical"
ElseIf List2.Text = "Jonny" Then
Text1.Text = "Patient is  under rehablitation"
Else
End If
End Sub