Foro de elhacker.net

Hola buenas, pues estoy intentando hacer algo tal que así:

pcb_(pcb_num).Image = Image.FromFile(".\Art\im\image00" & pcb_num & ".png")

Pero el PicBox no se carga... Bueno los picboxes:

        Dim Array_Size As Integer = 300 'change this for the number of controls that will appear
        ReDim pcb_(Array_Size)
 
' Aquí hay más code que no se si interferirá... :(
 
        For pcb_num = 0 To Array_Size
            Application.DoEvents()
            pcb_(pcb_num) = New PictureBox
            pcb_(pcb_num).BackColor = Color.FromArgb(255, pcb_num * 3, pcb_num * 2, pcb_num)
            pcb_(pcb_num).Height = 77
            pcb_(pcb_num).Width = 126
            pcb_(pcb_num).Left = 30
            pcb_(pcb_num).Top = 90 * pcb_num
            pcb_(pcb_num).Image = Image.FromFile(".\Art\im\image00" & pcb_num & ".png")
            Me.Controls.Add(pcb_(pcb_num))
            pcb_(pcb_num).Parent = Panel1
        Next

Un saludo. :-\

Pues en teoría lo has concatenado corréctamente, ¿has probado a añadir un msgbox para comprobar que el archivo existe?...

If Not IO.File.Exists(".\Art\im\image00" & pcb_num & ".png") then msgbox(""".\Art\im\image00" & pcb_num & ".png""" & " no existe") else msgbox ("si que existe")
pcb_(pcb_num).Image = Image.FromFile(".\Art\im\image00" & pcb_num & ".png")

PD: ¿Seguro que quieres usar la propiedad image en lugar de backgroundimage?

EDITO: el .parent los desubica dentro del panel, quita el .parent y añade los picboxes al panel diréctamente en lugar de añadirlos al form.

Saludos

Vale muchas gracias, ya me lo has resuelto, ahora solo necesito saber como hacer esto:

http://foro.elhacker.net/scripting/transformar_nombre_de_los_archivos_a_001002003pngetc-t392201.0.html;msg1859957#new

Y mi script estará terminado.... Por la parte visual, ahora necesito que se amplien los Pics tal como te he contado... y todo eso... :P

PD: Si quieres conectate a Skype y te cuento tol barullo que tengo xD
PDS: Tiene recompensa el conectarse, hay Dubstep de por medio

---

Sobre tu EDITO, como hago eso xD Nub to the powah!

La verdad, la que estás liando en tu array de controles para hacer esto:

        Dim pcb_(2) As PictureBox
 
        For pcb_num = 0 To pcb_.Length - 1
            pcb_(pcb_num) = New PictureBox
            pcb_(pcb_num).BackColor = Color.FromArgb(255, pcb_num * 3, pcb_num * 2, pcb_num)
            pcb_(pcb_num).Size = New Point(Panel1.Size.Width, Panel1.Size.Height \ 4)
            pcb_(pcb_num).Top = 90 * pcb_num
            pcb_(pcb_num).BackgroundImage = Image.FromFile(".\Art\im\image00" & pcb_num & ".png")
            Me.Panel1.Controls.Add(pcb_(pcb_num))
        Next

He visto tu pregunta Batchera... si el problema es que te acabas de dar cuenta que el array empieza por CERO en lugar de UNO y si símplemente quieres empezar desde el número "1" porque tus archivos empiezan con "001" pues modifica el "0" en el For por un "1" para saltar el primer item del array, y listo.

¿Es eso lo que pasa?

Saludos

Hola buenas elektro hacker perdona que no tenga que ver mucho aquí lo que te voy a sugerir el generador de diccionario que tu hiciste hace tiempo que se llama Ice Gen v1.0 (Spanish) me gustaría saber si puedes sacar otra versión mejorando la velocidad de hacer un diccionario personalizado y algunas cosas mas por que es muy lento es muy bueno pero muy lento seguro te lo agradecería mucho si pudieras mejorar esas cosillas en ese generador.Saludos

@ElSevi

Lo cierto es que tenía pensado como idea trasladar ese Batch a código .NET para el concurso "EHN-DEV" de este año ya que dispongo de un método rapidísimo y el más eficiente para permutar caracteres, pero la verdad es que no me motiva mucho hacerlo porque a mi ya no me sirve ese tipo de aplicaciones de brute force para generar diccionarios y cosas parecidas, así que creo que para un concurso no lo voy a hacer, solo lo haría para los demás, en ratos libres, y de momento no es que tenga muchas ganas d ehacerlo...

No sé si lo haré, la verdad, pero de momento no tengo los suficientes motivos para hacerlo, a menos que me paguen por ello xD.

Saludos!

Para que están los MPs? ;D

@Seazoux:

#Region " Rename Files (Increment method) "
 
    ' [ Rename Files (Increment method) ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' Rename_Files_By_Increment("C:\", "jpg") ' Result: 001.jpg, 002.jpg
    ' Rename_Files_By_Increment("C:\")        ' Result: 001.jpg, 002.dll
 
    Private Sub Rename_Files_By_Increment(ByVal Dir As String, Optional ByVal FileExt As String = "*")
 
        Dim FileList As List(Of IO.FileInfo)
 
        If Not FileExt = "*" _
        AndAlso Not FileExt.StartsWith(".") _
        Then FileExt = ("." & FileExt)
 
        Select Case FileExt
            Case "*" : FileList = IO.Directory.GetFiles(Dir, "*", IO.SearchOption.TopDirectoryOnly).Select(Function(p) New IO.FileInfo(p)).ToList
            Case Else : FileList = IO.Directory.GetFiles(Dir, "*" & FileExt, IO.SearchOption.TopDirectoryOnly).Select(Function(p) New IO.FileInfo(p)).ToList
        End Select
 
        Dim ZeroCount As Int64 = FileList.Count.ToString.Length
 
        Dim FileName As String = String.Empty
        Dim Number As Int64 = 0
 
        Try
 
            For Each file In FileList
 
                Number += 1
                FileName &= Number
 
                For zero As Int64 = 0 To ZeroCount
                    If Not FileName.Length = ZeroCount Then
                        FileName = "0" & FileName
                    Else
                        Select Case FileExt
                            Case "*" : IO.File.Move(file.FullName, IO.Path.Combine(file.DirectoryName, FileName & file.Extension))
                            Case Else : IO.File.Move(file.FullName, IO.Path.Combine(file.DirectoryName, FileName & FileExt))
                        End Select
                        FileName = String.Empty
                        Exit For
                    End If
                Next
 
            Next
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
    End Sub
 
#End Region

 ;)

Gracias por el esfuerzo pero no era enecesario en .NET insisto :xD

Entonces me ayudas con el scroll? :laugh: