MyTetra Share
Делитесь знаниями!
031. Использование StatusBar в Microsoft Access
Время создания: 16.03.2019 23:43
Раздел: !Закладки - VBA - Access - leadersoft.ru
Запись: xintrea/mytetra_db_adgaver_new/master/base/15313707638eeo2rh4s6/text.html на raw.githubusercontent.com

Данный пример показывает как можно использовать элементStatusBar в Microsoft Access. Не забудьте подключить в новых файлах C:\Windows\System32\mscomctl.ocx

Все примеры Microsoft Access
Private WithEvents sl As Slider ' Скользящая шкала
Dim sb As statusBar ' Строка комментариев
Dim pr As ProgressBar ' Шкала загрузки

'
' Настройка процесса в форме
Private Sub Form_Open(Cancel As Integer)
   
   ' Инициализация
   Set sl = Me.mySlider.Object
   sl.Min = 1
   sl.Max = 50
   sl.Value = 25
   
   ' Инициализация указателя загрузки
   Set pr = Me.myProgressBar.Object
   pr.Min = 1
   pr.Max = 10000
   
   ' Инициализация панелей
   Set sb = Me.myStatusBar.Object
   With sb.Panels
      .Clear ' Удаление всех данных
      .Add 1, "k1""Загрузка"
      .Add 2, "k2"" "
      .Item(1).MinWidth = 850 ' Ширина панели
   End With
End Sub


'   Запуск процесса
Private Sub butProgress_Click()
Dim As Long
    Me.Tag = "Start"
    For i = 1 To 10000
        ' Меняем сообщение с определенным шагом
        If (i / sl.Value) = (i \ sl.Value) Then
            pr.Value = i
            sb.Panels(2).Text = "Всего: " & i
            DoEvents ' Надо только для события sl_Change
        End If
        If Me.Tag = "Stop" Then Exit For
    Next i
    pr.Value = 1
    sb.Panels(2).Text = ""
End Sub


'   Определение события Slider
Private Sub sl_Change()
    Me.Tag = "Stop" ' Определяем флаг для выхода из процесса
End Sub


'   Освобождение ресурсов
Private Sub Form_Close()
    Set pr = Nothing
    Set sb = Nothing
End Sub

Так же в этом разделе:
 
MyTetra Share v.0.59
Яндекс индекс цитирования