Mensajes

muchas gracias por tan pronta ayuda amigo. me surge la siguiente duda, esa libreria la nesesitaria mi aplicacion para poder funcionar o solo la nesesitare para compilar el programa
nuevamente muchas gracias

Hola, una vez mas me dirijo a la comunidad a ver si pueden ayudarmecon una duda que tengo
me gustaria que la aplicacion que ando creando pueda ser capaz de tomar una imagen .jpg y transformarla en una imagen .bmp
si alguien me indicara como podria hacerlo lo agradeceria pero agradeceria mas algun codigo de ejemplo.
muchas gracias a todos.

[Finalmente lo he solucionado]

hola nuevamente amigos.
veran hace pocas horas puse un post donde consegui solucionar una duda con la ruta de acseso, pues bien:
ahora resulta que la aplicacion que ando creando (la cual solo cambia el fondo del escritorio por la de una imagen que tenga en el cd ) me cambia solo 2 de las 4 imagenes que le tengo puestas y resulta que las 4 tienen las mismas medidas y son .bmp
el codigo que uso es el siguiente:

Código (vb) [Seleccionar] Expandir

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" _
   (ByVal uAction As Long, ByVal uParam As Long, _
   ByVal lpvParam As String, ByVal fuWinIni As Long) As Long
Const SPIF_UPDATEINIFILE = &H1
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_SENDWININICHANGE = &H2
Private Sub Picture1_Click()
Dim FileName As String
   Dim X As Long

   'Usa aquí el bitmap que quieres usar
   FileName = App.Path & "\fondo(1).bmp"

   X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, FileName, _
      SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)

End Sub
Private Sub Picture2_Click()
Dim FileName As String
   Dim X As Long

   'Usa aquí el bitmap que quieres usar
   FileName = App.Path + "\fondo(2).bmp"

   X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, FileName, _
      SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)

End Sub
Private Sub Picture3_Click()
Dim FileName As String
   Dim X As Long

   'Usa aquí el bitmap que quieres usar
   FileName = App.Path + "\fondo(3).bmp"

   X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, FileName, _
      SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)

End Sub
Private Sub Picture4_Click()
Dim FileName As String
   Dim X As Long

   'Usa aquí el bitmap que quieres usar
   FileName = App.Path + "\fondo(4).bmp"

   X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, FileName, _
      SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)

End Sub

son 4 picture box y en cada uno tengo una imagen diferente para cuando quiero cambiar una por otra solo bastaria con hacer click en uno de los picture box y se cambia automaticamente pero solo me funciona con dos de esos picture box
espero haberme explicado con claridad amigos
espero sus consejos.

Finalmente lo he solucionado

Encontre buscando en la web un codigo que modificando un poco la interface de mi  software me ha funcionado perfectamente amigos.

solo elimine los picture box y añadi al proyecto un filelistbox, dos checkbox y algun que otro componente, finalmente modifique un poco mi codigo y voila, el programa me funciona a la perfeccion.

Aqui os pongo el codigo por si alguien mas quiere aprovecharlo, y si quieren el programa para testearlo solo envienme un email a:
pedraosone@yahoo.es y se lo remito encantado.

Código (vb) [Seleccionar] Expandir


Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Dim ruta As String
Const SPIF_UPDATEINIFILE = 1
Const SPI_SETDESKWALLPAPER = 20
Const SPI_SETDESKPATTERN = 21
Const SPIF_SENDWININICHANGE = &H2

Private Sub Check1_Click()
If Check1.Value = Checked Then
   Image1.Stretch = True
Else
   Image1.Stretch = False
End If
End Sub

Private Sub Check2_Click()
Image1.Visible = Check2.Value
End Sub

Private Sub Command1_Click()
Dim ruta As String
If Right(File1.Path, 1) <> "" Then
 ruta = File1.Path & "\" & File1.FileName
Else
 ruta = File1.Path & "\" & File1.FileName
End If
x = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, _
   ruta, SPIF_UPDATEINIFILE Or _
   SPIF_SENDWININICHANGE)
End Sub

