UN TÉLÉSCRIPTEUR SYMPA AVEC LE TEXTE QUI DÉFILE EN ROUGE ET NOIR

RcrivelliNET Messages postés 41 Date d'inscription lundi 23 février 2004 Statut Membre Dernière intervention 12 août 2008 - 25 juin 2004 à 20:04
MadM@tt Messages postés 2167 Date d'inscription mardi 11 novembre 2003 Statut Membre Dernière intervention 16 juillet 2009 - 26 juin 2004 à 21:35
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/23751-un-telescripteur-sympa-avec-le-texte-qui-defile-en-rouge-et-noir

MadM@tt Messages postés 2167 Date d'inscription mardi 11 novembre 2003 Statut Membre Dernière intervention 16 juillet 2009 1
26 juin 2004 à 21:35
je sui très content que mon programme ai pu te servir

@ + et les améliorations sont tjrs les bienvenues !
MadMatt
RcrivelliNET Messages postés 41 Date d'inscription lundi 23 février 2004 Statut Membre Dernière intervention 12 août 2008
25 juin 2004 à 20:04
Hello,
super cool ton idée...

je m'en suis inspiré pour faire un téléscripteur en réseau, j'ai simplement ajouté un Winsock.

si non, j'ai fait une petite modif a ton code.

Private 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
en déclaration et :

Dim Resultat As Long
Const Flags = &H2 Or &H1 Or &H40 Or &H10
Resultat = SetWindowPos(Fen.hwnd, -1, 0, 0, 0, 0, Flags)

dans l'évenement Load de ta fenêtre lui permet de toujours resté au premier plans sans pour autant être en modal.

A Bon entendeur A+ :-) ...
RcrivelliNET Messages postés 41 Date d'inscription lundi 23 février 2004 Statut Membre Dernière intervention 12 août 2008
25 juin 2004 à 20:04
Hello,
super cool ton idée...

je m'en suis inspiré pour faire un téléscripteur en réseau, j'ai simplement ajouté un Winsock.

si non, j'ai fait une petite modif a ton code.

Private 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
en déclaration et :

Dim Resultat As Long
Const Flags = &H2 Or &H1 Or &H40 Or &H10
Resultat = SetWindowPos(Fen.hwnd, -1, 0, 0, 0, 0, Flags)

dans l'évenement Load de ta fenêtre lui permet de toujours resté au premier plans sans pour autant être en modal.

A Bon entendeur A+ :-) ...
Rejoignez-nous