home *** CD-ROM | disk | FTP | other *** search
/ PCNET 2006 September - Disc 1 / PCNET_CD_2006_09.iso / shareware / autoit-v3-setup.exe / Examples / Helpfile / _GUICtrlListSetLocale.au3 < prev    next >
Encoding:
Text File  |  2006-06-17  |  1.1 KB  |  36 lines
  1. #include <GUIConstants.au3>
  2. #include <GuiList.au3>
  3.  
  4. Opt('MustDeclareVars',1)
  5.  
  6. Dim $msg, $ret,$listbox,$button,$button2
  7.  
  8. GUICreate("ListBox Get Locale Demo",400,250,-1,-1)
  9. $listbox = GUICtrlCreateList("",125,40,180,120)
  10. GUICtrlSetData($listbox,"test1|more testing|even more testing|demo|test2|test3|test4|test5|test6|test7|test8|test9|test10")
  11. $button = GUICtrlCreateButton('Set Locale English',85,160,120,40)
  12. $button2 = GUICtrlCreateButton('Set Locale Spanish',210,160,120,40)
  13.  
  14. GUISetState ()
  15. While 1
  16.     $msg = GUIGetMsg()
  17.     Select
  18.         Case $msg = $GUI_EVENT_CLOSE
  19.             ExitLoop
  20.         Case $msg = $button
  21.             $ret = _GUICtrlListSetLocale($listbox,"0409") ; U.S. English
  22.             If($ret == $LB_ERR) Then
  23.                 MsgBox(16,"Error","Unknown error from _GUICtrlListSetLocale")
  24.             Else
  25.                 MsgBox(0,"Previous Locale",$ret)
  26.             EndIf
  27.         Case $msg = $button2
  28.             $ret = _GUICtrlListSetLocale($listbox,"040a")    ;Spanish_Traditional_Sort
  29.             If($ret == $LB_ERR) Then
  30.                 MsgBox(16,"Error","Unknown error from _GUICtrlListSetLocale")
  31.             Else
  32.                 MsgBox(0,"Previous Locale",$ret)
  33.             EndIf
  34.     EndSelect
  35. Wend
  36.