ICÔNE SUR LA TASKBAR D'UN PROGRAMME AVEC BORDERSTYLE = NONE
cs_Kato
Messages postés11Date d'inscriptionlundi 18 novembre 2002StatutMembreDernière intervention 6 janvier 2003
-
29 nov. 2002 à 09:35
Oxilat
Messages postés17Date d'inscriptionmardi 18 novembre 2003StatutMembreDernière intervention17 juillet 2007
-
9 mars 2004 à 13:36
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
Oxilat
Messages postés17Date d'inscriptionmardi 18 novembre 2003StatutMembreDernière intervention17 juillet 2007 9 mars 2004 à 13:36
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
Oxilat
Messages postés17Date d'inscriptionmardi 18 novembre 2003StatutMembreDernière intervention17 juillet 2007 9 mars 2004 à 13:13
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
z980x
Messages postés897Date d'inscriptionjeudi 6 juin 2002StatutMembreDernière intervention26 juillet 20072 14 juin 2003 à 22:40
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
cs_bluff
Messages postés4Date d'inscriptionjeudi 6 mars 2003StatutMembreDernière intervention20 mars 2003 22 mars 2003 à 20:28
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... !
miko500
Messages postés188Date d'inscriptiondimanche 29 octobre 2000StatutMembreDernière intervention18 août 2005 29 nov. 2002 à 12:24
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
miko500
Messages postés188Date d'inscriptiondimanche 29 octobre 2000StatutMembreDernière intervention18 août 2005 29 nov. 2002 à 12:18
Nan, j'ai essayé ça, et ça marche pas, voici une fonction de XP que j'aimerais bien avoir, ça faciliterait les choses..mais j'ai W98 SE donc...
Faites moi part de vos commentaires, j'aimerais votre avis, merci
!
Miko500
miko500
Messages postés188Date d'inscriptiondimanche 29 octobre 2000StatutMembreDernière intervention18 août 2005 29 nov. 2002 à 12:11
tiens, merci je vais essayer ça, mais je ne sais pas si ça va marcher, pour que ça soit visible sur la taskbar, je savais comment faire en sur!! mais c'était pour l'icone
cs_Kato
Messages postés11Date d'inscriptionlundi 18 novembre 2002StatutMembreDernière intervention 6 janvier 2003 29 nov. 2002 à 09:35
Salut.
Pour ma part quand je fait une form sans bordures, je met la propriété de la form "ShowInTaskbar=True" et je choisi un icone dans tjs dans la propriété de la form ou tu met ça dans le code :
Private Sub Form1_Load()
Form1.Icon = LoadPicture("chemindetonicon.ico")
....
End Sub
9 mars 2004 à 13:36
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
9 mars 2004 à 13:13
ShowInTaskbar True aprait avoire definit BorderStyle 0
se code marche sous W 98 avec VB5
14 juin 2003 à 22:40
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
22 mars 2003 à 20:28
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... !
29 nov. 2002 à 12:24
Miko500
29 nov. 2002 à 12:18
Faites moi part de vos commentaires, j'aimerais votre avis, merci
!
Miko500
29 nov. 2002 à 12:11
29 nov. 2002 à 09:35
Pour ma part quand je fait une form sans bordures, je met la propriété de la form "ShowInTaskbar=True" et je choisi un icone dans tjs dans la propriété de la form ou tu met ça dans le code :
Private Sub Form1_Load()
Form1.Icon = LoadPicture("chemindetonicon.ico")
....
End Sub
Mais bon, suis sous XP, alors sais pas sous win9x