como puedo hacer esto, ya tengo hechas las funciones, pero no hace nada como hago para que buske foto examinar para agregar una imagen, eliminar una imagen, donde puede guardar las imagenes, tengo que crear una base de datos para esto?si tienen alguna guia o codigos para esto se los agradezco ya les muuestro lo que tengo adelantado!!!
Hola, pues si podes hacerlo con bases de datos, o hasta con un archivo .ini...un montonde formas...solo guardas las rutas de las imagenes...
saludos.
como se inserta una imagen aqi????
con el boton (http://foro.elhacker.net/Themes/converted/images/bbc/img.gif)
(//)
weno nos e como insertar una imagen weno la cosa es que tengo la ventana principal con las opciones agregar, eliminar, guardar, mostrar pero no se como hacer todo esto!!!
Cita de: dj-blydex en 8 Noviembre 2008, 18:47 PM
osea quiero saber si tienen algo donde salga como hacer uno de esots programas o algo parecido para lo que necesito
Mira cuelga alguna imagen en algun hosting, despues la url que te da copiala aqui, seleccionala y click en el boton de la imagen y listo !
Mira añade el control windows common control dialog
ponle de nombre CD
ahora añade el control image y un boton y cuando le des al boton pon
CD.ShowOpen
CD.Filter = "Solo imagenes"
Image1.LoadPicture = LoadPicture(CD.Filename)
gracias man
Mira este Link (http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/351-ado-stream-imagenes.htm)
Buenas, creo que esto te podra ser de utilidad.
Private Sub mnuAbrir_Click()
Dim nf As New Form1
On Error GoTo errores
CD.DialogTitle = "Abrir Imagen"
CD.InitDir = "C:\Archivos de programa"
CD.Filter = "Todos los archivos |*.*|Imagenes|*.jpg|mapa de bits|*.bmp|"
CD.ShowOpen
nf.imgImagen.Picture = LoadPicture(CD.FileName)
nf.Caption = CD.FileName
nf.Show
errores:
End Sub
Private Sub cmdGuardarC_Click()
On Error GoTo errors:
If Forms.Count > 1 Then
On Error GoTo errors
CD.DialogTitle = "Guardar Com"
CD.InitDir = "C:\"
CD.ShowSave
SavePicture ActiveForm.imgImagen.picutre, CD.FileName
ActiveForm.Caption = CD.FileName
End If
errors:
End Sub
Cualquier cosita pregunta ;)
Frikimaster
Toda BD permite que almacenes una imagen en un campo sin necesidad de tenerla fisicamente en disco. Hay mucha información en la web. Revisa, sino usa los ejemplos que allí postean.