Duplicar imagen

[hectorzx]

wenas...
Es posible q teniendo una imagen se pueda duplicar?, es decir.. q pongo una imagen en el vb y que mediante un codigo pueda hacer q esa imagen este en varios sitios.
GRAcias de antemano.

[metroix]

agrega image a donde quieras que esten las imagenes :

[zXxOsirisxXz]

wenas...
Es posible q teniendo una imagen se pueda duplicar?, es decir.. q pongo una imagen en el vb y que mediante un codigo pueda hacer q esa imagen este en varios sitios.
GRAcias de antemano.

A "Varios Sitios" a k te refieres?

[hectorzx]

Que si tengo una imagen , q esa imagen aparezca en varios sitios a la vez.

[zXxOsirisxXz]

Que si tengo una imagen , q esa imagen aparezca en varios sitios a la vez.

Man, aun no te entiendo.. pk, sitios.. .osea..

sitios puede ser en form.. sitios puede ser en el disco duro... sitios puede ser en internet.. sistios puede ser cualkier cosa..

Explicate mejor =\

[hectorzx]

En el form.

[metroix]

man como que duplicar :S:S:S no te entiendo pero nada explicate mejor.. osea si quieres poner una foto en varios lados usa varios images :S

[zXxOsirisxXz]

En el form.

Si es en el form, como proyecto, ps, tan solo tiene ke seleccionar la foto, darle a "Control+C" y pegala en otro form donde kieras, con "Control+V".

Espero k sea lo k buscas.

Salu2

[hectorzx]

Pero yo quiero saber si es posible que de una sola imagen sea posible que esa imagen este en varios lugares del form, ya que como necesito poner muchas, me tiraria la vida copiando y pegando imagenes.

[metroix]

no osea duplicar con un codigo no se puede... lo que pueds aser es un mosaico man algo mas facil y sencillo.. ve a apint y as mosaico enves de poner tantos images...

[ActiveSheet]

Top boys lammos, if they do not know , not say 

a exemple of visual basic and image


you require

     1 Form                        name ="frmPic"
     1 VScrollbar                name = vsb
     1 HScrollbar                name = hsb
     1 PrictureBox              name = pic                    Index = 0   Picture = 
     1 Shape                      name = shpVisual
     1 CommandButton      name = cmdMake

The code

Código:

Option Explicit
Dim a1 As Integer

Private Sub cmdMake_Click()
    Load pic(a1)
    With pic(a1)
        .Visible = True
        .Width = pic(a1).Width
        .Height = pic(a1).Height
        .Left = shpVisual.Left
        .Top = shpVisual.Top
        .BorderStyle = 0
        .ZOrder
    End With
   
a1 = a1 + 1
End Sub

Private Sub Form_Load()
    a1 = 1
    Me.BackColor = vbRed
   
    With Me
        .Top = 0
        .Left = 0
        .Width = 13800
        .Height = 8640
    End With
   
    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

[ActiveSheet]

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

[metroix]

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

lol tonces lo asemos pa aser mas post tonces pa que isistes 2 solo pa decir eso en ves de editar? si te vas a venir a crear la gran cosa vete de aqui...y pa mas eso de VScrollbar, hscrollbar no tiene nada que ver con lo que el buska :S, segundo ese code no lo isistes tu lol, tercero mas facil es ir poniendo 1 por 1 enves de este metodo ya que si cierrar y abres el form se reseteara todo "top lammo boy"

[Ther0x]

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

Apuesto a que el código es copiado. Y tu vas haciendo doble post, eso si que es lammer.

Y si hectorz no se ha explicado bien no es culpa de los que han posteado aquí.

Para otra vez piensa antes de postear.

Saludos

[ActiveSheet]

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

se les hace muy complicado?

si quieren se los explico por mi no ay problema,
este codigo  n lo van a encontrar en ningun lado es auntentico mio, alamejor lo dice por que ustedes lo hacen de esa forma   http://pacman.publijuegos.com/fantasmas_pacman.html el pacman lo saque de esa pagina y el codigo es bastante censillo como para no ser mio,
ni que tuviera Class module o UserForm ActiveX Adox una cosa asi, es censillo como tu


a sobre el otro post se me hace de mal gusto modificar post claro, si no es de extemo nesesario y eso si sin cambiar su punto centrar

encuanto ati es mas lammer postar cosas si ireverencia aun que contigo no tengo ningun problema, y si os ofendi me disculpo
y porfavor chico, es de mal gusto citar post  y tener una firma como de 10 metros

xD Nada personal chicos  ya olvidenlo solo sean mas limpos con sus post  pero eso de mosaico en paint es la ostia 


No citen  Mis Post por favor de verdad les agradeceria mucho si no lo hizieran

si se quieren referir a mi me pueden llamar CopyLeft aun que no es mi nick