Another Listbox question

Post

Posted
Rating:
#1 (In Topic #1434)
rj71
Regular
rj71 is in the usergroup ‘Regular’
I have been experimenting with a listbox and asked some questions previously. This project is evolving and I now have a form that loads up a listbox with non-sequential numbers. I have 2 buttons, one button advances 1 item/index in the Listbox. Another button goes backwards 1 item/index in the listbox. This works great and I have got it to the point where either button can advance to either the start or the end of the listbox without throwing an error…basically making the listbox a "loop". I want to introduce a "look ahead" function. So if index 0 is currently selected then I want to get the items of index 1, 2, 3, 4 and 5 and store those in a textbox and adjust accordingly when the Next button is clicked. I have this working as well even if the index is near the end of the listbox.count. Doing the "look backwards" 5 in reverse is just throwing out of bounds errors. Here is some code: (I have separated the Next and Look Ahead process into 2 buttons trying to make less messy for me). Any help to get the 5 previous items/index worked into the Back button would be appreciated….this is getting to be frustrating.

Code (gambas)

  1. Public Sub next_Click()
  2. If ValueBox1.Value = ListBox1.count - 1 Then
  3.   'nothing more to advance
  4.   ValueBox1.Value = 0
  5.   listbox1.Index = 0
  6.   TextBox2.Text = ListBox1.Current.Text
  7.   ValueBox2.Value = lb1count.Value
  9.   ListBox1.Index = ValueBox1.value + 1
  10.   TextBox2.Text = ListBox1.Current.Text
  11.  Wait 0.1
  12.  ValueBox1.Value = ListBox1.Index
  13.  TextBox2.Text = ListBox1.Current.Text
  14.  ValueBox2.Value = lb1count.Value - ValueBox1.Value
  15.  
  16.  fiveahead_Click
  17.  
  19.  
  20. Public Sub fiveahead_Click()
  21. If ValueBox2.value > 5 Then
  22.   listbox1.index = ValueBox1.Value + 1
  23.    pos1.Text = listbox1.Current.Text
  24.   listbox1.index = ValueBox1.Value + 2
  25.    pos2.Text = listbox1.Current.Text
  26.   listbox1.index = ValueBox1.Value + 3
  27.    pos3.Text = listbox1.Current.Text
  28.    listbox1.index = ValueBox1.Value + 4
  29.   pos4.Text = listbox1.Current.Text
  30.   listbox1.index = ValueBox1.Value + 5
  31.   pos5.Text = listbox1.Current.Text
  32.  
  33.   'go back to what was requested
  34.   listbox1.index = ValueBox1.Value
  36.  
  37.  
  38.  If ValueBox2.value = 5 Then
  39.   listbox1.index = ValueBox1.Value + 1
  40.   pos1.Text = listbox1.Current.Text
  41.    listbox1.index = ValueBox1.Value + 2
  42.    pos2.Text = listbox1.Current.Text
  43.    listbox1.index = ValueBox1.Value + 3
  44.    pos3.Text = listbox1.Current.Text
  45.    listbox1.index = ValueBox1.Value + 4
  46.    pos4.Text = listbox1.Current.Text
  47.    
  48.    listbox1.index = lb1count.Value - listbox1.count
  49.    pos5.Text = listbox1.Current.Text
  50.   'go back to what was requested
  51.   listbox1.index = ValueBox1.Value
  53.  
  54.  If ValueBox2.value = 4 Then
  55.   listbox1.index = ValueBox1.Value + 1
  56.   pos1.Text = listbox1.Current.Text
  57.    listbox1.index = ValueBox1.Value + 2
  58.    pos2.Text = listbox1.Current.Text
  59.    listbox1.index = ValueBox1.Value + 3
  60.    pos3.Text = listbox1.Current.Text
  61.    listbox1.index = lb1count.Value - listbox1.count
  62.    pos4.Text = listbox1.Current.Text
  63.    
  64.    listbox1.index = lb1count.Value - (listbox1.count - 1)
  65.    pos5.Text = listbox1.Current.Text
  66.   'go back to what was requested
  67.   listbox1.index = ValueBox1.Value
  69.  
  70. If ValueBox2.value = 3 Then
  71.   listbox1.index = ValueBox1.Value + 1
  72.   pos1.Text = listbox1.Current.Text
  73.    listbox1.index = ValueBox1.Value + 2
  74.    pos2.Text = listbox1.Current.Text
  75.    listbox1.index = lb1count.Value - listbox1.count
  76.    pos3.Text = listbox1.Current.Text
  77.    listbox1.index = lb1count.Value - (listbox1.count - 1)
  78.    pos4.Text = listbox1.Current.Text
  79.    
  80.    listbox1.index = lb1count.Value - (listbox1.count - 2)
  81.    pos5.Text = listbox1.Current.Text
  82.   'go back to what was requested
  83.   listbox1.index = ValueBox1.Value
  85.  
  86.  If ValueBox2.value = 2 Then
  87.   listbox1.index = ValueBox1.Value + 1
  88.   pos1.Text = listbox1.Current.Text
  89.    listbox1.index = lb1count.Value - listbox1.count
  90.    pos2.Text = listbox1.Current.Text
  91.    listbox1.index = lb1count.Value - (listbox1.count - 1)
  92.    pos3.Text = listbox1.Current.Text
  93.    listbox1.index = lb1count.Value - (listbox1.count - 2)
  94.    pos4.Text = listbox1.Current.Text
  95.    listbox1.index = lb1count.Value - (listbox1.count - 3)
  96.    pos5.Text = listbox1.Current.Text
  97.   'go back to what was requested
  98.   listbox1.index = ValueBox1.Value
  100.  
  101.  If ValueBox2.value = 1 Then
  102.   listbox1.index = lb1count.Value - listbox1.count
  103.   pos1.Text = listbox1.Current.Text
  104.    listbox1.index = lb1count.Value - (listbox1.count - 1)
  105.    pos2.Text = listbox1.Current.Text
  106.    listbox1.index = lb1count.Value - (listbox1.count - 2)
  107.    pos3.Text = listbox1.Current.Text
  108.    listbox1.index = lb1count.Value - (listbox1.count - 3)
  109.    pos4.Text = listbox1.Current.Text
  110.    listbox1.index = lb1count.Value - (listbox1.count - 4)
  111.    pos5.Text = listbox1.Current.Text
  112.   'go back to what was requested
  113.   listbox1.index = ValueBox1.Value
  115.  
  117.  
  118.  


