Как обновить форму без перемещения скрола?

@Soft17 · Регистрация: 15.01.2017

Студворк — интернет-сервис помощи студентам

Вопрос.
1. Как сделать, чтобы при обновлении формы не было заметно перемещение скрола?
По сути: 2.3. обновляю форму -> 2.5. фокус устанавливается на запись с "ИД" = 26;.
И это происходит незаметно, т.е. для пользователя запись с "ИД" = 27 просто исчезает (переносится вверх, согласно сортировки).

Имеется:
- ленточная форма.
- форма сортируется по полю "Сортировка".

1. Требуемая логика:
- 1.1. исходное положение: запись с "ИД" = 27;
- 1.2. устанавливаю в поле "Сортировка" = 1;
- 1.3. обновляю форму;
- 1.4. фокус устанавливается на запись с "ИД" = 26;
- 1.5. запись с "ИД" = 27 переносится вверх согласно сортировки.

2. Текущая логика:
- 2.1. исходное положение: запись с "ИД" = 27;
- 2.2. запись с "ИД" = 27. Устанавливаю в поле "Сортировка" = 1;
- 2.3. обновляю форму;
- 2.4. фокус перемещается вверх (на первую запись);
- 2.5. фокус устанавливается на запись с "ИД" = 26;
- 2.6. запись с "ИД" = 27 переносится вверх согласно сортировки.

Проблема: при выполнении п.2.4. (фокус перемещается вверх (на первую запись)) видно перемещение скрола. Чем больше записей, тем медленнее перемещается скролл.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
' *** Форма. Обновить.
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = vbKeyF5 Then
        FillData ' Заполняем данными
        RequeryFormSavePos ' Обновляем форму
        
         KeyCode = 0
    End If
End Sub
 
 
' *** Форма. Обновить.  Сохранить позицию. *** ***
   Public Sub RequeryFormSavePos()
        ' Имя активного контрола
        Dim nameFieldFindID  As String ' Имя поля для поиска
        Dim nameFieldFocus  As String ' Имя поля для фокуса
         
        ' *** Создаём набор записей
        Dim rst As Recordset ' набор записей
        ' Dim pos As Long ' id позиции текущей записи
        Dim pos As String ' id позиции текущей записи
       
        Set rst = Me.Form.Recordset ' Создать набор записей
        
        rst.MovePrevious                    ' Перейти на предыдущую запись
        
         
         nameFieldFocus = Screen.ActiveControl.Name         ' Имя активного поля
         ' nameFieldFocus = Screen.PreviousControl.Name  ' Имя элемента управления, который последний раз получил фокус.
        nameFieldFindID = nameFieldID                                   ' Имя поля "id"
        
        
        ' pos = Me(nameSubform).Form.ИДКафедры  ' Запомнить позицию
        pos = Me.Form(nameFieldFindID)  ' Запомнить позицию
 
        
         Me.Requery ' Обновить форму
        
        ' *** Находим запись
         rst.FindFirst (nameFieldFindID & "=" & pos) ' Найти запись
         
         ' rst.MovePrevious ' Перенести фокус вверх
         
         ' Перенести фокус на нужное поле
         Me.Form(nameFieldFocus).SetFocus
       
End Sub

@alvk · 16.08.2019, 08:34

возможно поможет это:

Visual Basic
1
2
3
Me.Repaint = False
какой-то код любой....
Me.Repaint = True

@Soft17 · 16.08.2019, 13:32 **[ТС]**

Сообщение от alvk

возможно поможет это:

Вы имели ввиду

Visual Basic
1
Me.Painting = True (False)

а не

Visual Basic
1
Me.Repaint = True (False)

?
Если

Visual Basic
1
Me.Painting = True (False)

да, то вроде всё работает также как и в вопросе... Т.е. не помогает...

Сделал так

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
' *** Форма. Обновить.  Сохранить позицию. *** ***
Public Sub RequeryFormSavePos()
 
        ' !!!
        Me.Painting = False
    
    ' Имя активного контрола
         Dim nameFieldFindID  As String ' Имя поля для поиска
         Dim nameFieldFocus  As String ' Имя поля для фокуса
         
        ' *** Создаём набор записей
        Dim rst As Recordset ' набор записей
        ' Dim pos As Long ' id позиции текущей записи
        Dim pos As String ' id позиции текущей записи
       
        Set rst = Me.Form.Recordset ' Создать набор записей
        
        rst.MovePrevious                    ' Перейти на предыдущую запись
        
         
         nameFieldFocus = Screen.ActiveControl.Name         ' Имя активного поля
         ' nameFieldFocus = Screen.PreviousControl.Name  ' Имя элемента управления, который последний раз получил фокус.
        nameFieldFindID = nameFieldID                                   ' Имя поля "id"
        
        
        ' pos = Me(nameSubform).Form.ИДКафедры  ' Запомнить позицию
        pos = Me.Form(nameFieldFindID)  ' Запомнить позицию
 
        
         Me.Requery ' Обновить форму
        
        ' *** Находим запись
         rst.FindFirst (nameFieldFindID & "=" & pos) ' Найти запись
         
         ' rst.MovePrevious ' Перенести фокус вверх
         
         ' Перенести фокус на нужное поле
         Me.Form(nameFieldFocus).SetFocus
       
        ' !!!
        Me.Painting = True
       
End Sub

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .