Ver Mensaje Individual
  #3 (permalink)  
Antiguo 08/12/2003, 16:27
cj gonzalez
 
Fecha de Ingreso: diciembre-2003
Ubicación: isla de margarita
Mensajes: 17
Antigüedad: 20 años, 5 meses
Puntos: 0
ejemplo en m access

dame una dir de correo para enviarte un ejemplo que te agradará

sin embargo te adelanto algo:
en un formulario, agrega un microsoft common control dialog, un control imagen y un command button.

cambia las siguientes propiedades:
al control imagen, asignale por nombre imgvisor
al common control dialog, asignale nombre dlgvisor
y al command button, asignale el nombre cmbvisor.
ahora, copia el siguiente codigo y pegalo en la ventana de codigo de tu formulario.

Option Compare Database
Option Explicit
Sub SeleccionarImagen()
On Error GoTo Error
With dlgvisor
.CancelError = True
.Filter = "Mapas de bits | *.bmp|Imagenes |*.jpg|*.gif"
.Flags = .Flags Or cdlOFNFileMustExist Or cdlOFNHideReadOnly Or cdlOFNLongNames
.ShowOpen
Caption = "Visor- " & .FileTitle
imgvisor.Picture = .FileName
End With
Exit Sub
Error:
End Sub
Private Sub cmbvisor_Click()
Call SeleccionarImagen
End Sub

Private Sub Form_Load()
Call SeleccionarImagen
End Sub
__________________
carlos/venezuela