MUCHÍSIMAS GRACIAS SEBA

EDITO: Lo he solucionado con un "invalidate"

eres un crack haciendo eso de crear controles transparentes.  

Pero ahora me ha surgido un problema con este nuevo label (con el label normal no tengo este problema)

Cuando ejecuto la app todo aparece bien, el label encima de la barra:


Pero cuando refresco (progessbarbar.refresh()) la barra, el label trsnaparente se pone detrás de la barra y no puedo verlo...


¿Sabes como puedo arreglarlo?

Y otra pregunta, hay alguna forma sencilla de exportar tu label trsnaparente como un nuevo controll DLL para instalarlo en la IDE? Si es muy dificil o es bastante extenso de realizar no importa, no quiero marearte más xD.

Un saludo

Estoy harto del tema de las transparencias en los winforms...

aver si me podeis ayudar, el problema es sencillo, la solución...no lo sé.

un label "transparente" encima de una barra de progreso:


¿Como puedo hacerlo transparente de verdad?

Gracias...

¿Quieres desactivar el servicio de escaneo en tiempo real de un AV?      

No podrías haber elegido nada más dificil.

Inicia tu PC y entra en modo seguro (A prueba de fallos) y ahi intentas hacer lo que quieres.

SC Config "nombre del Servicio" Type ="own"

PD: Eso para cambiar de tipo "system" al que tú quieras, aunque siendo un servicio de un AV... seguro que no va a funcionar.

Saludos!

Necesito una ayuda con esto!, conseguí meter un sub en el thread, pero la cosa se complica porque tengo 3 subs,
el primer sub llama al segundo sub pasandole como argumento un nombre de directorio, el segundo sub llama al tercero pasandole otro argumento, y ya no se como meter todo eso en el thread...

Necesito que toda la región "Organize function" trabaje en un thread separado... lo que hice fue meter el 3er sub en el thread e intentar llamar a ese thread con el argumento del sub2, pero me dice que no hay referencia a la instancia del objeto o algo así.

Espero que alguien pueda ayudarme, he eliminado las partes menos importantes del form para que puedan examinarlo mejor:

 
Public Class Form1
 
 
#Region "Declarations"
 
        ' MediaInfo
        Dim MI As MediaInfo
 
        ' Thread
        Dim paused As Boolean = False
 
        ' Others
        Dim NameOfDirectory As String = Nothing
        Dim aFile As FileInfo
 
#End Region
 
 
 
    'thread
    Dim t As New Thread(AddressOf ThreadProc)
 
    Public Sub ThreadProc()
        ' Aqui debería ir  todo el sub de "organize function", bueno... son 3 subs!
        If paused = True Then MsgBox("THREAD PAUSADO")
    End Sub
 
 
 
#Region "Properties"
...
#End Region
 
#Region "Load / Close"
...
#End Region
 
#Region "Get Total files Function"
...
#End Region
 
#Region "Option checkboxes"
...
#End Region
 
#Region "Folder buttons"
...
#End Region
 
#Region "Append text function"
...
#End Region
 
 
 
 
 
#Region "Action buttons"
 
   ' pause button
    Private Sub pause_button_Click(sender As Object, e As EventArgs) Handles pause_button.Click
        paused = True
    End Sub
 
    ' start button
        Private Sub Button2_Click(sender As Object, e As EventArgs) Handles start_button.Click
 
              t.Start()
 
                    ' Organization process
                    NameOfDirectory = userSelectedFolderPath
                    MediaInfo(NameOfDirectory)
 
        End Sub
 
#End region
 
 
 
 
 
