Accueil > > > FOND DE FEUILLE ANIMÉ : DÉGRADÉ MOUVANT POUR ABOUT OU SPLASHSCREEN
FOND DE FEUILLE ANIMÉ : DÉGRADÉ MOUVANT POUR ABOUT OU SPLASHSCREEN
Information sur la source
Description
Hello tout le monde, hier je m'amusait à chercher comment rendre mes moches applis un peu plus attractives, et je me suis renseigné sur les dégradés gerés par le framework .net (merci Richard Clark). C'est en bidouillant un peu avec que je suis arrivé à ce resultat assez simpa. Des degradés mouvants! Vous spécifiez deux couleur et un type de degradé, et la classe se charge de redessiner en permance la feuille. Le plus interessant est je pense, celui en "diagonale", mais les verticaux et horizontaux font aussi leur petit effet. J'ai donc tenter de rendre mon code générique en écrivant une petit classe très simple à utiliser. La méthode en elle même est, comme je l'ai dit, une bidouille. En effet, je ne travaille pas sur le fond de la feuille, mais sur un label de la taille de la feuille, ajouté en arrière plan. Ceci du fait qu'en travaillant sur la feuille elle même, le form_paint est appelé en permanence, et produit un clignottement très désagréable. Enfin, je precise dans le titre "pour about ou splashscreen", car ce petit effet de cowboy est gourmand en ressources, à eviter donc sur une vraie appli ^^ Deux classes donc ici, la première, destiné à mettre en fond une image dégradé sur un control, et l'autre qui se charge de l'effet mouvant. J'ai également mis un petit sample dans le zip. Have fun
Source
- 'classe de dessin de degradés sur un controle
-
- Public Class HbCtrlDegrad
-
- Public Enum TypeDegrad
- Horizontal
- Vertical
- Diagonale_avant
- Diagonale_arriere
- End Enum
-
- Friend Shared Sub Degrade(ByRef ctrl As Control, ByVal startcolor As Color, ByVal endcolor As Color, ByVal type As TypeDegrad)
- Degrade(ctrl, startcolor, endcolor, type, 0)
- End Sub
-
- Friend Shared Sub Degrade(ByRef ctrl As Control, ByVal startcolor As Color, ByVal endcolor As Color, ByVal angle As Single)
- Degrade(ctrl, startcolor, endcolor, 5, angle)
- End Sub
-
- Friend Shared Sub Degrade(ByRef ctrl As Control, ByVal startcolor As Color, ByVal endcolor As Color, ByVal type As TypeDegrad, ByVal angle As Single, Optional ByVal width As Integer = -1, Optional ByVal height As Integer = -1)
- If width = -1 Then width = ctrl.Width
- If height = -1 Then height = ctrl.Height
- Dim a As Image = New Bitmap(ctrl.Width, ctrl.Height)
- Dim bgGraph As Graphics = Graphics.FromImage(a)
- Dim rect As New Rectangle(New Point(0, 0), New Point(width, height))
- Dim degradbrush As Drawing2D.LinearGradientBrush
- Select Case type
- Case TypeDegrad.Horizontal
- degradbrush = New Drawing2D.LinearGradientBrush(rect, startcolor, endcolor, Drawing2D.LinearGradientMode.Horizontal)
- Case TypeDegrad.Vertical
- degradbrush = New Drawing2D.LinearGradientBrush(rect, startcolor, endcolor, Drawing2D.LinearGradientMode.Vertical)
- Case TypeDegrad.Diagonale_avant
- degradbrush = New Drawing2D.LinearGradientBrush(rect, startcolor, endcolor, Drawing2D.LinearGradientMode.ForwardDiagonal)
- Case TypeDegrad.Diagonale_arriere
- degradbrush = New Drawing2D.LinearGradientBrush(rect, startcolor, endcolor, Drawing2D.LinearGradientMode.BackwardDiagonal)
- Case Else
- degradbrush = New Drawing2D.LinearGradientBrush(rect, startcolor, endcolor, angle, True)
- End Select
- bgGraph.FillRectangle(degradbrush, rect)
- ctrl.BackgroundImage = a
- End Sub
-
- End Class
-
-
- 'classe de gestion de fond mouvant
-
- Public Class RollingBG
-
- Private b As Boolean
- Private _interval As Integer
- Private _startcolor As Color
- Private _endcolor As Color
- Private _curform As Form
- Private _backlabel As Label = New Label
- Private _angle As Single
- Private thread1 As Threading.Thread
-
- Public Enum TypeDegrad
- Horizontal
- Vertical
- Diagonale
- End Enum
-
- Private Delegate Sub DelegateAddLabel(ByVal newlabel As Label)
- Private Delegate Sub DelegateRemoveLabel(ByVal newlabel As Label)
- Private Delegate Sub DelegateChangeBGColor(ByVal clr As Color)
- Private Delegate Sub DelegateDegrade(ByRef ctrl As Control, ByVal startcolor As Color, ByVal endcolor As Color, ByVal angle As Single)
- Private Delegate Sub DelegateDegradeHV(ByRef ctrl As Control, ByVal startcolor As Color, ByVal endcolor As Color, ByVal type As TypeDegrad, ByVal angle As Single, ByVal width As Integer, ByVal height As Integer)
-
-
- Public Sub New()
- _interval = 10
- End Sub
-
-
- Public Sub New(ByVal interval As Integer)
- If interval > 0 Then
- _interval = interval
- Else
- _interval = 10
- End If
- End Sub
-
-
- Private Function newlabel(ByVal width As Single, ByVal height As Single) As Label
- Dim newlbl As New Label
- newlbl.Width = width
- newlbl.Height = height
- Return newlbl
- End Function
-
- Public Sub vertical(ByRef curform As Form, ByVal startcolor As Color, ByVal endcolor As Color)
- start(curform, startcolor, endcolor, 2)
- End Sub
-
- Public Sub horizontal(ByRef curform As Form, ByVal startcolor As Color, ByVal endcolor As Color)
- start(curform, startcolor, endcolor, 1)
- End Sub
-
- Public Sub diagonal(ByRef curform As Form, ByVal startcolor As Color, ByVal endcolor As Color)
- start(curform, startcolor, endcolor, 0)
- End Sub
-
- Private Sub start(ByRef curform As Form, ByVal startcolor As Color, ByVal endcolor As Color, ByVal type As Integer)
- pause()
- Select Case type
- Case 0
- thread1 = New Threading.Thread(AddressOf diagonal_thread)
- Case 1
- thread1 = New Threading.Thread(AddressOf horizontal_thread)
- Case 2
- thread1 = New Threading.Thread(AddressOf vertical_thread)
- End Select
- 'pause()
- b = True
- _curform = curform
- _startcolor = startcolor
- _endcolor = endcolor
- AddHandler _curform.FormClosing, AddressOf FormClosing
- thread1.Start()
- End Sub
-
- Private Sub vertical_thread()
- Dim descendant As Boolean = True
- Dim i As Integer = 1
- Dim max As Integer = _curform.Height + (_curform.Height / 4)
- _curform.Invoke(New DelegateChangeBGColor(AddressOf changeBGcolor), New Object() {_endcolor})
- _backlabel = newlabel(_curform.Width, _curform.Height)
- _curform.Invoke(New DelegateAddLabel(AddressOf addlabel), New Object() {_backlabel})
- Do While b = True
- Do While (i < max) And (i >= 1)
- If b = False Then Exit Do
- _backlabel.Invoke(New DelegateDegradeHV(AddressOf DegradeA), New Object() {_backlabel, _startcolor, _endcolor, TypeDegrad.Vertical, 0, -1, i})
- Threading.Thread.Sleep(_interval)
- If descendant = True Then i += 1 Else i -= 1
- Loop
- descendant = Not descendant
- If descendant = False Then i -= 1 Else i += 1
- Loop
- _curform.Invoke(New DelegateRemoveLabel(AddressOf removelabel), New Object() {_backlabel})
- End Sub
-
-
- Private Sub horizontal_thread()
- Dim descendant As Boolean = True
- Dim i As Integer = 1
- Dim max As Integer = _curform.Width + (_curform.Width / 4)
- _curform.Invoke(New DelegateChangeBGColor(AddressOf changeBGcolor), New Object() {_endcolor})
- _backlabel = newlabel(_curform.Width, _curform.Height)
- _curform.Invoke(New DelegateAddLabel(AddressOf addlabel), New Object() {_backlabel})
- Do While b = True
- Do While (i < max) And (i >= 1)
- If b = False Then Exit Do
- _backlabel.Invoke(New DelegateDegradeHV(AddressOf DegradeA), New Object() {_backlabel, _startcolor, _endcolor, TypeDegrad.Horizontal, 0, i, -1})
- Threading.Thread.Sleep(_interval)
- If descendant = True Then i += 1 Else i -= 1
- Loop
- descendant = Not descendant
- If descendant = False Then i -= 1 Else i += 1
- Loop
- _curform.Invoke(New DelegateRemoveLabel(AddressOf removelabel), New Object() {_backlabel})
-
- End Sub
-
- Private Sub diagonal_thread()
- _backlabel = newlabel(_curform.Width, _curform.Height)
- _curform.Invoke(New DelegateAddLabel(AddressOf addlabel), New Object() {_backlabel})
- Do While b
- For i As Integer = 1 To 360
- If b = False Then Exit For
- If i Mod 90 = 0 Then i = i + 1 'evite le clignottement des angles "droits" (90,180,270)
- _backlabel.Invoke(New DelegateDegrade(AddressOf DegradeB), New Object() {CType(_backlabel, Control), _startcolor, _endcolor, i})
- Threading.Thread.Sleep(_interval)
- Next
- Loop
- _curform.Invoke(New DelegateRemoveLabel(AddressOf removelabel), New Object() {_backlabel})
- End Sub
-
- 'event ajouté à la form
- Private Sub FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs)
- pause()
- End Sub
-
- Public Sub pause()
- b = False
- If Not IsNothing(thread1) Then
- thread1.Abort()
- removelabel(_backlabel)
- End If
- End Sub
-
- 'Sub deleguées
- Private Sub addlabel(ByVal newlabel As Label)
- _curform.Controls.Add(newlabel)
- End Sub
-
- Private Sub removelabel(ByVal newlabel As Label)
- _curform.Controls.Remove(newlabel)
- End Sub
-
- Private Sub changeBGcolor(ByVal clr As Color)
- _curform.BackColor = clr
- End Sub
-
- Private Sub DegradeA(ByRef ctrl As Control, ByVal startcolor As Color, ByVal endcolor As Color, ByVal type As TypeDegrad, ByVal angle As Single, ByVal width As Integer, ByVal height As Integer)
- If b = True Then
- HbCtrlDegrad.Degrade(ctrl, startcolor, endcolor, type, 0, width, height)
- End If
- End Sub
-
- Private Sub DegradeB(ByRef ctrl As Control, ByVal startcolor As Color, ByVal endcolor As Color, ByVal angle As Single)
- If b = True Then
- HbCtrlDegrad.Degrade(ctrl, startcolor, endcolor, 5, angle)
- End If
- End Sub
-
- End Class
'classe de dessin de degradés sur un controle
Public Class HbCtrlDegrad
Public Enum TypeDegrad
Horizontal
Vertical
Diagonale_avant
Diagonale_arriere
End Enum
Friend Shared Sub Degrade(ByRef ctrl As Control, ByVal startcolor As Color, ByVal endcolor As Color, ByVal type As TypeDegrad)
Degrade(ctrl, startcolor, endcolor, type, 0)
End Sub
Friend Shared Sub Degrade(ByRef ctrl As Control, ByVal startcolor As Color, ByVal endcolor As Color, ByVal angle As Single)
Degrade(ctrl, startcolor, endcolor, 5, angle)
End Sub
Friend Shared Sub Degrade(ByRef ctrl As Control, ByVal startcolor As Color, ByVal endcolor As Color, ByVal type As TypeDegrad, ByVal angle As Single, Optional ByVal width As Integer = -1, Optional ByVal height As Integer = -1)
If width = -1 Then width = ctrl.Width
If height = -1 Then height = ctrl.Height
Dim a As Image = New Bitmap(ctrl.Width, ctrl.Height)
Dim bgGraph As Graphics = Graphics.FromImage(a)
Dim rect As New Rectangle(New Point(0, 0), New Point(width, height))
Dim degradbrush As Drawing2D.LinearGradientBrush
Select Case type
Case TypeDegrad.Horizontal
degradbrush = New Drawing2D.LinearGradientBrush(rect, startcolor, endcolor, Drawing2D.LinearGradientMode.Horizontal)
Case TypeDegrad.Vertical
degradbrush = New Drawing2D.LinearGradientBrush(rect, startcolor, endcolor, Drawing2D.LinearGradientMode.Vertical)
Case TypeDegrad.Diagonale_avant
degradbrush = New Drawing2D.LinearGradientBrush(rect, startcolor, endcolor, Drawing2D.LinearGradientMode.ForwardDiagonal)
Case TypeDegrad.Diagonale_arriere
degradbrush = New Drawing2D.LinearGradientBrush(rect, startcolor, endcolor, Drawing2D.LinearGradientMode.BackwardDiagonal)
Case Else
degradbrush = New Drawing2D.LinearGradientBrush(rect, startcolor, endcolor, angle, True)
End Select
bgGraph.FillRectangle(degradbrush, rect)
ctrl.BackgroundImage = a
End Sub
End Class
'classe de gestion de fond mouvant
Public Class RollingBG
Private b As Boolean
Private _interval As Integer
Private _startcolor As Color
Private _endcolor As Color
Private _curform As Form
Private _backlabel As Label = New Label
Private _angle As Single
Private thread1 As Threading.Thread
Public Enum TypeDegrad
Horizontal
Vertical
Diagonale
End Enum
Private Delegate Sub DelegateAddLabel(ByVal newlabel As Label)
Private Delegate Sub DelegateRemoveLabel(ByVal newlabel As Label)
Private Delegate Sub DelegateChangeBGColor(ByVal clr As Color)
Private Delegate Sub DelegateDegrade(ByRef ctrl As Control, ByVal startcolor As Color, ByVal endcolor As Color, ByVal angle As Single)
Private Delegate Sub DelegateDegradeHV(ByRef ctrl As Control, ByVal startcolor As Color, ByVal endcolor As Color, ByVal type As TypeDegrad, ByVal angle As Single, ByVal width As Integer, ByVal height As Integer)
Public Sub New()
_interval = 10
End Sub
Public Sub New(ByVal interval As Integer)
If interval > 0 Then
_interval = interval
Else
_interval = 10
End If
End Sub
Private Function newlabel(ByVal width As Single, ByVal height As Single) As Label
Dim newlbl As New Label
newlbl.Width = width
newlbl.Height = height
Return newlbl
End Function
Public Sub vertical(ByRef curform As Form, ByVal startcolor As Color, ByVal endcolor As Color)
start(curform, startcolor, endcolor, 2)
End Sub
Public Sub horizontal(ByRef curform As Form, ByVal startcolor As Color, ByVal endcolor As Color)
start(curform, startcolor, endcolor, 1)
End Sub
Public Sub diagonal(ByRef curform As Form, ByVal startcolor As Color, ByVal endcolor As Color)
start(curform, startcolor, endcolor, 0)
End Sub
Private Sub start(ByRef curform As Form, ByVal startcolor As Color, ByVal endcolor As Color, ByVal type As Integer)
pause()
Select Case type
Case 0
thread1 = New Threading.Thread(AddressOf diagonal_thread)
Case 1
thread1 = New Threading.Thread(AddressOf horizontal_thread)
Case 2
thread1 = New Threading.Thread(AddressOf vertical_thread)
End Select
'pause()
b = True
_curform = curform
_startcolor = startcolor
_endcolor = endcolor
AddHandler _curform.FormClosing, AddressOf FormClosing
thread1.Start()
End Sub
Private Sub vertical_thread()
Dim descendant As Boolean = True
Dim i As Integer = 1
Dim max As Integer = _curform.Height + (_curform.Height / 4)
_curform.Invoke(New DelegateChangeBGColor(AddressOf changeBGcolor), New Object() {_endcolor})
_backlabel = newlabel(_curform.Width, _curform.Height)
_curform.Invoke(New DelegateAddLabel(AddressOf addlabel), New Object() {_backlabel})
Do While b = True
Do While (i < max) And (i >= 1)
If b = False Then Exit Do
_backlabel.Invoke(New DelegateDegradeHV(AddressOf DegradeA), New Object() {_backlabel, _startcolor, _endcolor, TypeDegrad.Vertical, 0, -1, i})
Threading.Thread.Sleep(_interval)
If descendant = True Then i += 1 Else i -= 1
Loop
descendant = Not descendant
If descendant = False Then i -= 1 Else i += 1
Loop
_curform.Invoke(New DelegateRemoveLabel(AddressOf removelabel), New Object() {_backlabel})
End Sub
Private Sub horizontal_thread()
Dim descendant As Boolean = True
Dim i As Integer = 1
Dim max As Integer = _curform.Width + (_curform.Width / 4)
_curform.Invoke(New DelegateChangeBGColor(AddressOf changeBGcolor), New Object() {_endcolor})
_backlabel = newlabel(_curform.Width, _curform.Height)
_curform.Invoke(New DelegateAddLabel(AddressOf addlabel), New Object() {_backlabel})
Do While b = True
Do While (i < max) And (i >= 1)
If b = False Then Exit Do
_backlabel.Invoke(New DelegateDegradeHV(AddressOf DegradeA), New Object() {_backlabel, _startcolor, _endcolor, TypeDegrad.Horizontal, 0, i, -1})
Threading.Thread.Sleep(_interval)
If descendant = True Then i += 1 Else i -= 1
Loop
descendant = Not descendant
If descendant = False Then i -= 1 Else i += 1
Loop
_curform.Invoke(New DelegateRemoveLabel(AddressOf removelabel), New Object() {_backlabel})
End Sub
Private Sub diagonal_thread()
_backlabel = newlabel(_curform.Width, _curform.Height)
_curform.Invoke(New DelegateAddLabel(AddressOf addlabel), New Object() {_backlabel})
Do While b
For i As Integer = 1 To 360
If b = False Then Exit For
If i Mod 90 = 0 Then i = i + 1 'evite le clignottement des angles "droits" (90,180,270)
_backlabel.Invoke(New DelegateDegrade(AddressOf DegradeB), New Object() {CType(_backlabel, Control), _startcolor, _endcolor, i})
Threading.Thread.Sleep(_interval)
Next
Loop
_curform.Invoke(New DelegateRemoveLabel(AddressOf removelabel), New Object() {_backlabel})
End Sub
'event ajouté à la form
Private Sub FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs)
pause()
End Sub
Public Sub pause()
b = False
If Not IsNothing(thread1) Then
thread1.Abort()
removelabel(_backlabel)
End If
End Sub
'Sub deleguées
Private Sub addlabel(ByVal newlabel As Label)
_curform.Controls.Add(newlabel)
End Sub
Private Sub removelabel(ByVal newlabel As Label)
_curform.Controls.Remove(newlabel)
End Sub
Private Sub changeBGcolor(ByVal clr As Color)
_curform.BackColor = clr
End Sub
Private Sub DegradeA(ByRef ctrl As Control, ByVal startcolor As Color, ByVal endcolor As Color, ByVal type As TypeDegrad, ByVal angle As Single, ByVal width As Integer, ByVal height As Integer)
If b = True Then
HbCtrlDegrad.Degrade(ctrl, startcolor, endcolor, type, 0, width, height)
End If
End Sub
Private Sub DegradeB(ByRef ctrl As Control, ByVal startcolor As Color, ByVal endcolor As Color, ByVal angle As Single)
If b = True Then
HbCtrlDegrad.Degrade(ctrl, startcolor, endcolor, 5, angle)
End If
End Sub
End Class
Conclusion
J'ai presque honte de perdre du temps la dessus, mais bon... ^^' Je met niveau Initié, même si l'utilisation de la classe est simpliste, et que la partie algorithmique se resume à peu de ligne de code, le fait qu'elle implémente threads et autres delegués necessite je pense, ce niveau 2. Faites le moi savoir si vous pensez que je m'emballe ^^.
Historique
- 02 juillet 2007 00:29:43 :
- correction du titre
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Faire défiler le fond de la feuille et tout les controles avec [ par Viny ]
Je cherche une solution pour faire défiler le fond de la feuille avec tous les controles qui se trouve dessus afin de gagner de la place dans ma feuil
Insérer une image de fond sous excel [ par spoggio ]
Alors question tout con :Je sais insérer une image de fond sur une feuille Excel.....mais le problème c'est que je voudrai que ce cher Excel ne me la
mettre au demarrage de la feuille une image en fond [ par pcman5 ]
Je voudrais que la feuille a une image de fond situer dans un repertoire predefini:Voici ce que j'ai fait mais ca marche pas:Form1.Image = App.Path &
image dans feuille vb [ par voyageurvoyageur ]
débutant en vb 6 je cherche à mettre en fond d'une feuille une image.j'ai téléchargé un fond d'écran mais je n'arrive pas à la dimensionner pour quell
FOND FEUILLE EXCEL [ par Marathon Man ]
Bonjour,Je ne sais pas si c'est u code vba mais je voudrais savoir comment on rendle fond de la feuille blanche en enlevant le quadriallageMerci par a
Cration d'un effet sut l'image de fond. [ par DraaFil ]
Bonjour à tous,J'aurais besoin de vous pour m'aider à faire, ou bien à enligner, mes recherches.Je m'explique j'ai une form qui s'affiche au centre de
fond en couleurs degradé winform vb2005 [ par wardavb ]
bonjour je cherche les commandes qui permettent d'avoir un back color degradé sur les winforms Pour info j'avais essayé ca a l'epoque d'apres une web
garder une feuille en fond d'ecran [ par Roussetj ]
bonjour,voici ma question, j'ai realisé un programme qui interagit avec plusieurs classeurs.Pdt que mon programme effectue les actions et les calculs
[Catégorie modifiée VB6 -> .Net] Effet de fond sur un Label [ par PiertoPeer ]
Salut, J'aurai aimer savoir comment reproduire cet effet(c'est un effet de flou en fond pour un label): http://imageshack.us/photo/my-images/849/effe
Effet de fond sur un Label [ par PiertoPeer ]
Salut, J'aurai aimer savoir comment reproduire cet effet(c'est un effet de flou en fond pour un label sur une form en aero effect): [Url= http://image
|
Derniers Blogs
[WP7] DYNAMICALLY CHANGE STARTUP PAGE[WP7] DYNAMICALLY CHANGE STARTUP PAGE par KooKiz
Let's say that you want to allow the user to customize the startup page of your application. You can easily change the startup page by editing the 'NavigationPage' attribute in the manifest file. But the manifest cannot be modified once the applicatio...
Cliquez pour lire la suite de l'article par KooKiz SESSION SILVERLIGHT 5 3D : SLIDES ET DEMOSSESSION SILVERLIGHT 5 3D : SLIDES ET DEMOS par Groc
Durant les techdays, j'ai eu le plaisir d'animer une session sur Silverlight 5 et la 3D avec Simon Ferquel. Comme promis, voici nos slides et mes démos (celles avec le viper BSG) ici et là. Pour mémoire, les démos utilisent toutes le viper BSG...
Cliquez pour lire la suite de l'article par Groc [TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES[TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES par gpommier
Suite à la session que j'ai présenté sur WebMatrix 2, vous pouvez trouver les slides ici, ainsi que les démos en packages nuget : démos1 et démos2 J'en profite pour remercier chaleureusement tous ceux qui sont venus très nombreux à cette sess...
Cliquez pour lire la suite de l'article par gpommier [SHAREPOINT] LES SESSIONS TECHDAYS 2012.[SHAREPOINT] LES SESSIONS TECHDAYS 2012. par Patrick Guimonet
Voici donc pour ceux qui n'ont pas pu venir, ou ceux qui n'ont pas pu toutes les suivre la liste des sessions SharePoint aux TechDays 2012, que je mettrais à jour dès que les liens des vidéo seront disponibles. Ou ici : http...
Cliquez pour lire la suite de l'article par Patrick Guimonet TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice
Speaker: Bernard Ourghanlian Cette session est comme chaque jour transmise en live par BrainSonic, et j'ai donc suivi cette troisième pleinière par ce moyen sur mon iPad . Elle est dédiée comme chaque année à la mise en perspective de l'é...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning
|