Cherche ecran de veille
gillesdesantilles
Messages postés
1
Date d'inscription
lundi 11 juillet 2005
Statut
Membre
Dernière intervention
12 juillet 2005
-
12 juil. 2005 à 09:27
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 - 13 juil. 2005 à 19:13
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 - 13 juil. 2005 à 19:13
A voir également:
- Cherche ecran de veille
- Fond d'ecran simple - Forum Visual Basic 6
- Plein ecran excel ✓ - Forum VBA Office (Excel, Word ...)
- Écran d'affichage cuisine ✓ - Forum VB.NET
- Fond d'écran classe - Forum Java
- Résolutions écran - Forum VB.NET
2 réponses
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
12 juil. 2005 à 16:05
12 juil. 2005 à 16:05
Bonjour,
Je viens de déposer une source sur ce sujet, tu peux t'en inspirer et/où la modifier.
http://www.vbfrance.com/code.aspx?ID=32648
merci de laisser tes impressions.
jpleroisse
Je viens de déposer une source sur ce sujet, tu peux t'en inspirer et/où la modifier.
http://www.vbfrance.com/code.aspx?ID=32648
merci de laisser tes impressions.
jpleroisse
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
13 juil. 2005 à 19:13
13 juil. 2005 à 19:13
Bonjour,
Tu peux aussi fabriquer ce petit écran de veille en placçant sut ta
Form un contrôle Timer et un PictureBox avec une image dedans.
Pour quitter l'écran, un click avec le bouton gauche de la souris.
Option Explicit
Dim DeltaX, DeltaY As Integer ' Déclare les variables.
Private Sub Timer1_Timer()
Picture1.Move Picture1.Left + DeltaX, Picture1.Top + DeltaY
If Picture1.Left < ScaleLeft Then DeltaX = 100
If Picture1.Left + Picture1.Width > ScaleWidth + ScaleLeft Then
DeltaX = -100
End If
If Picture1.Top < ScaleTop Then DeltaY = 100
If Picture1.Top + Picture1.Height > ScaleHeight + ScaleTop Then
DeltaY = -100
End If
End Sub
Private Sub Form_Load()
With Form1
.BorderStyle = 1
.WindowState = 2
.BackColor = vbBlack
.Caption = "Ecran de veille"
End With
With Picture1
.AutoSize = True
.BorderStyle = 0
.BackColor = vbBlack
End With
Timer1.Interval = 100 ' Définit l'intervalle.
DeltaX = 100 ' Initialise les variables.
DeltaY = 100
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
End
End Sub
si celà te convient, clique réponse acceptée
jpleroisse
Tu peux aussi fabriquer ce petit écran de veille en placçant sut ta
Form un contrôle Timer et un PictureBox avec une image dedans.
Pour quitter l'écran, un click avec le bouton gauche de la souris.
Option Explicit
Dim DeltaX, DeltaY As Integer ' Déclare les variables.
Private Sub Timer1_Timer()
Picture1.Move Picture1.Left + DeltaX, Picture1.Top + DeltaY
If Picture1.Left < ScaleLeft Then DeltaX = 100
If Picture1.Left + Picture1.Width > ScaleWidth + ScaleLeft Then
DeltaX = -100
End If
If Picture1.Top < ScaleTop Then DeltaY = 100
If Picture1.Top + Picture1.Height > ScaleHeight + ScaleTop Then
DeltaY = -100
End If
End Sub
Private Sub Form_Load()
With Form1
.BorderStyle = 1
.WindowState = 2
.BackColor = vbBlack
.Caption = "Ecran de veille"
End With
With Picture1
.AutoSize = True
.BorderStyle = 0
.BackColor = vbBlack
End With
Timer1.Interval = 100 ' Définit l'intervalle.
DeltaX = 100 ' Initialise les variables.
DeltaY = 100
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
End
End Sub
si celà te convient, clique réponse acceptée
jpleroisse
