Visual Basic. Практика. Ищенко В.А - 27 стр.

                                                  27
                                                                           П род ол ж ен ие т а бл . 9
             1               2                3                        4                   5
                                                          Caption – В резу л ь т а -
М ет ка 3                Label3      П о у м ол ча н ию
                                                          т е осм от ра выявл ен о
М ет ка 4                Label4      П о у м ол ча н ию   Caption – Д иа гн оз
                                                                     Н ет
Т екст овое П ол е1 TextBox1               Д а та
Т екст овое П ол е2 TextBox2            С им пт ом ы1                Н ет
Т екст овое П ол е3 TextBox3            С ообщен ие                  Н ет
                                                          Caption – С вед ен ия о
Р а м ка 1               Frame1      П о у м ол ча н ию
                                                          па циен т е
М ет ка 5                Label5      П о у м ол ча н ию   Caption – Ф а м ил ия
М ет ка 6                Label6      П о у м ол ча н ию        Caption – И м я
М ет ка 7                Label7      П о у м ол ча н ию   Caption – О т чест во
                                                          Caption – Д а т а рож -
М ет ка 8                Label8      П о у м ол ча н ию
                                                          д ен ия
М ет ка 9                Label9      П о у м ол ча н ию   Caption – А д рес
М ет ка 10               Label10     П о у м ол ча н ию   Caption – Т ел еф он
                                                          Caption – С т ра ховой
М ет ка 11               Label11     П о у м ол ча н ию
                                                          пол ис
Т екст овое П ол е4      TextBox4    П о у м ол ча н ию              Н ет
Т екст овое П ол е5      TextBox5    П о у м ол ча н ию              Н ет
Т екст овое П ол е6      TextBox6    П о у м ол ча н ию              Н ет
Т екст овое П ол е7      TextBox7    П о у м ол ча н ию              Н ет
Т екст овое П ол е8      TextBox8    П о у м ол ча н ию              Н ет
Т екст овое П ол е9      TextBox9    П о у м ол ча н ию              Н ет
Т екст овое П о-
                         TextBox10 П о у м ол ча н ию               Н ет
л е10
                                                         Caption – С им пт ом ы
Р а м ка 2               Frame2      П о у м ол ча н ию
                                                         за бол ева н ия:
                                                         List – Г ол овн а я бол ь ,
С писок                  ListBox     С им пт ом ы
                                                         К а шел ь и т .д .
Р а м ка 3               Frame3      П о у м ол ча н ию Caption – А л л ерген ы
                         ComboBo                         List – С у л ь ф а м ид ы,
П ол е со списком                    А л л ерген ы
                         x                               А спирин и т.д .
К ом а н д н а я         Command                         Caption – П ост а вит ь
                                     К н опка Д иа гн оз
кн опка 1                Button1                         д иа гн оз
К ом а н д н а я         Command     К н опка О чи-
                                                         Caption – О чист ит ь
кн опка 2                Button2     ст ит ь
К ом а н д н а я         Command
                                     К н опка Выход       Caption – Выход
кн опка 3                Button3

    4. Зад а т ь ф орм е и объект а м у пра вл ен ия, ра спол ож ен н ым н а н ей, д о-
       пол н ит ел ь н ые ра зл ичн ые свойст ва (а н а л огичн о т а бл . 2).
    5. Записа т ь програ м м н ый код , выпол н яющий вывод в т екст овое пол е
       С им птом ы1.Text н а зва н ия сим пт ом ов за бол ева н ия из списка “С им -
       пт ом ы за бол ева н ия”:

                   Private Sub С им птом ы _Click()
                   ind = С им птом ы .ListIndex