Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

Having problems with listboxes interacting with each other!

vashtheherovashthehero Member Posts: 1
Hello, I've just started working with Visual Basic (roughly 3 months now) and I've seem to hit a snag. The project at hand that I need to do is to make a Airplane Seating Chart program.

This is what my program looks like so far (design-wise):

http://img.photobucket.com/albums/v311/state_alchemist/Untitled-1-1.jpg

The problem that I can't seem to figure out is [u]how I'm suppose to get seating chart (seatSets) to interact with the individual seat listboxes[/u] (ie. seatA, seatB and so on).

Here's my code so far:

Public Class Form1

Dim meal As String
Dim rows(14, 5) As String
Dim seat1 As String, seat2 As String, seat3 As String, seat4 As String, seat5 As String, seat6 As String

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim column As String
seatSets.Items.Clear()
column = seatSets.Items.Add(" A B C D E F")
For rows As Integer = 0 To 14
seatSets.Items.Add(" . . . . . .")
Next
seatA.Items.Add(" . ")
seatB.Items.Add(" . ")
seatC.Items.Add(" . ")
seatD.Items.Add(" . ")
seatE.Items.Add(" . ")
seatF.Items.Add(" . ")
End Sub

Private Sub seatSets_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles seatSets.SelectedIndexChanged
Dim rowSelect As String
End Sub

Private Sub rowNum_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rowNum.SelectedIndexChanged

End Sub

Private Sub seatA_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles seatA.SelectedIndexChanged

End Sub

Private Sub seatB_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles seatB.SelectedIndexChanged

End Sub

Private Sub seatC_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles seatC.SelectedIndexChanged

End Sub

Private Sub seatD_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles seatD.SelectedIndexChanged

End Sub

Private Sub seatE_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles seatE.SelectedIndexChanged

End Sub

Private Sub seatF_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles seatF.SelectedIndexChanged

End Sub
End Class

If anyone can please help me with this, I'd be most appreciative. Thank you.
Sign In or Register to comment.