Comment enlever le cadre d'un USF

[Thomas]

Bonsoir le forum,

je cherche un moyen de suprimer le cadre avec la croix du USF

savez vous comment

D'avance merci

 

[Eric C]

Bonjour le forum
Bonjour Thomas


Tu parles du bandeau bleu ??

 

[Thomas]

Bonsoir Eric, le forum,

Oui, je parle de la fenetre windows qui permet de le bouger et aussi de le fermer.

 

[Eric C]

Re le forum
Re bonjour Thomas

// Enlever la barre de titre d'un userform.

Voici le code à copier dans le userform:

Option Explicit
Private Declare Function FindWindow Lib 'user32' Alias 'FindWindowA' _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib 'user32' Alias _
'GetWindowLongA' (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib 'user32' Alias 'SetWindowLongA' _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function DrawMenuBar Lib 'user32' (ByVal hWnd As Long) As Long
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
Private Declare Function ReleaseCapture Lib 'user32' () As Long


Private Sub UserForm_Initialize()
Dim hWnd As Long, Style As Long

hWnd = FindWindow(vbNullString, Me.Caption)
Style = GetWindowLong(hWnd, -16) And Not &HC00000
SetWindowLong hWnd, -16, Style
DrawMenuBar hWnd
End Sub

N'oublies PAS de mettre un Bouton pour la Sortie

 

[Thomas]

Un grand merci à tous

Franchement c'est exactement ce que je cherchais

maintenant il ne me reste plus qu'a trouver comment positionner mon USF en haut à droite à l'ouverture.

car j'arrive a le mettre au centre ou en haut à gauche mais à droite !!

je ne le trouve pas dans les choix possible (faut il un code?? car pour le centre ou haut à gauche il le fait tout seul?)

encore une foi merci Eric C et longue vie au forum

 

[PascalXLD]

Bonjour

Pour mettre ton UF en haut à droite

Private Sub UserForm_Initialize()

With Me
.StartUpPosition = 3
.Left = Application.Width - Me.Width
.Top = 0
End With

End Sub

Bon courage