madmasles
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
frb_noname,
Код: #include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
Global $aData[3][4] = _
[['Иванов', 'Ivanov', '+79034450911', 'Водолей'], _
['Петров', 'Petrov', '+79036780019', 'Рак'], _
['Сидоров', 'Sidorov', '+79031096788', 'Весы']]
Global $sDate
Dim $aInput[UBound($aData, 2)]
$hForm = GUICreate('MyGUI', 300, 161)
For $i = 0 To UBound($aInput) - 1
$aInput[$i] = GUICtrlCreateInput($aData[0][$i], 10, 10 + 30 * $i, 100, 19, $ES_READONLY)
Next
$nCombo = GUICtrlCreateCombo('', 10, 130, 280, 21, $CBS_DROPDOWNLIST)
For $i = 0 To UBound($aData) - 1
$sDate &= $aData[$i][0] & '|'
Next
GUICtrlSetData(-1, $sDate, $aData[0][0])
$sDate = ''
GUISetState()
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $nCombo
$Index = GUICtrlSendMsg($nCombo, $CB_GETCURSEL, 0, 0)
For $i = 0 To 3
GUICtrlSetData($aInput[$i], $aData[$Index][$i])
Next
EndSwitch
WEnd |
Слава Богу, форум починили.  |
Всего записей: 1277 | Зарегистр. 25-09-2008 | Отправлено: 20:39 15-11-2011 | Исправлено: madmasles, 15:47 16-11-2011 |
|
