home *** CD-ROM | disk | FTP | other *** search
/ PCNET 2006 September - Disc 1 / PCNET_CD_2006_09.iso / shareware / autoit-v3-setup.exe / Examples / Helpfile / _GUICtrlListGetTextLen.au3 < prev    next >
Encoding:
Text File  |  2006-06-17  |  867 b   |  29 lines
  1. #include <GUIConstants.au3>
  2. #include <GuiList.au3>
  3.  
  4. Opt ('MustDeclareVars', 1)
  5.  
  6. Dim $msg, $ret, $listbox, $button
  7.  
  8. GUICreate("ListBox Text Len Demo", 400, 250, -1, -1)
  9. GUICtrlCreateLabel("Select from list", 125, 10)
  10. $listbox = GUICtrlCreateList("", 125, 40, 180, 120)
  11. GUICtrlSetData($listbox, "test1|more testing|even more testing|demo|test2|test3|test4|test5|test6|test7|test8|test9|test10")
  12. $button = GUICtrlCreateButton('Exit', 150, 160, 120, 40)
  13.  
  14. GUISetState()
  15. While 1
  16.     $msg = GUIGetMsg()
  17.     Select
  18.         Case $msg = $GUI_EVENT_CLOSE Or $msg = $button
  19.             ExitLoop
  20.         Case $msg = $listbox
  21.             $ret = _GUICtrlListGetTextLen ($listbox, _GUICtrlListSelectedIndex ($listbox))
  22.             If ($ret == $LB_ERR) Then
  23.                 MsgBox(16, "Error", "Unknown error from _GUICtrlListGetTextLen")
  24.             Else
  25.                 MsgBox(0, "Text", "Length: " & $ret)
  26.             EndIf
  27.     EndSelect
  28. WEnd
  29.