Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Comment enlever le cadre d'un USF

  • Initiateur de la discussion Thomas
  • Date de début
T

Thomas

Guest
Bonsoir le forum,

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

savez vous comment

D'avance merci
 

Eric C

XLDnaute Barbatruc
Re le forum
Re bonjour Thomas

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

Voici le code à copier dans le userform:
Code:
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
 
T

Thomas

Guest
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

XLDnaute Barbatruc
Modérateur
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
 

Discussions similaires

Réponses
1
Affichages
112
Réponses
14
Affichages
276
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…