Thanks for the examples.  I’ll have to study this some more to figure out how 
to fit it into the select case structure.
Jeff


ma

From: LB 
Sent: Saturday, January 11, 2014 9:19 PM
To: [email protected] 
Subject: Re: listbox change

Hi Again Jeff,

    This is a list box in my Clipboard app where I move items up and down a 
list. It also has 2 items for I break out paths and names so there is a sub 
item in the list, or a second column.

    So when you have moved up or down using the cursor in the list you will use 
the focused method.

Sub MoveUpList()
'Move Up List View.
Dim text, text1, row
On Error Resume Next
row = LV_Control.Items.focused.Index
text = LV_Control.Items.focused.text
text1 = LV_Control.Items.focused.text(1)
If row > 1 Then
  Silence
  row = row - 2
  Speak " Moving Up "
  AddListItem LV_Obj, FileListName, row, text & text1
  LV_Control.Items.focused.Delete()
End If
End Sub

Sub MoveDownList()
'Move Down List View.
Dim text, text1, row
On Error Resume Next
row = LV_Control.Items.focused.Index
text = LV_Control.Items.focused.text
text1 = LV_Control.Items.focused.text(1)
If row < LV_Control.Items.Count Then
  row = row + 1
  Speak " Moving Down "
  AddListItem LV_Obj, FileListName, row, text & text1
  LV_Control.Items.focused.Delete()
End If
End Sub


        Bruce

  Sent: Saturday, January 11, 2014 9:31 PM
  Subject: Re: listbox change



   
    Hi Again Jeff,

        Now for a list box you have all rolled into one and the property using 
FocusedIndex or method using SelectedIndex will give you the object index of 
the one which has focus or is selected.

    Long_Value = Object.FocusedIndex
    Long_Value = Object.SelectedIndex

        then you can get the data and text with the index in parens.

            Bruce



      Sent: Saturday, January 11, 2014 9:01 PM
      Subject: listbox change

      How can you find out when a focused listitem changes in a dialog?
      I am trying to use select case and it works fine when a button is 
pressed, but I want to find out when the user presses the up or down arrow in 
the list itself.
      thanks
      Jeff Weiss




----------------------------------------------------------------------------
            This email is free from viruses and malware because avast! 
Antivirus protection is active. 
         





------------------------------------------------------------------------------
          This email is free from viruses and malware because avast! Antivirus 
protection is active. 
       





--------------------------------------------------------------------------------
        This email is free from viruses and malware because avast! Antivirus 
protection is active. 
     

Reply via email to