08/12/2003, 16:27
|
| | Fecha de Ingreso: diciembre-2003 Ubicación: isla de margarita
Mensajes: 17
Antigüedad: 21 años, 1 mes 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 |