Pequeña duda con un String

[z3nth10n]

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

Código (vbnet) [Seleccionar] Expandir

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

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

Código (vbnet) [Seleccionar] Expandir


        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.

[Eleкtro]

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

Código (vbnet) [Seleccionar] Expandir

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

[z3nth10n]

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...

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!

[Eleкtro]

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

Código (vbnet) [Seleccionar] Expandir

       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

[El_Andaluz]

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

[Eleкtro]

@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!

[z3nth10n]

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

Para que están los MPs?

[Eleкtro]

@Seazoux:

Código (vbnet) [Seleccionar] Expandir

#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

[z3nth10n]

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

Entonces me ayudas con el scroll?