Geler le rafraichissement des controles d'un formulaire
1 réponse
Geler le rafraichissement des controles
j'utilise un controle activeX "Treeview" sur Access 2k et j'aimerais que
l'utilisateur ne voit pas les déplacements de noeuds effectués pendant le
traitement...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Tene
C'est bon, j'ai réussi à trouver l'info sur un site, pour info:
Private Const WM_SETREDRAW = &HB
Private Declare Function SendMessage Lib "user32" Alias _ "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As _ Long, ByVal wParam As Long, lParam As Any) As Long
Public Sub screenUpdating(ByVal bChoice As Boolean) If bChoice Then Call SendMessage(Screen.ActiveForm.hwnd, WM_SETREDRAW, 1, 0) Else Call SendMessage(Screen.ActiveForm.hwnd, WM_SETREDRAW, 0, 0) End If End Sub
a+
j'utilise un controle activeX "Treeview" sur Access 2k et j'aimerais que l'utilisateur ne voit pas les déplacements de noeuds effectués pendant le traitement...
es ce possible et/ou comment le réaliser?
merci par avance...
C'est bon, j'ai réussi à trouver l'info sur un site, pour info:
Private Const WM_SETREDRAW = &HB
Private Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As _
Long, ByVal wParam As Long, lParam As Any) As Long
Public Sub screenUpdating(ByVal bChoice As Boolean)
If bChoice Then
Call SendMessage(Screen.ActiveForm.hwnd, WM_SETREDRAW, 1, 0)
Else
Call SendMessage(Screen.ActiveForm.hwnd, WM_SETREDRAW, 0, 0)
End If
End Sub
a+
j'utilise un controle activeX "Treeview" sur Access 2k et j'aimerais que
l'utilisateur ne voit pas les déplacements de noeuds effectués pendant le
traitement...
C'est bon, j'ai réussi à trouver l'info sur un site, pour info:
Private Const WM_SETREDRAW = &HB
Private Declare Function SendMessage Lib "user32" Alias _ "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As _ Long, ByVal wParam As Long, lParam As Any) As Long
Public Sub screenUpdating(ByVal bChoice As Boolean) If bChoice Then Call SendMessage(Screen.ActiveForm.hwnd, WM_SETREDRAW, 1, 0) Else Call SendMessage(Screen.ActiveForm.hwnd, WM_SETREDRAW, 0, 0) End If End Sub
a+
j'utilise un controle activeX "Treeview" sur Access 2k et j'aimerais que l'utilisateur ne voit pas les déplacements de noeuds effectués pendant le traitement...
