Mensajes

Gracias Kubox, luego intento hacer eso porque es un poco lío para mí xD


De todas formas creo que el problema no tiene nada que ver con el thread.

MsgBox(Thread_is_completed) ' el valor es False
Me da exactamente el mismo error que he comentado en el primer comentario... aritmetic bla bla bla...


Me he equivocado con eso.

¿Porqué?

Se diferencia en que la aplicación no se "cuelga" al usar un while + aplication.doevents() :-/

De alguna manera tengo que esperar hasta que el thread mande una respuesta como diciendo "he acabado mi trabajo", por ejemplo para cambiar el estado de un botón:

Botón con texto "Start" > inicia el thread > cambia el texto a "STOP"
hasta que el thread no acabe el texto del botón no vuelve a ser "Start".

¿Me entienden?

Edu,
¿Como le harías tu?

La intención del código de arriba es esto:

Código [Seleccionar] Expandir

      Thread_Split.Start() ' Ejecutar el thread
           ' ( Al acabar el thread la variable booleana se vuelve TRUE )
           Hasta que "Variable booleana" séa igual a "True"
               No hacer nada de nada
           End While

Si no encuentro solución pronto arreglaré un poco el thread para postearlo...

Gracias y Saludos.

Hola foreros,

Necesito ayuda para localizar un programa CommandLine que tenga estas características:

1. Crear una imagen ISO
2. Crear la ISO por volúmenes (Cada archivo ISO debe ser grabable, no debe depender del resto de volúmenes partidos).



WinRar no dispone de la creación de archivos ISO.

7zip no soporta el "cortado" de volúmenes en la creación de archivos ISO (-tiso).

PowerIso genera volúmenes que dependen entre sí, y además en formato DAA, por lo tanto no me sirve.

Si saben cualquier programa que cumpla las características háganmelo saber,
Gracias.

Un saludo!

Estoy teniendo problemas con esto:

Código (vbnet) [Seleccionar] Expandir

 Thread_Split.Start()
       While Not Thread_is_completed = True
           Application.DoEvents()
       End While

Cuando inicio el thread por segunda vez, me salta este error:

Código [Seleccionar] Expandir

Arithmetic operation resulted in an overflow.


¿Porqué?

Yo si que me lo puedo descargar de mediafire ;./

Bueno, ya lo he resubido a un multiserver, ahora si lo podrán descargar para testearlo

http://exoshare.com/download.php?uid=1SWEKAJS

PD: Dentro de poco actualizaré a la versión 1.2 para generar ISOS automáticamente.

Un saludo!

Oscurecer una imagen a escala de grises (Disable image)

PD: He retocado la función original para añadirle opción de elegir distintos tonos de gris, me ha quedado bastante bien.

Código (vbnet) [Seleccionar] Expandir

#Region " GrayScale Image Function "

   ' [ GrayScale Image Function ]
   '
   ' Examples:
   '
   ' PictureBox1.Image = GrayScale_Image(PictureBox1.Image, GrayScale.Light_Gray)
   ' PictureBox1.Image = GrayScale_Image(PictureBox1.Image, GrayScale.Mid_Gray)
   ' PictureBox1.Image = GrayScale_Image(PictureBox1.Image, GrayScale.Dark_Gray)

   Enum GrayScale
       Light_Gray
       Mid_Gray
       Dark_Gray
   End Enum

   Private Function GrayScale_Image(ByVal Image As Image, ByVal Gray_Tone As GrayScale) As Bitmap
       Dim Image_Bitmap As Bitmap = New Bitmap(Image.Width, Image.Height)
       Dim Image_Graphic As Graphics = Graphics.FromImage(Image_Bitmap)
       Dim Color_Matrix As System.Drawing.Imaging.ColorMatrix = Nothing
       Select Case Gray_Tone
           Case GrayScale.Light_Gray : Color_Matrix = New System.Drawing.Imaging.ColorMatrix(New Single()() {New Single() {0.2, 0.2, 0.2, 0, 0}, New Single() {0.2, 0.2, 0.2, 0, 0}, New Single() {0.5, 0.5, 0.5, 0, 0}, New Single() {0, 0, 0, 1, 0}, New Single() {0, 0, 0, 0, 1}})
           Case GrayScale.Mid_Gray : Color_Matrix = New System.Drawing.Imaging.ColorMatrix(New Single()() {New Single() {0, 0, 0, 0, 0}, New Single() {0, 0, 0, 0, 0}, New Single() {0.5, 0.5, 0.5, 0, 0}, New Single() {0, 0, 0, 1, 0}, New Single() {0, 0, 0, 0, 1}})
           Case GrayScale.Dark_Gray : Color_Matrix = New System.Drawing.Imaging.ColorMatrix(New Single()() {New Single() {0, 0, 0, 0, 0}, New Single() {0, 0, 0, 0, 0}, New Single() {0.2, 0.2, 0.2, 0, 0}, New Single() {0, 0, 0, 1, 0}, New Single() {0, 0, 0, 0, 1}})
       End Select
       Dim Image_Attributes As System.Drawing.Imaging.ImageAttributes = New System.Drawing.Imaging.ImageAttributes()
       Image_Attributes.SetColorMatrix(Color_Matrix)
       Image_Graphic.DrawImage(Image, New Rectangle(0, 0, Image.Width, Image.Height), 0, 0, Image.Width, Image.Height, GraphicsUnit.Pixel, Image_Attributes)
       Image_Graphic.Dispose()
       Return Image_Bitmap
   End Function

#End Region

Ingresen a este link para ver el error que me sale:
http://subefotos.com/ver/?8fd0763e0ef424ac39fc3d1e939dd435o.jpg

No estoy seguro del todo pero yo diría que te falta la dll de ese control (En el equipo), MS powerpacks. debes distribuir todas las DLL necesarias junto a tu exe...

http://msdn.microsoft.com/en-us/vstudio//bb735936

Saludos!

Que extraño, acabo de revisar el enlace y funciona perfecto!

PD: Espero tus buenas críticas constructivas!

Excelente trabajo sigue así. saludos y gracias

Gracias a tí por comentar, y por la pequeña ayuda con el textbox para poder acabarlo xD.

Saludos!

[x'D]

Es como si entras a un foro de robótica y pides ayuda para que tu robot pueda matar...

x'D  Que bueno.