#Region "Organize function"
 
        Public Sub MediaInfo(Directory)
            Dim MyDirectory As DirectoryInfo
            MyDirectory = New DirectoryInfo(NameOfDirectory)
            MediaInfoWorkWithDirectory(MyDirectory)
        End Sub
 
        Public Sub MediaInfoWorkWithDirectory(ByVal aDir As DirectoryInfo)
            Dim nextDir As DirectoryInfo
            MediaInfoWorkWithFilesInDir(aDir)
            For Each nextDir In aDir.GetDirectories
                Using writer As StreamWriter = New StreamWriter(aDir.FullName & "\" & nextDir.Name & "\" & nextDir.Name & ".m3u", False, System.Text.Encoding.UTF8)
                    'overwrite existing playlist
                End Using
                MediaInfoWorkWithDirectory(nextDir)
            Next
        End Sub
 
        Public Sub MediaInfoWorkWithFilesInDir(ByVal aDir As DirectoryInfo)
 
            Dim aFile As FileInfo
 
            For Each aFile In aDir.GetFiles()
 
               ' hacer cosas con aFile ...
 
            Next
 
        End Sub
 
#End Region
 
 
 
End Class

De aquí me bajo yo los packs diarios que contienen +200 temas frescos!
http://electrohouse.ucoz.com/
http://electrovsfidget.ru/
Busca los packs de electro en las noticias de esas páginas, que suben packs de todo tipo.
PD: Y mejor si compras el servicio FTP, es caro, pero vale la pena, suben packs cada 2 dias y eso significa unos 800 temas frescos de electro cada semana .

EDITO: Esta otra página también es muy buena, pero el servicio VIP no merece la pena (Te lo dice un VIP ) http://forum.soundarea.org/

EDITO2: Y para temas amateurs (y profesionales) tienes Soundcloud y puedes usar mi herramienta [RUBY] SoundCloud Leecher v0.5 (Manten al día tu colección de música!)

PD2: Postea este tipo de dudas en el sitio correcto: Subforo: Series - Películas - Música - Juegos - Programas foro libre

Como ya dijo $Edu$ el script funciona correctamente, lo que está creando es la carpeta "C:\Usuarios" (No una carpeta dentro de "...\Usuarios\...")

Usas WinXP?

La única posibilidad lógica es que como te dice el intérprete, la carpeta ya existe .

Abre la CMD y escribe:

If Exists "C:\Usuarios" (Echo La carpeta ya existe '¬¬)

Si quieres eliminarla...

RD "C:\Usuarios"

Saludos!

jajaja, me robaste la idea sin saberlo!
Iba a hacerlo exactamente en el mismo buscador xD, mp3skull, que buen buscador gratis!

Gracias por el code!

Un saludo Doddy.

Gracias Kubox, aunque me expliqué mal, yo lo que necesitaba era el ExitCode, pero ya está.

---

Sobre el SharpFFmpeg, me voy a abstener de usarlo, aparte de porque el proyecto tiene SEIS años de antiguedad sin actualizarse, solo hay ejemplos escritos en C#, así que ni idea tengo xD.

Y el FFMPEG.Net no soporta codificación de video, y si no he entendido mal solo soporta pistas WAV, está muy verde, así que tampoco me sirve...

Saludos!

Le tuve que restar una más:

                For i As Integer = 0 To consolebox.Lines.Length - 2
                    Dim first As Integer = consolebox.GetFirstCharIndexFromLine(i)
                    '  MsgBox(first)
                    consolebox.Select(first, 10)
                    consolebox.SelectionColor = Color.Yellow
                Next

Listo! Gracias.

EDITO: te me adelantaste Seba, ahora lo pruebo!

EDITO2: Tu ejemplo selecciona lineas enteras, yo necesito seleccionar la palabra "Processing" de cada linea

EDITO3: Ya está, como la palabra "Processing" empieza al principio de cada línea solo tengo que medir la longitud de la palabra y usarla como "final de índice" xD

GRACIAS

---

Me dice que el ínidce está fuera de la matriz, que lío:

                For line = 0 To consolebox.Lines.Length
                    a = consolebox.GetFirstCharIndexFromLine(line)
                    b = consolebox.Lines(line).Length()
                    MsgBox(a & "," & b)
                    consolebox.Select(a, b)
                    consolebox.SelectionColor = Color.Yellow
                Next