| Pregunta: | 11538 - IMGSCAN |
| Autor: | Margaret Thatcher |
| Hola a todos. Estoy haciendo una aplicacion en la que necesito guardar imágenes escaneadas. Estoy utilizando el ImgScan y lo que quiero hacer es que guarde todas las imágenes escaneadas en una misma carpeta por defecto.
Hago lo siguiente: ImgScan1.ShowScanNew cuando esto se ejecuta aparece una ventana con varias opciones. Yo quiero que la opcion de 'Examinar' aparezca desactivada. ¿Cómo lo puedo hacer? Gracias. | |
| Respuesta: | edwin Posada |
| con esta rutina se puede escanear y grabar en un archivo o capetar por defecto
ImgScan1.StartScan ImgEdit1.DrawSelectionRect 0, 0, ImgEdit1.ImageWidth, ImgEdit1.ImageHeight Dim pagina As Long Dim ruta pagina=1 ruta = "c:\ imagenes\" &nombre.tif ImgEdit1.SavePage ruta, 1, , 6, , , pagina OLE1.CreateLink imagenes & "\" & texpol & ".tif" OLE1.SizeMode = 1 | |