FILEDIALOG
Publicado por lu (36 intervenciones) el 20/03/2007 11:19:42
Hola otra vez...
Tengo un problema con un objeto que he definido como CommodDialog. En un equipo me funciona perfectamente, pero cuando me lo llevo a casa me dice que no puede crear el objeto.
Ya he registrado la "filedialog.dll", los OCX correspondientes... pero me da la sensación de que o no he seleccionado todas las librerías necesarias, o he seleccionado alguna que entra en conflito con otra.. alguien me puede ayudar...???? muchas graciaaaaasss...
os pongo lo que he puesto, aunque ya os digo que funcionar funciona, el problema viene cuando monto la aplicación en otro equipo.
Private Sub GeneraDialog()
'creará un cuadro de dialogo en el que podrmos seleccionar el archivo que queramos poner como imagen
Dim CarTxt As String 'Var. nombre y ruta del archivo TXT
Dim NumFic As Integer
On Error GoTo cargatxt
Dim CmmDlg As New CommonDialog
CmmDlg.DialogTitle = "Seleccionar imagen..."
CmmDlg.DefaultExt = "jpg"
CmmDlg.FileName = ""
CmmDlg.Filter = "(*.jpg)|*.jpg|(*.*)|*.*"
CmmDlg.CancelError = False
CmmDlg.ShowOpen
'cuando se cambia el path de la imagen en el cuadro de texto, en el control image se cambia la propiedad picture con el filename:
Me.txtPathImage = CmmDlg.FileName
cargatxt:
MsgBox "Error a la hora de cargar la imagen: " + Err.Description, vbOKOnly, "ERROR:"
Exit Sub
End Sub
Tengo un problema con un objeto que he definido como CommodDialog. En un equipo me funciona perfectamente, pero cuando me lo llevo a casa me dice que no puede crear el objeto.
Ya he registrado la "filedialog.dll", los OCX correspondientes... pero me da la sensación de que o no he seleccionado todas las librerías necesarias, o he seleccionado alguna que entra en conflito con otra.. alguien me puede ayudar...???? muchas graciaaaaasss...
os pongo lo que he puesto, aunque ya os digo que funcionar funciona, el problema viene cuando monto la aplicación en otro equipo.
Private Sub GeneraDialog()
'creará un cuadro de dialogo en el que podrmos seleccionar el archivo que queramos poner como imagen
Dim CarTxt As String 'Var. nombre y ruta del archivo TXT
Dim NumFic As Integer
On Error GoTo cargatxt
Dim CmmDlg As New CommonDialog
CmmDlg.DialogTitle = "Seleccionar imagen..."
CmmDlg.DefaultExt = "jpg"
CmmDlg.FileName = ""
CmmDlg.Filter = "(*.jpg)|*.jpg|(*.*)|*.*"
CmmDlg.CancelError = False
CmmDlg.ShowOpen
'cuando se cambia el path de la imagen en el cuadro de texto, en el control image se cambia la propiedad picture con el filename:
Me.txtPathImage = CmmDlg.FileName
cargatxt:
MsgBox "Error a la hora de cargar la imagen: " + Err.Description, vbOKOnly, "ERROR:"
Exit Sub
End Sub
Valora esta pregunta


0