Войти

Показать полную графическую версию : [решено] MsgBox. Как расположить текст в столбик?


Firebolt
26-05-2009, 12:45
Хочу, создать справку с телефонами. Как сделать, чтобы телефоны распологались столбиком один под другим?

beve
26-05-2009, 13:25
$R=@CRLF
$Tekst="1234567890"&$R&"1234567890"&$R&"1234567890"
MsgBox(0,"Справка",$Tekst)Но разве не лучше создать Gui?

Firebolt
26-05-2009, 14:39
beve, а как создать GUI?

Creat0R
26-05-2009, 15:19
как создать GUI? »
В справке написано, см. всё что начинается на GUI*...

beve
26-05-2009, 15:28
а как создать 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




© OSzone.net 2001-2012