Public Class Form1
 
    Dim bmp As New Bitmap("c:\1.png")
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' Blanco a Rojo
        ' IMPORTANTE: Utilizar colores ARGB en el primer color
        PictureBox1.BackgroundImage = Fill_Bitmap_Color(bmp, Color.FromArgb(255, 255, 255, 255), Color.Red)
    End Sub
 
    Private Function Fill_Bitmap_Color(ByVal Image As Bitmap, ByVal FromColor As Color, ByVal ToColor As Color)
 
        Dim bmp As New Bitmap(Image)
 
        Dim x As Integer = 0, y As Integer = 0
 
        While x < bmp.Width
            y = 0
            While y < bmp.Height
                If Image.GetPixel(x, y) = FromColor Then bmp.SetPixel(x, y, ToColor)
                Math.Max(Threading.Interlocked.Increment(y), y - 1)
            End While
            Math.Max(Threading.Interlocked.Increment(x), x - 1)
        End While
 
        Return bmp
 
    End Function
 
End Class

Ale, ya tienes media parte hecha

Si que es posible, pero no pinta nada fácil.

Puedes tranformar parte del label a un bitmap, luego modificas el color del bitmap, y luego dibujas ese bitmap en las coordenadas equivalentes.

No se me ocurre otra manera.

Hay muchas cosas parecidas en google... -> http://www.codeproject.com/Articles/5133/Flood-Fill-Algorithms-in-C-and-GDI

Como ya digo... esto fácil no es.

Saludos

Devolvuelve la Key equivalente de un Value de un dictionary:

    Public Function FindKeyByValue(Of TKey, TValue)(dictionary As Dictionary(Of TKey, TValue), value As TValue) As TKey
 
        For Each pair As KeyValuePair(Of TKey, TValue) In dictionary
            If value.Equals(pair.Value) Then Return pair.Key
        Next
 
        ' Throw New Exception("The value is not found in the dictionary.")
        Return Nothing
    End Function

Es que no entiendes el concepto.

Un editor de texto sirve para escribir, puedes exribir un script o una poesia, pero si luego quieres ejecutar ese script, necesitas el intérprete de ese lenguaje.

Yo para lo relacionado con las permutaciones y operaciones de archivos a mansalva (porque necesitarás escribir horas y horas datos en archivos, y además cortar cientos de archivos de texto de largas combnaciones si quieres abrir el archivo sin que se coma toda la RAM...) te recomiendo C# o VBNET, nada de scripting, pero si prefieres el scripting pues Python, Perl, o Ruby, como ya te dije, aunque deberías mirar primero algunas comparaciones de velocidad entre esos trés lenguajes de scripting.

Te digo lo mismo que antes, elige un lenguaje, y luego descargatelo y descárgate el IDE, una IDE es una especie de "editor" especial para ese lenguaje, suele haber varias IDEs NO oficiales para cada lenguaje, así que hay donde elegir, pero no me uses nada de editores de texto como notepad++ ni cosas así, eso es para cuando ya sabes escribir código de forma avanzada sin cometer errores de sintaxis entonces con un editor de texto lo escribes sin preocupaciones y en poco tiempo, como en Batch por ejemplo, que los scripts de Batch se escriben en el notepad porque es muy sencillo. Un buen IDE te suele facilitar las cosas, auto-indentación, debug, auto-correción, intellisense, etc. un buen editor de texto como mucho tiene resaltado de sintaxis y "sugerencias" de keywords, no me puedes comparar un IDE con un editor de texto.

De todas formas si no me quieres hacer mucho caso y te empeñas con lo dle editor de texto, el que yo uso es "Sublime Text" (craqueado): http://www.sublimetext.com/

bueno,
saludos!

no creo que sea necesario hacer pruebas en el windows Bestia ese xD

La APP detecta si winamp está en ejecución, pero instalado no, ya que como cualquier otro programa winamp se puede tener portable, una instalación desatendida, o una instalación oficial, y en el caso de ser portable o una instalación desatendida entonces no está reálmente instalado, por lo cual no hay ninguna clave de desinstalación oficial generada en el registro de desinstaladores de Windows, y la app no podría verificar si está instalada o si no lo está, por eso ...no me gusta la idea ni la llevaré a cabo.

En la página "About" de la app dejé un link para ir a la página oficial de Winamp.

Saludos!

Al final te he hecho caso xD, así al menos la app llega a más manos y puede resultarle más útil a más gente.

Saludos

Nombre del autor: Elektro H@cker
Nombre de la aplicación: WTF  (o WinampToFolder)
Lenguaje: VB.NET
Sistema Operativo: Windows
Link  de descarga: http://ElektroStudios.tk/WinampToFolder.zip    (Versión 1.1, mejorada y con un tremendo bug corregido)
Requisitos especiales: Framework 4.0 y el reproductor Winamp -> www.winamp.com

Descripción:
Esta aplicación sirve para organizar canciones que estemos escuchando en WinAmp.

Imaginemos que tenemos una carpeta con 1.000 canciones, de varios estilos, reproducimos la carpeta en WinAmp y queremos organizar las canciones enviándolas a distintos directorios según el estilo de música que séa cada canción, pues para eso existe esta aplicaicón.


Imágenes:










Demostración:

Quizás puede resultar un poco dificil entender el concepto o la finalidad de la aplicaicon, por eso pueden ver este video donde se muestran todas las funciones del programa:




PD: El programa ha sido testeado con la version 5.X de WinAmp.

Espero que os guste,
Saludos!

Te lo acabo de decir, porque tu cambias el valor de la variable SCC no el valor de trackbar1.smallchange

¿Te has molestado en probar el código que he puesto?, ahí lo tienes todo corregido.

saludos

1. la integridad del code está mal:

Dim scv As Integer = TrackBar1.Value.ToString

Le pasas un valor de string a una variable entera, funciona, pero deberías corregirlo...

2. En ningún momento intentas modificar la propiedad smallchange del trackbar, lo que modificas es la variable que contiene el valor de la propiedad (scc), con lo cual, no modificas nada.

    Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
 
        Dim scv As Int32 = sender.Value
        Dim scc As Int32 = sender.SmallChange
        Dim uni As [String] = "ms"
 
        Select Case scv
            Case Is >= 1000
                scv = scv \ 1000
                uni = "s"
                sender.SmallChange = 1000
            Case Is >= 50
                sender.SmallChange = 50
            Case Is >= 25
                sender.SmallChange = 25
            Case Is >= 15
                sender.SmallChange = 15
        End Select
 
        Label4.Text = (scv & uni).ToString
 
    End Sub

Saludos