Here's the Back button:

Code (gambas)

  1.  
  2. Public Sub Button4_Click()
  3.  
  4. If ValueBox1.Value = 0
  5.   'nothing more to advance
  6.   ValueBox1.Value = lb1count.Value - 1
  7.   listbox1.Index = lb1count.Value - 1
  8.  
  9.   TextBox2.Text = ListBox1.Current.Text
  11.     ListBox1.Index = ValueBox1.value - 1
  12.     TextBox2.Text = ListBox1.Current.Text
  13.   Wait 0.1
  14.   ValueBox1.Value = ListBox1.Index
  15.  
  18.  
  19.  
  20.  
Online now: No Back to the top

Post

Posted
Rating:
#2
BruceSteers
Guru
BruceSteers is in the usergroup ‘Guru’
Stop using Wait unless you need the event loop to cycle.

My guess is you have things also set to events like ListBox1_Click.

If you set ListBox1.Index and then use Wait the ListBox1_Click event will trigger before you are done.

If you want to set something like a listbox but not trigger it's events try using Object.Lock()

Code (gambas)

  1.  
  2. Public Sub Button4_Click()
  3.  
  4. If ValueBox1.Value = 0
  5.   'nothing more to advance
  6.   ValueBox1.Value = lb1count.Value - 1
  7.  
  8.   Object.Lock(ListBox1) ' stop events
  9.   listbox1.Index = lb1count.Value - 1
  10.    Object.UnLock(ListBox1) ' restart events
  11.  
  12.   TextBox2.Text = ListBox1.Current.Text
  14.   Object.Lock(ListBox1) ' stop events
  15.     ListBox1.Index = ValueBox1.value - 1
  16.   Object.UnLock(ListBox1) ' stop events
  17.     TextBox2.Text = ListBox1.Current.Text
  18.   '  Wait 0.1 ' nope , don't do it, it really should not be needed,
  19.   ValueBox1.Value = ListBox1.Index
  20.    
  23.  

All my programs have a function called SetProp to set an objects property by locking it first so i can set properties without triggering events

Code (gambas)

  1.  
  2. Public Sub SetProp(Obj As Object, Prop As String, Value As Variant)
  3.  
  4.   Object.Lock(Obj) ' stop events
  5.   Object.SetProperty(Obj, Prop, Value) ' set property
  6.   Object.UnLock(Obj) ' restart events
  7.  
  9.  
  10.  
SetProp(listbox1, "Index", lb1count.Value - 1)

Note: some events can trigger even if locked, depending on the control.
Online now: No Back to the top

Post

Posted
Rating:
#3
rj71
Regular
rj71 is in the usergroup ‘Regular’
 Thanks Bruce. I actually don't remember why I put the Wait in there. I must have thought I needed it at some point. There is also no listbox_click event nor will there be. Eventually, the plan would be to have the listbox hidden so no clicking on it allowed as the buttons will do the movement. I will take out the Wait though.The concept of what I'm trying to accomplish seems simple but it's proving to not be.  I'm exhausted so I will get back at it tomorrow and try more things.
Online now: No Back to the top

Post

Posted
Rating:
#4
rj71
Regular
rj71 is in the usergroup ‘Regular’
I think I have solved this. Pretty much the same way as looking ahead 5 but for some reason I made more complicated than it needed to be. Thanks for your input Bruce!
Online now: No Back to the top
1 guest and 0 members have just viewed this.