none
fichiers liées au ComboBox1 RRS feed

  • Question

  • je veut faire une petite application à partir d'un ComboBox1 dans form1 contenant le nom des animaux "chat,chien,elepahnt,lion" si  je sélectionne l'un de ces élements une nouvelle form se lance et en parallele le son spécifique de l'animal sélectionner se lance à partir d'un répertoire appelé sounds dans mon poste de travail

    merci infinement de m'aider 

    mercredi 8 décembre 2010 06:37

Réponses

  • Bonjour,

     

    Donc vous partez de rien ?

    vous ne savez pas comment faire pour faire quoi, mettre les noms d'animaux dans le combobox ? ou lire les sons quand cela change d'animaux ?

     

    Je part uniquement sur le principe de l'idée de départ

    Public Class Form1
    
      Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        My.Computer.Audio.Play(System.IO.Path.Combine(Application.StartupPath, "sounds/" & CType(sender, ComboBox).SelectedText & ".wav"))
      End Sub
    
      Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ComboBox1.Items.Add("Chien")
        ComboBox1.Items.Add("Cheval")
        ComboBox1.Items.Add("Chat")
        ComboBox1.Items.Add("Elephant")
        ComboBox1.Items.Add("Lion")
        ComboBox1.Items.Add("Grenouille")
      End Sub
    End Class
    

    A bientot

     

     

     


    Cordialement, Troxsa
    • Marqué comme réponse Alex Petrescu mercredi 15 décembre 2010 10:11
    mercredi 8 décembre 2010 10:16
    Auteur de réponse
  • ComboBox1 dans form1 contenant le nom des animaux

    si  je sélectionne l'un de ces élements une nouvelle form se lance et en parallele le son de l'animal sélectionner se lance à partir d'un répertoire appelé sounds dans mon poste de travail


    Bonjour,

    Tiens, en pousuivant sur l'oeuvre de "TroXsa", voici une variante de programme permettant d'avoir un nom d'animal et de fichier différent, qui bloque l'activation du son au lancement et lance la form2 comme tu le désire (qui est ici totalement inutile :o) :

    Option Explicit On
    Public Class Form
     Dim entree As Boolean = True
     '
     Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     ComboBox1.Items.Add("LICORNE")
     ComboBox1.Items.Add("CHIMERE") ' rajout autant que d'animaux
     ComboBox1.SelectedIndex = 0
     End Sub
    
     Sub Form_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
     entree = False
     End Sub
    
     Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
     Dim cheminFichier As String = "C:\Windows\Media\" ' mets ton chemin
     Dim nomFichier As String = ""
     If entree = True Then Exit Sub
     Select Case ComboBox1.SelectedIndex ' rajout autant que d'annimaux
      Case 0 : nomFichier = "ding.wav"
      Case 1 : nomFichier = "tada.wav"
     End Select
     Form2.Show(Me) ' ça sert à rien !
    
    My.Computer.Audio.Play(cheminFichier & nomFichier)
     System.Threading.Thread.Sleep(1000)
     Form2.Close() ' ferme form2
     End Sub
    End Class

    Cordialement

     


    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire
    • Modifié EhJoe mercredi 8 décembre 2010 12:00 modif code 1
    • Marqué comme réponse Alex Petrescu mercredi 15 décembre 2010 10:11
    mercredi 8 décembre 2010 11:46

Toutes les réponses

  • Bonjour,

     

    Donc vous partez de rien ?

    vous ne savez pas comment faire pour faire quoi, mettre les noms d'animaux dans le combobox ? ou lire les sons quand cela change d'animaux ?

     

    Je part uniquement sur le principe de l'idée de départ

    Public Class Form1
    
      Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        My.Computer.Audio.Play(System.IO.Path.Combine(Application.StartupPath, "sounds/" & CType(sender, ComboBox).SelectedText & ".wav"))
      End Sub
    
      Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ComboBox1.Items.Add("Chien")
        ComboBox1.Items.Add("Cheval")
        ComboBox1.Items.Add("Chat")
        ComboBox1.Items.Add("Elephant")
        ComboBox1.Items.Add("Lion")
        ComboBox1.Items.Add("Grenouille")
      End Sub
    End Class
    

    A bientot

     

     

     


    Cordialement, Troxsa
    • Marqué comme réponse Alex Petrescu mercredi 15 décembre 2010 10:11
    mercredi 8 décembre 2010 10:16
    Auteur de réponse
  • ComboBox1 dans form1 contenant le nom des animaux

    si  je sélectionne l'un de ces élements une nouvelle form se lance et en parallele le son de l'animal sélectionner se lance à partir d'un répertoire appelé sounds dans mon poste de travail


    Bonjour,

    Tiens, en pousuivant sur l'oeuvre de "TroXsa", voici une variante de programme permettant d'avoir un nom d'animal et de fichier différent, qui bloque l'activation du son au lancement et lance la form2 comme tu le désire (qui est ici totalement inutile :o) :

    Option Explicit On
    Public Class Form
     Dim entree As Boolean = True
     '
     Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     ComboBox1.Items.Add("LICORNE")
     ComboBox1.Items.Add("CHIMERE") ' rajout autant que d'animaux
     ComboBox1.SelectedIndex = 0
     End Sub
    
     Sub Form_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
     entree = False
     End Sub
    
     Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
     Dim cheminFichier As String = "C:\Windows\Media\" ' mets ton chemin
     Dim nomFichier As String = ""
     If entree = True Then Exit Sub
     Select Case ComboBox1.SelectedIndex ' rajout autant que d'annimaux
      Case 0 : nomFichier = "ding.wav"
      Case 1 : nomFichier = "tada.wav"
     End Select
     Form2.Show(Me) ' ça sert à rien !
    
    My.Computer.Audio.Play(cheminFichier & nomFichier)
     System.Threading.Thread.Sleep(1000)
     Form2.Close() ' ferme form2
     End Sub
    End Class

    Cordialement

     


    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire
    • Modifié EhJoe mercredi 8 décembre 2010 12:00 modif code 1
    • Marqué comme réponse Alex Petrescu mercredi 15 décembre 2010 10:11
    mercredi 8 décembre 2010 11:46
  • Bonjour,

     

    Chaker001, pouvez-vous confirmer si les solutions proposées par TroXsA et EhJoe vous ont mis sur la bonne voie ?

     

    Cordialement,

    Alex

    ________________

    Publiez un article sur MSDN !

    Windows Phone 7

    Astuces pour Visual Studio 2010

    XNA – Développement jeux vidéo

    Didacticiels et astuces : VB.NET, C#, ASP.NET, .NET Framework, Silverlight, Workflow Foundation, SharePoint, WPF

    Microsoft propose ce service gratuitement, dans le but d'aider les utilisateurs et d'élargir les connaissances générales liées aux produits et technologies Microsoft. Ce contenu est fourni "tel quel" et il n'implique aucune responsabilité de la part de Microsoft.

     

     


    Suivez MSDN sur Twitter 

    lundi 13 décembre 2010 15:03