(ayuda) examinar

[guidosl]

mejor uso  el ejemplo de ░▒▓BlackZeroҖ▓▒░


solo me falta sabe como poder incluir otro tipo de imagenes ademas de .bmp

o como hacer la conversion de jpg o otros a bmp sin tener q incluir un picturebox

solo encotre ejemplos incluyendolo

Picture1 = LoadPicture(Text1.Text)

SavePicture Picture1, "C:\imagen.bmp"

alguna manera de ahcer eso si usar el picture??
se puede declar alguan variable como para q cumpla la funcion del picture?

[xkiz ™]

solo me falta sabe como poder incluir otro tipo de imagenes ademas de .bmp

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Dim Filter As String, Sfile As String

Filter = "Archivos de Imagenes" & Chr(0) & "*.bmp;*.jpg;*.gif;*.wmf"
        Sfile = OpenDialog(Me, Filter, "Seleccione un archivo", App.Path)
        If Sfile <> "" Then MsgBox Sfile
End Sub

Fijate lo que dice Filter

o como hacer la conversion de jpg o otros a bmp sin tener q incluir un picturebox

para hacer eo seria asi:

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()'poner una imagen en el clipBoard
Dim Img As Picture

Clipboard.clear
Set Img = LoadPicture("C:\archivo.bmp")
Clipboard.SetData Img
End Sub

Private Sub Command2_Click()'guardar la imagen del clipboard
SavePicture Clipboard.GetData(vbCFBitmap), "C:\archivo2.bmp"
End Sub

[seba123neo]

mira aca esta todo eso:

Lo Que se Debe Leer Antes de Preguntar

saludos.