Icône sur la taskbar d'un programme avec borderstyle = none

Soyez le premier à donner votre avis sur cette source.

Vue 4 046 fois - Téléchargée 460 fois

Description

Bon, je sais, je sais déjà ce que vous allez me dire...ce programme est nul, pour ceux que ça intéresse, lorsqu'on fait un programme qui n'a pas de bordures, il n'y a pas d'icône sur la taskbar, ce programme laisse entrouvert la possibilitee d'avoir une icone...Merci de ne pas trop critiquer...
et PS: je suis sur WIN98, donc s'il y'en peuvent mettre une icone en borderstyle = none, ne venez pas me critiquez, parce que moi je suis obligé de faire ça pour qu'il y ait l'icone.

Miko500

Source / Exemple :


dans le zip

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
17
Date d'inscription
mardi 18 novembre 2003
Statut
Membre
Dernière intervention
17 juillet 2007

ma bare en hau est Label3 et voila mon code et sa marche et sai supire simple

Private Sub Label3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
dep = True
Pos_X = X
Pos_Y = Y
End Sub

Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If dep = True Then
Form_bureau.Left = Form_bureau.Left + X - Pos_X
Form_bureau.Top = Form_bureau.Top + Y - Pos_Y
End If
End Sub

Private Sub Label3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

dep = False
End Sub
Messages postés
17
Date d'inscription
mardi 18 novembre 2003
Statut
Membre
Dernière intervention
17 juillet 2007

sa saire a rien il sufie sou W98 de maitre la proprieter
ShowInTaskbar True aprait avoire definit BorderStyle 0
se code marche sous W 98 avec VB5
Messages postés
897
Date d'inscription
jeudi 6 juin 2002
Statut
Membre
Dernière intervention
26 juillet 2007
2
Option Explicit

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 Sub ReleaseCapture Lib "user32" ()
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim ValRetourLng As Long
If Button = 1 Then
Call ReleaseCapture
ValRetourLng = SendMessage(Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End If
End Sub

Ca marche aussi pour toute la form, sans rien de plus !
Je suis sous XP et ca marche extrement bien !
C'est cool !
10/10
Messages postés
4
Date d'inscription
jeudi 6 mars 2003
Statut
Membre
Dernière intervention
20 mars 2003

essayez ça : à mettre dans une form qui contient le nom et l'icone de la mainForm sans bordure, et donc le WindowState est = à 1 ; puis on lance cette form qui ensuite appelle la form sans bordures:

Private Sub Form_Load()
mainForm.Show
mainForm.SetFocus
Me.WindowState = 1
End Sub

Private Sub Form_Resize()
If Not Me.WindowState = 1 Then
Me.WindowState = 1
End If
End Sub

dites moi si c'est mieux ou encore plus criticable... !
Messages postés
188
Date d'inscription
dimanche 29 octobre 2000
Statut
Membre
Dernière intervention
18 août 2005

PS: Je crois qu'il n'y a pas encore eu de solution ou de source pour "l'icone", c'est donc pour ça, que je voulais vous faire partager ma découverte...Je sais encore que certains prennent un malin plaisir à critiquer le travail des autres, je ne donnerai pas de noms, mais encore une chose à dire, avant de critiquer, regardez vous d'abord, je n'ai mêe pas 18 ans, ni 16 ans, ni 15 ou autre, j'a 14 ans...Donc, si fais des programmes, c'est pour aider les gens dans leur travail...Enfin bref, juste ça pou vous dire que je ne suis pas parfait et loin de là, ça je le sais, je souhaite bonne Prog à tout le monde!


Miko500
Afficher les 8 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.