VB-Music
Visual Basic
Publicado el 30 de Noviembre del 2014 por Megamind (12 códigos)
7.259 visualizaciones desde el 30 de Noviembre del 2014
Catalogador y reproductor de archivos de música
Se puede añadir simultáneamente archivos y carpetas. Tiene algunas opciones de filtrado para la búsqueda
Aun esta en proceso de desarrollo, pero todas las opciones que contiene actualmente son operativas
A ver que opináis, acepto críticas y sugerencias
Se puede añadir simultáneamente archivos y carpetas. Tiene algunas opciones de filtrado para la búsqueda
Aun esta en proceso de desarrollo, pero todas las opciones que contiene actualmente son operativas
A ver que opináis, acepto críticas y sugerencias
Comentarios sobre la versión: 1.0 (8)
Con las prisas se me paso incluir el código para que cuente las veces que se reproduce una canción, para asi poder obtener mejor un listado de los
Top 25 Canciones
Podeis hacerlo de esta forma.
En el procedimiento
Private Sub fg3_DblClick(ByVal lRow As Long, ByVal lCol As Long)
En cualquien punto siempre que este por debajo de
lRow = fg3.SelectedRow
incluir lo siguiente
'------------------------------------------------------------------------------------------------
IdRegistro = fg3.Cell(lRow, 2).Text
vVeces = Val(fg3.Cell(lRow, 10).Text) + 1
If RS.State = adStateOpen Then
RS.close
End If
RS.Open "select * from Biblioteca", cn, adOpenStatic, adLockOptimistic
cn.Execute "UPDATE Biblioteca set Veces = '" & vVeces & "' where id = " & IdRegistro & ""
'------------------------------------------------------------------------------------------------
Y ya esta
Con esto leemos el campo veces y sumamos 1 cada vez que se reproduce
Saludos
Podrías añadirlo?
Ese ocx es un control de pago que yo utilizo para mi versión del programa
Ocurre que suelo ir cargando los formularios de mi versión a esta para que no necesite ocx de pago, y tengo mucho cuidado de cambiar los controles por otros.
Pero me parece que en algún momento, no desactive la referencia s ese ocx
Pero debería de funcionar bien, ya que el programa no utiliza controles de ese ocx.
Prueba a cargar el programa, y desactiva la referencia a
ComponentOne VsflexGrid 8.0(OLEDB)
Y si tienes algún problema, me lo dices, que lo subo de nuevo actualizado
Si continuo la carga del proyecto, al ejecutarlo me aparece una ventana con titulo: "vbAccelerator SGrid II Control" que dice: "Run-time error '0'"
He registrado todas las librerías que hay en la carpeta Ocx con la instrucción: regsvr32 ...
No se si es problema de mi ordenador, que ya esta en un poco cargado... utilizo Win XP
haz una cosa, descargate esta demo y si funciona, mira si es que falta algo
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/zip/506-maestro-detalle-con-s-grid-vb-accelerator.zip,
El sGrid2 depende de SSubTmr.dll que tiene que registrase
Asi que si descargas esa demo, copias el SSubTmr.dll a la carpeta ocx del programa, y lo registras, creo que se te solucionara.
Ya dirás si es asi
Saludos
Darte las gracias por el buen trabajo del programa realizado y por compartirlo, me gustaria saber como puedo ensanchar las barras del Spectro, he visto en las declaraciones 'drw_barwidth' pero esta deshabilitada. Algún ejemplo.
Gracias