Speedster
Premium
Hey all !
aujourd’hui je cherchais des trucs faire sur VB et j'ai trouvé un tuto pour faire un effet de slide bien sympas donc j'ai décidé de vous le partager en le refaisant en vidéos
! Bon passons directement au Tuto :
Vous devez être inscrit pour voir les médias
Sorry si a des moments la qualité est médiocre surtout au debut donc au debut enfaite je modifie l'opacité par 0% et je modifie FormBorderStyle en mettant None
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Location = New Point(-800, 275)
Timer1.Start()
Timer2.Start()
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Try
Dim x As Double
x = "0,020"
If (Me.Opacity <= 0.8) Then
Me.Opacity += x
ElseIf (Me.Opacity + x > 0.8) Then
Timer1.Stop()
End If
Catch ex As Exception
End Try
End Sub
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
Me.Left = Me.Left + 20
If Me.Left = 0 Then
Timer2.Stop()
End If
End Sub
---------------------------------------------------------------------------------------------------------------------------
Double-cliquer sur la Form , effacez les lignes qu'il y a puis collez le code !
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Location = New Point(-800, 275)
Timer1.Start()
Timer2.Start()
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Try
Dim x As Double
x = "0,020"
If (Me.Opacity <= 0.8) Then
Me.Opacity += x
ElseIf (Me.Opacity + x > 0.8) Then
Timer1.Stop()
End If
Catch ex As Exception
End Try
End Sub
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
Me.Left = Me.Left + 20
If Me.Left = 0 Then
Timer2.Stop()
End If
End Sub
---------------------------------------------------------------------------------------------------------------------------
Double-cliquer sur la Form , effacez les lignes qu'il y a puis collez le code !
Vous devez être inscrit pour voir les liens ! Inscrivez-vous ou connectez-vous ici.
Si vous voulez le thème Flat que j'ai demandé moi en privé
Whaou, comment tu gères ! 
