Firebolt
26-05-2009, 12:45
Хочу, создать справку с телефонами. Как сделать, чтобы телефоны распологались столбиком один под другим?
$R=@CRLF
$Tekst="1234567890"&$R&"1234567890"&$R&"1234567890"
MsgBox(0,"Справка",$Tekst)Но разве не лучше создать Gui?
как создать GUI? »
В справке написано, см. всё что начинается на GUI*...
а как создать GUI? »
Можно так:#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, который выполняет сортировку (что для справочника как раз +).
FlatX007
26-05-2009, 23:35
Мне вот казца так проще ... эту тему можно конечно обсосать получше но нет времени ...
#include <Array.au3>
Dim $avArray[8][2]
$avArray[0][0] = "2332233323"
$avArray[0][1] = "Позвонить Карлсону"
$avArray[1][0] = "02"
$avArray[1][1] = "Мальчики по вызову :) "
$avArray[2][0] = "8-990-720-32-32"
$avArray[2][1] = "ШЕФ"
$avArray[3][0] = "8654235857545"
$avArray[3][1] = "Вася Васин"
_ArrayDisplay( $avArray, "Телефонные номера" )
Exit
vBulletin v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.