GUI - Графический интерфейс - создание ListBox

GUICreate('', 300, 200)
$list = GUICtrlCreateListView('Переменная|Значение', 10, 10, 280, 180)
GUICtrlCreateListViewItem('1|12',$list)
GUICtrlCreateListViewItem('2|12',$list)
GUICtrlCreateListViewItem('3|12',$list)
GUICtrlCreateListViewItem('4|12',$list)
GUICtrlCreateListViewItem('5|12',$list)
GUICtrlCreateListViewItem('6|12',$list)
GUICtrlCreateListViewItem('7|12',$list)
GUICtrlCreateListViewItem('8|12',$list)
GUICtrlCreateListViewItem('9|12',$list)
GUICtrlCreateListViewItem('10|12',$list)
GUICtrlCreateListViewItem('11|12',$list)
GUICtrlCreateListViewItem('12|12',$list)
GUICtrlCreateListViewItem('13|12',$list)
GUICtrlCreateListViewItem('14|12',$list)
GUICtrlCreateListViewItem('15|12',$list)
GUICtrlCreateListViewItem('16|12',$list)
GUISetState()

While 1
	Switch GUIGetMsg()
	Case -3
		Exit
	EndSwitch
WEnd

GUICtrlCreateListViewItem('1|12',$list)

#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
$hGUI= GUICreate("Тест ListView", 220, 180)
; тире делает колонку шире, стили скрывают заголовок колонки, сохранять выделение при потери фокуса; дополнительные стили - подсветка всей выбранной строки, чекбоксы в списке
$hListView = GUICtrlCreateListView  ('---------------' ,5,5,210,70 , $LVS_NOCOLUMNHEADER + $LVS_SHOWSELALWAYS, $LVS_EX_FULLROWSELECT + $LVS_EX_CHECKBOXES)
GUICtrlSetBkColor(-1,0xf0f0f0) ; 0xE0DFE3 - цвет стандартный серый
$item1=_GUICtrlListView_AddItem($hListView,'итем' ) ; создаём пункты
$item2=_GUICtrlListView_AddItem($hListView,'ха' )
$item3=_GUICtrlListView_AddItem($hListView,'новое' )
$item4=_GUICtrlListView_AddItem($hListView,'вот ещё' )
  
_GUICtrlListView_SetItemChecked($hListView,$item1) ; отмечаем галочкой чекбоксы
_GUICtrlListView_SetItemChecked($hListView, $item3)

$start=GUICtrlCreateButton ("жми", 135,95,55,22)
$Pos=GUICtrlCreateButton ("размер", 35,95,55,22)
GUICtrlCreateLabel ('В отличии от обычных чекбоксов в окне, в ListView есть прокрутка в ящике, если строки не вмещаются.', 5,125,210,50)

GUISetState   ()

While 1
	$msg = GUIGetMsg()
	Select
		Case $msg = $start ; проверяем галочки в чекбоксах
			If _GUICtrlListView_GetItemChecked($hListView,$item1)=1 Then MsgBox(0, "Сообщение",' "итем" отмечен.', 4)
			If _GUICtrlListView_GetItemChecked($hListView,$item2)=1 Then MsgBox(0, "Сообщение",' "ха" отмечен.', 4)
			If _GUICtrlListView_GetItemChecked($hListView,$item3)=1 Then MsgBox(0, "Сообщение",' "новое" отмечен.', 4)
			If _GUICtrlListView_GetItemChecked($hListView,$item4)=1 Then MsgBox(0, "Сообщение",' "вот ещё" отмечен.', 4)
		Case $msg = $Pos ; меняем размер для проверки скрола
			GUICtrlSetPos ($hListView, 5,5,210,80)
		Case $msg = -3
			ExitLoop
	EndSelect
WEnd

$hListView = GUICtrlCreateListView  ('---------------' ,5,5,210,70 ,, $LVS_NOCOLUMNHEADER + $LVS_SHOWSELALWAYS)

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <GUIListView.au3>

$GUI = GUICreate("GEPARD3.2.1", 610, 280, -1, -1, BitOR($WS_CAPTION, $WS_POPUP, $WS_SYSMENU))

$nTab = GUICtrlCreateTab(5, 5, 590, 240)

GUICtrlCreateTabItem("Общие")

GUICtrlCreateTabItem("Входные параметры")

; Last option Calls CoInitializeEx
$hListView = _GUICtrlListView_Create($GUI, "", 15, 40, 466, 190, BitOR($LVS_REPORT, $LVS_SINGLESEL, $LVS_NOSORTHEADER), $WS_EX_CLIENTEDGE, True)

_GUICtrlListView_InsertColumn($hListView, 0, "Входные параметры", 225)
_GUICtrlListView_InsertColumn($hListView, 1, "Значения", 220)

For $i = 1 To 77
	_GUICtrlListView_AddItem($hListView, "")
Next

$sURL = "http://s002.radikal.ru/i198/1004/7e/dc8579ff254a.jpg"
$sFile = @TempDir & "\LV_Back.jpg"
InetGet($sURL, $sFile)
_GUICtrlListView_SetBkImage($hListView, $sFile)

GUICtrlCreateTabItem("")


$nLoad_Buttton = GUICtrlCreateButton("&Загрузить", 485, 180, 100, 22)
$nSave_Buttton = GUICtrlCreateButton("&Сохранить", 485, 210, 100, 22)

GUICtrlCreateButton("Ок", 335, 250, 80, 22)
GUICtrlCreateButton("Отмена", 425, 250, 80, 22)
GUICtrlCreateButton("Сброс", 515, 250, 80, 22)

WinSetState($hListView, "", @SW_HIDE)
GUICtrlSetState($nLoad_Buttton, $GUI_HIDE)
GUICtrlSetState($nSave_Buttton, $GUI_HIDE)

GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
GUISetState(@SW_SHOW)

While 1
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			ExitLoop
		Case $nTab
			GUISetState(@SW_LOCK)
			
			If GUICtrlRead($nTab) = 1 Then
				WinSetState($hListView, "", @SW_SHOW)
				
				GUICtrlSetState($nLoad_Buttton, $GUI_SHOW)
				GUICtrlSetState($nSave_Buttton, $GUI_SHOW)
			Else
				WinSetState($hListView, "", @SW_HIDE)
				
				GUICtrlSetState($nLoad_Buttton, $GUI_HIDE)
				GUICtrlSetState($nSave_Buttton, $GUI_HIDE)
			EndIf
			
			GUISetState(@SW_UNLOCK)
	EndSwitch
WEnd

;=========================================================================================================
DllCall('ole32.dll', 'long', 'CoUinitialize') ; Must call for each CoInitializeEx call made
;=========================================================================================================

Func WM_NOTIFY($hWndGUI, $MsgID, $wParam, $lParam)
	Local $TagNMHDR = DllStructCreate("int hWndFrom;int iIDFrom;int iCode;int iItem;int iButton;ptr pitem", $lParam)
	If @error Then Return $GUI_RUNDEFMSG
	
	Local $hWndFrom = DllStructGetData($TagNMHDR, "hWndFrom")
	Local $iEvent = DllStructGetData($TagNMHDR, "iCode")
	
	Switch $hWndFrom
		Case _GUICtrlListView_GetHeader($hListView)
			Switch $iEvent
				Case $HDN_ITEMCHANGING, $HDN_ITEMCHANGINGW
					Return 1 ;Prevent columns resizing
			EndSwitch
		Case $hListView
			Switch $iEvent
				Case $LVN_ITEMCHANGING, $LVN_BEGINDRAG
					Return 1 ;Prevent items selection
			EndSwitch
	EndSwitch
	
	Return $GUI_RUNDEFMSG
EndFunc