Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: asdexiva en 26 Diciembre 2014, 21:43 pm


Título: marca de agua simple vb6
Publicado por: asdexiva en 26 Diciembre 2014, 21:43 pm
necesito ayuda con esto miren

Código:
With Picture1


      .Picture = LoadPicture("C:\xd.jpg")
      .Font.Name = " Verdana"
        .Font.Size = 7
        .ForeColor = vbRed
  
        .AutoRedraw = True
          .CurrentX = 100
          .CurrentY = 100
        Picture1.Print " Hola Mundo "
          
        .Picture = Picture1.Image
          
     End With
      
    SavePicture Picture1, "c:\ejemplo.jpg"
      
    MsgBox " jpg salvado en c: ", vbInformation

ay alguna forma de que con un ciclo for cargue todas las imagenes de una carpeta y que 1 por 1 vaya escribiendoles ese mensaje y guardandolas ? me podrian dar una idea gracias e estado leyendo que se puede hacer con filesystemobject pero no entiendo agradezco la ayuda :D

o si alguien conoce una forma mas simple me la podria decir gracias

Título: Re: marca de agua simple vb6
Publicado por: Flamer en 26 Diciembre 2014, 22:15 pm
Bueno te dejo un codigo tu le haces algunas modificaciones
Código:
Dim fso, f, f1, fc
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("AquibaelnombredelaCarpeta")
Set fc = f.Files
   For Each f1 in fc
      msgbox f1.type
      msgbox f1.name
      msgbox f1.extension
   Next

salu2 Flamer y dime si te sirve

Título: Re: marca de agua simple vb6
Publicado por: asdexiva en 26 Diciembre 2014, 22:59 pm
gracias flamer asi quedo pero tengo una duda ay una forma de utilizar este for each como contador ejemplo en la vuelta primera se le vaya agregando un 1

    SavePicture Picture1, "c:\ejemplo" & variable & ".jpg"

quedaria asi ejemplo1.jpg

Código:
Dim fso, f, f1, fc
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("C:\lol")
Set fc = f.Files
   For Each f1 In fc
     MsgBox f1.Name
      With Picture1
      .Picture = LoadPicture("C:\lol\" & f1.Name)
      .Font.Name = " Verdana"
        .Font.Size = 5
        .ForeColor = vbRed
  
        .AutoRedraw = True
          .CurrentX = 100
          .CurrentY = 100
        Picture1.Print " Hola Mundo "
          
        .Picture = Picture1.Image
        
          
     End With
     
     
    SavePicture Picture1, "c:\ejemplo.jpg"
  
    MsgBox " Gráfico BMP salvado en c: ", vbInformation
  
    Next
   

Título: Re: marca de agua simple vb6
Publicado por: Flamer en 26 Diciembre 2014, 23:58 pm
eso es sencillo solo agrega un contador y has que incremente 1 en cada vuelta.... no creo que no puedas hacer eso


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines