Hi all.
I have a question regarding multiple list boxes. I am coding for Visual Basic 6.
I am developing a box office program and it is nearly complete. However, I have four listboxes, one for show name, one for time, one for date and one for day. The listboxes sit side by side.
The show listbox is lst_show
The date listbox is lst_date
The day listbox is lst_day
The time listbox is lst_time
At the moment all the code to select the show is called by clicking the name in the show listbox. I have coded the others to follow the selection (all in a mouse down event).
All is good and the listboxes all follow each other. The problem I have is that I cannot get the event in lst_day, lst_date and lst_time to trigger the code in lst_show, the idea being that you can click the day, time, date or show to select it.
Sorry. The code was wrong and I cannot edit the post. this is the correct code:-
Hi all.
I have a question regarding multiple list boxes. I am coding for Visual Basic 6.
I am developing a box office program and it is nearly complete. However, I have four listboxes, one for show name, one for time, one for date and one for day. The listboxes sit side by side.
The show listbox is lst_show
The date listbox is lst_date
The day listbox is lst_day
The time listbox is lst_time
At the moment all the code to select the show is called by clicking the name in the show listbox. I have coded the others to follow the selection (all in a mouse down event).
All is good and the listboxes all follow each other.
The problem I have is that I cannot get the event in lst_day, lst_date and lst_time to trigger the code in lst_show, the idea being that you can click the day, time, date or show to select it.
That seems like you would need another control, like a grid instead of four listboxes.
Because if 4 data need to be synchronized, it is like they should be displayed in the same line I think.
Anyway, to synchronize the four listboxes:
Code:
Private Sub Lst_date_Click()
Lst_time.ListIndex = Lst_date.ListIndex
Lst_day.ListIndex = Lst_date.ListIndex
Lst_show.ListIndex = Lst_date.ListIndex
End Sub
Private Sub Lst_day_Click()
Lst_date.ListIndex = Lst_day.ListIndex
End Sub
Private Sub Lst_show_Click()
Lst_date.ListIndex = Lst_show.ListIndex
End Sub
Private Sub Lst_time_Click()
Lst_date.ListIndex = Lst_time.ListIndex
End Sub
Lst_date sets the other three. And the other three only need to set Lst_date.
Or a ListView. The way he describes it, I'd tend to grab the ListView.
Any software I post in these forums written by me is provided "AS IS" without warranty of any kind, expressed or implied, and permission is hereby granted, free of charge and without restriction, to any person obtaining a copy. To all, peace and happiness.
The text from these is used to print the info on the tickets.
As I said, the listboxes follow eachother fine. However, the lst_show listbox is the one that fires of loads of code and opens and reads multiple files from the HDD. I just cannot get the other listboxes to trigger the lst_shows click event (just like clicking on that listbox form any of the others).
All the code is in the lst_show (click) I need the same events to run from any of the listboxes clicked on that index, without placing the same code in every listbox. IE: click the lst_show box in code rather than on it.
I posted the code for each of the listboxes in the first post. The code in the show listbox is around 200 lines. all the code and the system is working fine, but you can only run the code by clicking on the show listbox ONLY. I want to trigger the code in the show listbox from any of the others.
All the listboxes are responding to the click event to select the other listboxes at the correct index all at the same time (that bit works). I need to trigger the code in the show listbox from any of the others as if they are one listbox.
Private Sub List1_Click()
DoTheThing (List1.ListIndex)
End Sub
Private Sub List2_Click()
DoTheThing (List2.ListIndex)
End Sub
Private Sub List3_Click()
DoTheThing (List3.ListIndex)
End Sub
Private Sub List4_Click()
DoTheThing (List4.ListIndex)
End Sub
Private Sub DoTheThing(ByVal i As Integer)
'Do the 200 lines of code here
End Sub
I did have to do it with a call to the code from each of the listboxes and link them together with the "listsbox.listindex = listbox.listindex on the mousedown event.
Reply With Quote
Originally Posted by dmxdan
