Anuncios Google
Problemon en Visual Basic 6.0 [SOLUCIONADO]
Hola a todos, tengo un problema (o dos o tres) en Visual Basic 6.0:
Estoy haciedo un notepad (a ver si lo acabo y lo subo,que me hace ilu xD, a ver que os parece), me da un error en los códigos de abrir y Guardar: ejecuto la aplicación, le doy a abrir o guardar, se abre la ventana de seleccionar directorio, pero si le doy a cancelar me da el siguiente error:
Error "75" en tiempo de ejecución:
Error de acceso a ruta o atrchivo.
Los códigos son los siguientes:
El de abrir
Private Sub Abrir_Click() If Text1.Text <> "" Then ret = MsgBox("¿Seguro?", vbQuestion + vbYesNo, App.Title) If ret = vbYes Then Text1.ForeColor = vbBlack Text1.BackColor = vbWhite Text1.Text = "" End If End If Me.CommonDialog1.Filter = "Archivo TXtEdit (*.txe) | *.txe" CommonDialog1.ShowOpen Open CommonDialog1.FileName For Input As #1 Do Until EOF(1) Input #1, contentfile Text1 = Text1 & contentfile & vbCrLf Loop Close #1 End Sub
El de guardar
Private Sub Guardar_Click() Me.CommonDialog1.Filter = "Archivo TXtEdit (*.txe) | *.txe" CommonDialog1.ShowSave Open CommonDialog1.FileName For Output As #1 Print #1, Text1.Text Close #1 End Sub
También me gustaria añadirle la opción de cuando le doy a guardar se me abra una ventana que ponga:
¿Desea guardar el documento actual?
También tengo unas preguntas (cuanto pido eh!):
- Puedo rotar un label?
- Como hago para cambiar de un formulario a otro con un command button?
Espero que me podais solucionar la duda y gracias de antemano
Saludos
Anuncios Google
- Inicie sesión o regístrese para enviar comentarios
- 5249 lecturas
El software, código fuente, logotipos y marcas contenidos en este sitio web son propiedad de sus respectivos dueños y están, o pueden estar, sujetos a derechos y/o licencia de uso. Los anuncios, banners y la publicidad son propiedad y responsabilidad de los anunciantes. Los envíos y publicaciones, salvo indicación expresa en contra, son propiedad y responsabilidad de quien los realiza. El resto de publicaciones, elementos gráficos y contenido es propiedad de "SB IT MEDIA, S.L.".
SceneBeta.com, 2005 - 2018
Contactar con www.SceneBeta.com - Información legal, términos y condiciones de uso - Política de privacidad - Política de cookies
Lo que podrias hacer
es poner un manejador de errores, editare tu codigo y te agrego un comentario en las lineas que he agregado.
Te explico lo que esta en la comparacion:
-Err es un objeto predefinido por visual Basic y cuando tenemos un error el codigo numerico de ese error se almacena en la propiedad Number.
-cdlCancel es una constante predefinida por Visual Basic, la cual almacena el codigo numerico del boton cancelar.
-Entonces lo que se hace es comparar el error generado (Err.Number) con el codigo del boton cancelar (cdlCancel), si corresponde, detenemos el resto del codigo con Exit Sub.
Lo mismo se hace para Abrir.
Para preguntar si desea guardar el documento, pues haces la pregunta con un MsgBox y almacenas la respuesta en una variable, tal y como lo tienes al principio de tu funcion para Abrir. Ahora que si solo quieres preguntar cuando se hagan cambios, se prodria declarar una variable a nivel global de tipo Boleano donde si hay cambios en el documento sera True, y al Guardar o Abrir cambiarlo a false.
En cuanto a las otrs preguntas:
- No se puede rotar un label, al menos no las que ya estan por default, necesitarias busar en goolgle algun control externo que te permita hacer eso e instalarlo.
- Para cambiar de un formulario a otro se usa el metodo Show y se puede hacer de dos formas:
MiFormulario.ShowSi solo se pone asi, se mostrara el formulario y se podran seleccionar los demas formularios activos.
MiFormulario.Show vbModalSi le mandamos el parametro vbModal, no podremos seleccionar los demas formularios hasta que cerremos el formulario que hemos abierto.
Pues eso es todo, cualquier duda pues pregunta XD.
Saludos
Muchas gracias, me sirvió
Muchas gracias, me sirvió, te dí 3 bitos, ya sé que es una riuna pero no tengo más.