Jaja.. Vaya... Brother, solo quise llamarlo asi MP3 Reproductor... Es el Nombre de mi aplicación...! Creo que la puedo llamar como más me guste...!

Bueno, estuve un poco fastidiado ayer, y quise desarrollar un Reproductor MP3. Quizás tenga algunos fallos. Si alguien tiene sugerencias o comentarios, son bienvenidos.

Saludos

Adjunto muestro la Imagen Principal


Acá luego de seleccionar un Directorio para Cargar los Archivos.


Acá mi creación en su andanza...!


Nota: Al minimizar, se coloca el icono en el Systray. Para llamarlo de nuevo, solo deben hacer dobleclick sobre el...!

Sin más, pues dejo el source para que lo descarguen y lo prueben....!

Espero les guste... Saludos...

PD: Vendré con una versión para ver Videos y Peliculas en DVD....! Comming Soon..!

Descarga 1
Descarga 2

Querrá algo así...

 
SELECT item, text FROM TABLA WHERE item = 54 AND (text='teoria' AND text='11');
 
 

A ver, Algo así???

 
Private Sub Form_Load()
List1.AddItem "Ejemplo 1"
List1.AddItem "Ejemplo 2"
List1.AddItem "Ejemplo 3"
End Sub
 
Private Sub List1_Click()
If List1.Text = "Ejemplo 1" Then
Text1.Text = "Debo Aprender"
ElseIf List1.Text = "Ejemplo 2" Then
Text1.Text = "A usar GOOGLE"
ElseIf List1.Text = "Ejemplo 3" Then
Text1.Text = "O Leer Mas"
End If
End Sub
 
 

List1.Text, no es una variable... .Text es la propiedad que posee el OBJETO List1, el cual te permite leer su valor al posicionarte en alguno de los registros que este contenga... Pero hagamos algo, leete mejor un manual de vb...!

Esto te puede ayudar: http://www.recursosvisualbasic.com.ar/htm/tutoriales/control_list_box.htm

Fijate acá...

 
Private Sub Form_Load()
List1.AddItem "Ejemplo 1"
List1.AddItem "Ejemplo 2"
List1.AddItem "Ejemplo 3"
End Sub
 
Private Sub List1_Click()
Text1.Text = "Este es: " & List1.Text
End Sub
 
 

Recuerdas MAL... POrque es como dijo BlackZerox

Te me adelantaste mi ovejita negra...! Jaja XD

Fijate en este ejemplo que se lo recomiendo a todo el mundo:

Ver Ejemplo 1

Ver Agenda con WidGets

Fijate....!

Si la ruta de la BD en el string de conex es algo como:

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;User Id=admin;Password=;

Ahora bien... La tienes en un servidor... Pues podría ser algo como:

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\Server\MySoftware\mydatabase.mdb;User Id=admin;Password=;