• Home
 · 
• Miscellaneous
 · 
• A simple flight reservation plan

A simple flight reservation plan

A simple flight reservation plan

API Declarations


listbox name-lstcities
textbox name-txt_name
command1 name-Cmdassign caption-&Assign
command2 name-cmdexit caption-E&xit
form name-frmflight caption-Flight Planner
combobox style for both= 2-dropdown list name-cboMeal(for combo2)
name-Cboseat(for combo1)



Rate A simple flight reservation plan

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Dim Message As String

MsgBox " HAVE A PLEASENT JOURNEY"
Message = "your name is" & txt_name.Text + vbCr
Message = Message + "Destination: " + lstcities.Text + vbCr
Message = Message + "Seat Location: " + Cboseat.Text + vbCr
Message = Message + "Meal: " + cboMeal.Text + vbCr
MsgBox Message, vbOKOnly + vbInformation, "Your Assignment "

End Sub

Private Sub cmdexit_Click()
   End
End Sub

Private Sub Form_Load()

lstcities.Clear
lstcities.AddItem "BANGALORE"
lstcities.AddItem "Los Angeles"
lstcities.AddItem "Orange County"
lstcities.AddItem "HYDERABAD"
lstcities.AddItem "Bakersfield"
lstcities.AddItem "Oakland"
lstcities.AddItem "Sacramento"
lstcities.AddItem "NEW YORK"
lstcities.AddItem "San Francisco"
lstcities.AddItem "Eureka"
lstcities.AddItem "CHENNAI"
lstcities.AddItem "Portland"
lstcities.AddItem "Spokane"
lstcities.AddItem "Seattle"
lstcities.ListIndex = 0

Cboseat.AddItem "Aisle"
Cboseat.AddItem "Middle"
Cboseat.AddItem "Window"
Cboseat.ListIndex = 0

cboMeal.AddItem "Chicken"
cboMeal.AddItem "Mystery Meat"
cboMeal.AddItem "Kosher"
cboMeal.AddItem "Vegetarian"
cboMeal.AddItem "Fruit Plate"
cboMeal.ListIndex = 3
End Sub