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!
Cita de: Elsevi en 10 Junio 2013, 20:50 PM
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? ;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: