home *** CD-ROM | disk | FTP | other *** search
/ PCNET 2006 September - Disc 1 / PCNET_CD_2006_09.iso / shareware / autoit-v3-setup.exe / Examples / Helpfile / _GUICtrlListViewEnsureVisible.au3 < prev    next >
Encoding:
Text File  |  2006-06-20  |  930 b   |  28 lines
  1. #include <GuiConstants.au3>
  2. #include <GuiListView.au3>
  3.  
  4. Opt ('MustDeclareVars', 1)
  5. Dim $listview, $Btn_Exit, $msg, $i, $Styles, $Btn_visible, $i
  6. GUICreate("ListView Ensure Visible", 392, 322)
  7.  
  8. $listview = GUICtrlCreateListView("col1|col2|col3", 40, 30, 310, 144)
  9. GUICtrlSendMsg($listview, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES)
  10. GUICtrlSendMsg($listview, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_FULLROWSELECT, $LVS_EX_FULLROWSELECT)
  11. For $i = 1 To 20
  12.     GUICtrlCreateListViewItem("line" & $i & "|data" & $i & "|more" & $i, $listview)
  13. Next
  14. $Btn_visible = GUICtrlCreateButton("Set Visible", 150, 230, 90, 40)
  15. $Btn_Exit = GUICtrlCreateButton("Exit", 300, 260, 70, 30)
  16.  
  17. GUISetState()
  18. While 1
  19.     $msg = GUIGetMsg()
  20.     Select
  21.         Case $msg = $GUI_EVENT_CLOSE Or $msg = $Btn_Exit
  22.             ExitLoop
  23.         Case $msg = $Btn_visible
  24.             _GUICtrlListViewEnsureVisible($listview, 12, 1)
  25.     EndSelect
  26. WEnd
  27. Exit
  28.