From:

 Jeff Weiss

Subject:

 xml listview dialog

Date:

 Mon, May 10, 2010 3:08:59 pm

charset="us-ascii"

I pieced together this example from the scripting manual, but something
is not right here.

Can somebody explain what is wrong with this listview dialog.

I Have to press downarrow five times to hear the entire data, but when I
get to the speak function, I still just get "Aaron".

Thanks,

Jeff Weiss





' We'll assume we have a list view whose ID is "listview1" which
contains no items by default using the following XML



'

' Name

' Favorite Color

' Favorite Number

'



' ListView



Dim isVisible : isVisible = 0

Dim Mark : Mark = 0



Set myKey = Keyboard.Keys(vk_I)

myKey.RequireModifiers(kmControl + kmShift + kmAlt)

ConnectEvent myKey, "OnKeyProcessedUp", "LaunchDialog"

Sub LaunchDialog(k, km)

If isVisible = 0 Then

Queue "DisplayDialog"

End If

End Sub



Sub DisplayDialog()

Dialog "ListView.xml", "MyDialog1", "DialogEventHandler"

End Sub



Function DialogEventHandler(dObj, dEvent, dId, dControl)

DialogEventHandler = False

End Function



Function DialogEventHandler(dObj, dEvent, dId, dControl)

DialogEventHandler = False

' Now we'll add a single item to the list view



If Mark