Discussion :

[alouca]

Bonjoue à tous et à toutes

Je suis un débutant en VB et j'aimerais connaître certaines choses par rapport à une form notamment :

1- Comment centrer une form par rapport à l'écran ?
2 - Comment fixer une form ?
3 - Comment enlever les boutons agrandissement et reduction?
4 - Comment desactiver le boutons fermeture ?
5 - Comment insérer une image sur une form ?

[vb]

Bonsoir,
Une simple recherche dans le forum..tout est là...et F1! bien sur
vb

[vb]

Bonjour,
1 Pour centrer ...voir la propriété StartUpPosition
2 Fixer une form...tu veux dire ??Fixer au premier plan je suppose? il y a une Api pour faire cela.
Dans un module déclare ceci.

Code :

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

1
2
3
4
5
6
7
8
9
10
Declare Function SetWindowPos Lib "user32" ( _
  ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
  ByVal X As Long, ByVal Y As Long, ByVal cx As Long, _
  ByVal cy As Long, ByVal wFlags As Long) As Long
 
Public Const Swp_Nosize = &H1
Public Const Swp_Nomove = &H2
Public Const Flags As Long = Swp_Nomove Or Swp_Nosize
Public Const HWND_Topmost = -1
Public Const HWND_NOTOPMOST = -2

Dans le load de ta feuille concernée ceci.

Code :

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

1
2
3
'Position de la fenêtre
  SetWindowPos FrmListeClients.hwnd, _
    HWND_NOTOPMOST, 0, 0, 0, 0, Flags

3 Réduction ..ect .....voit la propriété BorderStyle
4 Désactiver le bouton fermeture , passe par une Api aussi
Dans un module déclare ceci.

Code :

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

1
2
3
4
5
6
'Api pour supprimer la croix et le menu fermeture d'une feuille
Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
 
Public Const MF_BYCOMMAND = &H0
Public Const SC_CLOSE = &HF060

Dans le Load de ta feuille concernée

Code :

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

1
2
3
4
'Appel de l'api pour supprimer la croix et le menu fermeture de la feuille
Dim hMenu As Long
    hMenu = GetSystemMenu(hwnd, 0)
        Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)

5 Une simple image...avec le contrôle Image..ou un fond sur l'entièreté de ta feuille ?
Bonne programmation
Vb