Discussion :

[oxedet]

Bonjour,

Je suis amené à créer à la volée un formulaire avec des contrôles inclus sur lesquels je dois inscrire des évenements. Pour info, voic l'extrait de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 Set ctlText = CreateControl(frm.Name, acTextBox, , "", "", posX, posY, lng, hauteurBoite)
        With ctlText
            .LeftMargin = 30: .TopMargin = 30: .RightMargin = 30: .BottomMargin = 30
             .Name = "S" & sta("sta_stamp") & sta("sta_rang")
             .ControlSource = "=" & Chr(34) & sta("sta_titre") & vbCrLf & sta("sta_clt") & vbCrLf & "(" & sta("sta_effectif") & " pers.) " & rang & Chr(34) & ""
              ' -- création de l'event
              Set mdl = frm.Module
              lngreturn = mdl.CreateEventProc("DblClick", ctlText.Name)
               mdl.InsertLines lngreturn + 1, vbTab & "stage_edit " & Chr(34) & sta("sta_stamp") & Chr(34)
        End With

Mon problème n'est que visuel : malgré l'utilisation du "application.echo=false", interdisant le rafraissement écran, la fenêtre VBE s'affiche pendant l'écriture du code avant de revenir à mon formulaire : qqu'un a-t-il une solution ?

Laurent

[Jean-Philippe André]

bonjour,
peut-être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
application.Screenupdate false 
'code
application.Screenupdate true

[oxedet]

malheureusement, application.Screenupdate c'est la commande pour VBA Excel.

En fait, j'ai trouvé deux techniques :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
application.echo False
docmd.echo False

Elles figent bien l'écran pendant le tracé du formulaire mais pas l'écriture dans les modules VB...

J'ai tenté de convertir mon appli en fichier MDE mais la création de formulaire semble interdite alors ! (à moins d'un solution de contournement que je ne connais pas...)

Merci tout de même

[oxedet]

J'ai trouvé ça sur : http://www.cpearson.com/excel/vbe.aspx

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
        (ByVal ClassName As String, ByVal WindowName As String) As Long
 
    Private Declare Function LockWindowUpdate Lib "user32" _
        (ByVal hWndLock As Long) As Long
 
 
    Sub EliminateScreenFlicker()
        Dim VBEHwnd As Long
 
        On Error GoTo ErrH:
 
        Application.VBE.MainWindow.Visible = False
 
        VBEHwnd = FindWindow("wndclass_desked_gsk", _
            Application.VBE.MainWindow.Caption)
 
        If VBEHwnd Then
            LockWindowUpdate VBEHwnd
        End If
 
        '''''''''''''''''''''''''
        ' your code here
        '''''''''''''''''''''''''
 
        Application.VBE.MainWindow.Visible = False
    ErrH:
        LockWindowUpdate 0&
    End Sub

et ça marche !!!