Apprendre le Hack Index du Forum
Apprendre le Hack

 
Apprendre le Hack Index du ForumFAQRechercherS’enregistrerConnexion

:: [fake]VLC player VB.net ::

 
Poster un nouveau sujet   Répondre au sujet    Apprendre le Hack Index du Forum -> A trié
Sujet précédent :: Sujet suivant  
Auteur Message
Inf3rnus
Administrateur

Hors ligne

Inscrit le: 22 Aoû 2011
Messages: 196

MessagePosté le: Mer 14 Déc - 13:30 (2011)    Sujet du message: [fake]VLC player VB.net Répondre en citant

Voici une Fake VLC player que j'ai fait à la suite du tuto http://hack.xooit.com/t155-Tuto-Creation-d-un-lecteur-MP3-VB-Net.htm

Résultat :
à gauche le fake à droite le vrais, il n'est pas encore parfait, mais c'est un beau début non ^^


Les boutons :






Le code source



  1. Public Class Form1  
  2.   
  3.     Private Sub import_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles import.Click  
  4.         importdiag.ShowDialog()  
  5.     End Sub  
  6.   
  7.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  
  8.         playlistmenu.Visible = True  
  9.     End Sub  
  10.   
  11.     Private Sub importdiag_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles importdiag.FileOk  
  12.         For Each track As String In importdiag.FileNames  
  13.             playlist.Items.Add(track)  
  14.             TextBox1.Text = track  
  15.         Next  
  16.     End Sub  
  17.   
  18.     Private Sub play_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles play.Click  
  19.         AxWindowsMediaPlayer1.URL = TextBox1.Text  
  20.         AxWindowsMediaPlayer1.Ctlcontrols.pause()  
  21.     End Sub  
  22.   
  23.     Private Sub stopbutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles stopbutton.Click  
  24.         AxWindowsMediaPlayer1.Ctlcontrols.stop()  
  25.     End Sub  
  26.   
  27.     Private Sub about_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles about.Click  
  28.         MsgBox("Created by Alien")  
  29.     End Sub  
  30.   
  31.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click  
  32.         AxWindowsMediaPlayer1.Ctlcontrols.previous()  
  33.     End Sub  
  34.   
  35.     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click  
  36.         AxWindowsMediaPlayer1.Ctlcontrols.next()  
  37.     End Sub  
  38.   
  39.     Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click  
  40.         Form2.Show()  
  41.         importdiag.ShowDialog()  
  42.     End Sub  
  43.   
  44.     Private Sub TrackBar2_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar2.Scroll  
  45.         AxWindowsMediaPlayer1.settings.volume = TrackBar2.Value  
  46.         If TrackBar2.Value = 1 Then  
  47.             Label4.Text = "10%"  
  48.         End If  
  49.         If TrackBar2.Value = 2 Then  
  50.             Label4.Text = "20%"  
  51.         End If  
  52.         If TrackBar2.Value = 3 Then  
  53.             Label4.Text = "30%"  
  54.         End If  
  55.         If TrackBar2.Value = 4 Then  
  56.             Label4.Text = "40%"  
  57.         End If  
  58.         If TrackBar2.Value = 5 Then  
  59.             Label4.Text = "50%"  
  60.         End If  
  61.         If TrackBar2.Value = 6 Then  
  62.             Label4.Text = "60%"  
  63.         End If  
  64.         If TrackBar2.Value = 7 Then  
  65.             Label4.Text = "70%"  
  66.         End If  
  67.         If TrackBar2.Value = 8 Then  
  68.             Label4.Text = "80%"  
  69.         End If  
  70.         If TrackBar2.Value = 9 Then  
  71.             Label4.Text = "90%"  
  72.         End If  
  73.         If TrackBar2.Value = 10 Then  
  74.             Label4.Text = "100%"  
  75.         End If  
  76.     End Sub  
  77. End Class  






_________________


Revenir en haut
Publicité






MessagePosté le: Mer 14 Déc - 13:30 (2011)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    Apprendre le Hack Index du Forum -> A trié Toutes les heures sont au format GMT + 2 Heures
Page 1 sur 1

 
Sauter vers:  




Index | creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com