by chandra mohan (3 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 11th May 2007
Date Added: Mon 8th February 2021
Rating: (1 Votes)
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)
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