Bonjour voilà j'ai créé une forme : form1 sans BorderStyle. Donc j'ai dû utliser la propriété Me.WindowState = 1 pour réduire la form
Donc quand ma form est réduite je n'ai pas de menu quand je click doit sur mon icone dans la barre des tâches. Donc pour avoir un menu quand le programme est dans la barre des tâches je pensais activer Le BorderStyle = 2

donc j'ai mis ce code :

Private Sub Form_Resize()
If Me.WindowState = 1 Then
Me.BorderStyle = 2
Else: Me.BorderStyle = 0
End Sub

Mais ça marche pas, pourquoi ? Merci à vous

Private Sub Form_Resize()
If Me.WindowState = 1 Then
Me.BorderStyle = 2
Else: Me.BorderStyle = 0
End If
End Sub

Désolé j'ai oublié le End If. Mais ça marche pas... Comment faire. Merci à vous

Bonjour,

Mets donc tout simplement à True la propriété ShowInTaskBar de ta form, au lieu de te lancer dans ces "acrobaties" ...

Merci de ta réponse... Mais je vois pas le rapport !
Ma form a un BorderStyle = 0
Donc quand je la réduit avec Me.windowState = 1
Et que je click droit sur l'icone de mon Programme dans LA BARRE DES TACHES. Ben il n'y a pas de menu. Et moi je voudrais qu'il y est un menu...

salut tout le monde,

me semble bien que cette propriété est en lecture seule en exécution

utilise cette source, tu pourras ôter la barre de titre tout en conservant le bouton et le menu dans la barre des tâches

++

---

Prenez un instant pour répondre à ce sondage svp

Merci à toi, mais c'est pas de mon niveau, je laisse tombé. Merci

Réponse acceptée !
tu as juste à ajouter la classe à ton projet, à la déclarer (exemple fourni), attacher ta fenêtre et changer la propriété...

çà donne :

Option Explicit
Private AfFrm As New AfCls_FormButtons
'
Private Sub Form_Load()
    Set AfFrm.Form = Me
    AfFrm.Flat3D = True 'supprimer cette ligne si tu veux pouvoir redimensionner
    AfFrm.ShowTitleBar = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Set AfFrm = Nothing
End Sub

---

Prenez un instant pour répondre à ce sondage svp

Merci à toi de te donner la peine de m'aider. Seulement il me dit erreur débogage. à cette ligne :
Set AfFrm.Form = Me

Juste pour ne pas recopier ce code bêtement... j'aurais pu mettre autre chose que AfFrm ?
Merci.

à partir du moment ou tu utilises une classe toute faite çà change plus grand chose de "recopier bêtement" sourtout quand on demande une réponse sur un forum....

c'est quoi l'erreur indiquée?
s'il bloque là, fort probable que çà soir le type Form par reconnu, donc VBA ?!!!!!
çà va beaucoup moins m'amuser si je ne me trompe pas

Non c'est VB6. Et ça fonctionne pourtant pas...