Створення елементів форми, MS Office, Програмні керівництва, статті

Тепер нам треба написати програму, яка створить керуючі елементи, тобто мітки, кнопки і список форми, відновлюючи їх з таблиці бази даних, наприклад, «Калькулятор-форма». Цей метод необхідно вивчити тому, що таким чином можна легко відновити будь-який шаблон форми і надалі модифікувати його.

 


Public Function funRestoreFormControls(frm As Form) As Boolean


Dim ctl As Control, rst As Recordset, dbs As Database, i As Integer


On Error GoTo 999 “Перехід помилково


funRestoreFormControls = False “Повернення значення за помилку


   


Set dbs = CurrentDb “Вибираємо поточну базу даних


Set rst = dbs.OpenRecordset (“SELECT * FROM [Калькулятор-форма]”)


If rst.RecordCount = 0 Then “Перевіряємо запит


rst.Close “Закриваємо запит


Exit Function “Виходимо з програми


    End If


   


With rst “Створення елемента із запиту


. MoveLast “Заповнюємо запит даними


. MoveFirst “Переходимо на 1 запис


For i = 0 To. RecordCount – 1 “Виконуємо відновлення для кожного запису


            Select Case rst!ControlType


Case acCommandButton “Створюємо Кнопку


                    Set ctl = appAccess.CreateControl(frm.Name, rst!ControlType, , “”, “”, rst!Left, rst!Top, rst!Width, rst!Height)


ctl.OnClick = “[Event Procedure]” “Включаємо обробку натискання


ctl.Caption = rst! Caption “Міняємо назву


ctl.ControlTipText = rst! ControlTipText “Встановлюємо підказку


Case acLabel “Створюємо Напис


                    Set ctl = appAccess.CreateControl(frm.Name, rst!ControlType, , “”, rst!Caption, rst!Left, rst!Top, rst!Width, rst!Height)


ctl.BackColor =! BackColor “Міняємо тло


Case acTextBox “Створюємо Поле


                    Set ctl = appAccess.CreateControl(frm.Name, rst!ControlType, , “”, “”, rst!Left, rst!Top, rst!Width, rst!Height)


ctl.SpecialEffect = 0 “Вибираємо стандартне виділення


ctl.BorderColor = 0 “Вибираємо чорний колір


ctl.BorderStyle = 1 “Вибираємо звичайну кордон


Case acListBox “Створюємо Список


                     Set ctl = appAccess.CreateControl(frm.Name, rst!ControlType, , “”, “”, rst!Left, rst!Top, rst!Width, rst!Height)


ctl.SpecialEffect = 0 “Вибираємо стандартне виділення


ctl.BackColor = rst! BackColor “Міняємо тло списку


ctl.BorderColor = 0 “Вибираємо стандартне виділення


ctl.ColumnCount = 2 “Встановлюємо число колонок


ctl.ColumnWidths = “7,932 см; 1 см” “Встановлюємо розмір колонок


ctl.RowSource = “запросСпісокКалькулятора” “Вибираємо запит для списку


                End Select


ctl.Name = rst! Name “Змінюємо ім’я елемента


ctl.ForeColor =! ForeColor “Змінюємо колір символів


rst.MoveNext “Переходимо на наступний запис


        Next i


    End With


rst.Close “Закриваємо запит


   


funRestoreFormControls = True “Повертаємо результат


Exit Function “Виходимо з програми


999:


MsgBox Err.Description “Повідомляємо про помилку


Err.Clear “Очищаємо потік від помилок


End Function

Схожі статті:


Сподобалася стаття? Ви можете залишити відгук або підписатися на RSS , щоб автоматично отримувати інформацію про нові статтях.

Коментарів поки що немає.

Ваш отзыв

Поділ на параграфи відбувається автоматично, адреса електронної пошти ніколи не буде опублікований, допустимий HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

*

*