CADRE SUR l'USF

[Leskwal]

Bonjour le forum,

En fichier joint, un exemple de ce que je souhaite. Bien sur tout ne fonctionne pas 😉

Soit un multipage dans un USF.
Quand je clique sur page 2 : Disparition du cadre de l'USF. (Ça, ça marche... merci XLD)
Mais impossible de le faire réapparaître quand je clique sur page 1.

Si quelqu'un a une solution, je suis preneur.

Un grand merci d'avance.

Cordialement

Pascal

 

[néné06]

Re : CADRE SUR l'USF

Bonjour Leskwal,

Une erreur de ma part .
Je regarde de plus prés.

A+

René

 

[Si...]

Re : CADRE SUR l'USF

Salut

à tester

Private Sub MultiPage1_Change()
  If MultiPage1.Value = 0 Then
    Unload Me
    UserForm1.Show
  Else
    hwnd = FindWindow(vbNullString, Me.Caption)
    Style = GetWindowLong(hwnd, -16) And Not &HC00000
    SetWindowLong hwnd, -16, Style
    DrawMenuBar hwnd
  End If
End Sub

 

[Leskwal]

Re : CADRE SUR l'USF

Bonjour à tous

Merci déjà de vous pencher sur mon cas. 😉

Si... , j'avais déjà testé cette solution qui fonctionne bien avec l"exemple mais avec mon application réel, le temps de rafraîchissement est très long car lorsque l'USF se lance de multiples opérations sont effectuées sur plus de 10 onglets.

C'est pour cette raison que je ne tenais à agir que sur la caractéristique du cadre quand je cliquais sur Page1.

J'espère avoir été clair.

Si une autre solution vous vient à l"esprit : Je suis à l"écoute.

et encore Merci

Cordialement

Pascal

 

[néné06]

Re : CADRE SUR l'USF

Bonjour le Forum,

Regardes cette version, si cela te convient ?


A+

René

 

[Leskwal]

Re : CADRE SUR l'USF

Merci néné06

Waouh, du lourd....😛

Je vais lire et essayer de comprendre le code.

Un très GRAND MERCI à tous.

Pascal

 

[Leskwal]

Re : CADRE SUR l'USF

GÉÉÉÉÉÉÉÉÉÉNIAAAAAAAL

J'ai adapté ton code à mon appli ...
Ça MAAAARCHE (Mieux que prévu, plus de "Clipping" lors des changements de page) ...

Encore un très grand MERCI

Pascal