Private Sub Command2_Click()
Dim x As Long
   'Para sacar el papel Tapiz se le envía una cadena vacía en lpvParam
   x = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "", SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
   'MsgBox "El fondo de pantalla ha sido quitado", 64

End Sub

Private Sub File1_Click()
On Error Resume Next
Dim ruta As String
If Right(File1.Path, 1) <> "" Then
 ruta = File1.Path &  File1.FileName
Else
 ruta = File1.Path & "\" & File1.FileName
End If
Image1.Picture = LoadPicture(ruta)
Label1.Visible = True
Label1.Caption = "Imagen: " + ruta
End Sub

Private Sub File1_DBLCLICK()
On Error Resume Next
Dim ruta As String
If Right(File1.Path, 1) <> "" Then
 ruta = File1.Path & File1.FileName
Else
 ruta = File1.Path & "\" & File1.FileName
End If
x = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, _
   ruta, SPIF_UPDATEINIFILE Or _
   SPIF_SENDWININICHANGE)
Image1.Picture = LoadPicture(ruta)
Label1.Visible = True
Label1.Caption = "Imagen: " + ruta
End Sub

Private Sub File1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
On Error Resume Next
Dim ruta As String
If Right(File1.Path, 1) = "\" Then
 ruta = File1.Path & File1.FileName
Else
 ruta = File1.Path & "\" & File1.FileName
End If
x = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, _
   ruta, SPIF_UPDATEINIFILE Or _
   SPIF_SENDWININICHANGE)
Image1.Picture = LoadPicture(ruta)
Label1.Visible = True
Label1.Caption = "Imagen: " + ruta
End If
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then
End
End If
End Sub

Private Sub Form_Resize()
On Error Resume Next
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2 'Centra el formulario completamente
End Sub



Espero que os sea tan util como me lo ha sido a mi, gracias.

Muchas gracias a ambos creo que eso es lo que nesesitaba. ya con eso creo que podre dejar mi pequeña aplicacion lista nuevamente muchas gracias.

Hola amigos, nesesito alguien me resuelva una duda al respecto de una aplicacion que ando creando la cual consta de que cuando pulse un boton este cambie el fondo del escritorio por una imagen que se encuentra donde mismo esta el ejecutable en si pero resulta que el ejecutable estara en un cd  ya la hora de indicar la ruta le podria decir:
D:\carpeta\imagen.bmp
pero y si la unidad de cd no es la D
el codigo que actualmente tengo para el boton es el siguiente:
Private Sub Command1_Click()
   Dim FileName As String
   Dim X As Long

   'Usa aquí el bitmap que quieres usar
   FileName = "c:\windows\imagen.bmp"

   X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, FileName, _
      SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)

   MsgBox "Fondo de escritorio cambiado"
End Sub
es un trozo de codigo que encontre buscando pero lo que nesesito es que en lugar de C me aparezca la ruta del cd donde esta el programa puesto que la imagen y el programa iran en el mismo directorio
gracias por cualquier consejo.

muchas gracias por tu aclaracion amigo, voy a revisar ese enlace y aprovecho para dar el post por terminado.
nuevamente gracias.

muchas gracias por aclararme la duda amigo, es que ando nulo en ste asunto del php y los cap me podrias aclarar que significa GD
gracias nuevamente

hola, intentando recopilar las imagenes de los capcha de una pagina de alojamiento masivo (no se si se podra nombrar ) me fije en que todas las imagenes de letras comenzaban con el siguiente texto antes del nombre de la imagen:
http://****************/gencap.php?4610ae44dd65dfa0.gif
mi duda es si donde va la imagen gif despues de gencap.php? se podria escribir algun comando que nos muestre todo el listado de imagenes en el gencap ese
disculpen pero no se nada de php y ni siquiera estoy seguro de si gencap.php es un directorio del alojamiento
gracias por aclararme la duda.

si crackwar, lo pregunte en otro post de forma equivocada y decidi poner este especificando mas claramente lo que quiero hacer, en cuanto a lo del timer, lo he probado pero no me va mas despacio el reloj del sistema
gracias

hola amigos, a ver is alguien me indica si hay posibilidad de lograr que la hora del sistema camine mas despacito
gracias