Duplicar imagen

[metroix]

jajajajaja tranquilo novato, por que dicen que el codigo nos es mio?

se les hace muy complicado?

man quien te crees tu ? rada  es 10000000 veces mejor programador que tu y ese code no es tuyo man deja de mentir si? y se te ase de mal gusto modificar pero no se te ase de mal gusto aser un segundo post solo para degradarnos?

[ActiveSheet]

degradarlos,  no te escudes en el si es de mal gusto y no me estoy metiendo con rada

y el codigo si es mio, lo voy a explicar para que entiendas que es mio,

Código:

Option Explicit
' Declaracion de la variable
Dim a1 As Integer
Private Sub cmdMake_Click()
' Cargar o "duplicar el control" mediante la Index declarada a1
    Load pic(a1)
' esto sirve para redicir codigo y permitir aceder a sus propiedades en base a en objeto
    With pic(a1)
    ' que este visible
        .Visible = True
' propiedad width va hacer igual a la misma propiedad de el picturebox principal
        .Width = pic(0).Width
'propiedad Height va hacer igual a la misma propiedad de el picturebox principal
        .Height = pic(0).Height
'propiedad Left va hacer igual a la misma propiedad de el shape
        .Left = shpVisual.Left
'propiedad Top va hacer igual a la misma propiedad de el shape
        .Top = shpVisual.Top
'propiedad border va hacer a 0 - none "sin borde"
        .BorderStyle = 0
' propiedad para que la nueva pic este encima de las viejas
        .ZOrder
    End With
' termina el reductor de codigo
'aumenta la variable
a1 = a1 + 1
End Sub

Private Sub Form_Load()
'la variable al inicio sera igual a 1 _
para que el index de el picture box _
nuevo sea 1 i no nos de error
    a1 = 1
'color de fondo rojo
    Me.BackColor = vbRed
' otro reductor refiriendonos al formulario
    With Me
        .Top = 0
        .Left = 0
        .Width = 13800
        .Height = 8640
    End With
    ' a qui ya me dio weba explicar
    With pic(0)
        .Width = 600
        .Height = 675
        .BorderStyle = 0
    End With
    shpVisual.Width = pic(0).Width
    shpVisual.Height = pic(0).Height

    cmdMake.Caption = "Make"
End Sub

Private Sub hsb_Change()
    shpVisual.Left = hsb.Value
End Sub

Private Sub vsb_Change()
    shpVisual.Top = vsb.Value
End Sub

[metroix]

lol yo tambien lo puedo explicar, porq lo entiendo, yo puedo buskar un code por internet postiarlo y no ser mio y aun asi explicarlo como mio y ese code no es tuyo

[ActiveSheet]

bueno ya no es mio en tu lammeresca imaginacion xD 

ya no chinges xD 

salu2 a tu primo el osiris

[zXxOsirisxXz]

hectorzx Todo Se puede checa mi ejemplo esos tipos solo asen largas para mekear mas post y creen que entre mas post son mas chingones,


asi se ase eso amigo   creo que es infinito la verdad no se cuantos Index aguante pero si son muchos


jajajaja lo que mas me dio risa fue eso de agarra en paint y as un mosaico xD

Man, tu si hablas "Cosas Incoerentes"..

Yo no entendia lo k el keria, ahora k pones ese "Codigo", ps, yo tengo un proyecto asi.. asi como un juego, si el ubiese dicho eso desde el principio se entenderia.. Para mi, y para metroix, el no se explico bien, si entendiste, ps, bien por ti, "man", tienes k saber como hablas, y como dijo rada, no esperes buenos post, si empiezas a hablar mal de uno, y aun mas, sin saber de  lo k hablas.

[metroix]

ese man se la tira u no sabe que es un form

[ActiveSheet]

jajajajajaja ya olvidenlo, la verdad no lei tu post de ahorita


pero ya tregua 

y por sierto yo te defendi xD jajaja soy tu cuate el Undefined

voy a moderarme en lo que diga sip 

[zXxOsirisxXz]

Opppppppssssss ss xD

A la verdad, solo lei tu primer post y me molesto =/

Pero, bueno, ya k eras tu k tenias k leerlo, ps voy a editar el otro xD

Man, te pasaste!

Rada es demaciado bueno para ser catalogado como novato , espero k estoy llegue hasta aki, perdona, creo k me deje llevar un poco por el teclado en el otro post.

[ActiveSheet]

no te precupes era cuate, asi pasa aveses

jajajaja pero ya lo agarramos de chat  xD