Можно так:
читать дальше »
Код:
#include <GUIConstantsEx.au3>
#include <ListBoxConstants.au3>
#include <WindowsConstants.au3>
$Gui= GUICreate("Справочник", 386, 476, 192, 183)
GUISetBkColor(0x00FF00)
$listbox= GUICtrlCreateList("", 0, 23, 385, 432, BitOR($LBS_SORT, $WS_BORDER, $WS_VSCROLL, $LBS_NOTIFY, $LBS_MULTIPLESEL))
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800080)
$item =IniRead ( "settings.ini", "Telephons", "spisok", "default" )
GUICtrlSetData($listbox, $item)
GUICtrlCreateLabel("Список телефонов:", 8, 8, 102, 17)
$Exit_Button= GUICtrlCreateButton("Выход", 0, 448, 385, 25, 0)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE,$Exit_Button
Exit
EndSwitch
WEnd
В этом случае список будет хранится в ini файле, который должен находится в одной папке с этой программой. Вот примерное содержание этого ini файла (Его название settings.ini):
Код:
[Telephons]
spisok=Валя 1234567890|Вася 1234567890|Петя 1234567890|
Или же так, только в этом случае текст будет хранится уже не в ini файле, а в тексте программы:
Код:
#include <GUIConstantsEx.au3>
#include <ListBoxConstants.au3>
#include <WindowsConstants.au3>
$Gui= GUICreate("Справочник", 386, 476, 192, 183)
GUISetBkColor(0x00FF00)
$listbox= GUICtrlCreateList("", 0, 23, 385, 432, BitOR($LBS_SORT, $WS_BORDER, $WS_VSCROLL, $LBS_NOTIFY, $LBS_MULTIPLESEL))
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800080)
$item ="Валя 1234567890|Вася 1234567890|Петя 1234567890|яяя - и так дальше..."
GUICtrlSetData($listbox, $item)
GUICtrlCreateLabel("Список телефонов:", 8, 8, 102, 17)
$Exit_Button= GUICtrlCreateButton("Выход", 0, 448, 385, 25, 0)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE,$Exit_Button
Exit
EndSwitch
WEnd
При использовании этого способа (с ini или без), в елементе list, который тут создается, все записи будут расставляться по алфавиту,за это ответственный соответствующий стиль - $LBS_SORT, который выполняет сортировку (что для справочника как раз +). |
