Título: COMO Cerrar un Form automaticamente Publicado por: arnoldz en 1 Diciembre 2008, 20:58 pm bueno e estado beiendo un codigo de asociacion de programa i extensión me resulta muy bueno pero tengo el siguente peblema
: al compilarlo me aparece una ventana de 30x30 como podria ahcer q se cierre esta vnetana intente por close no me sale ayudenem aqui esta el codigo : -------------------------------------------------------- Private Sub Form_Load() Dim obj As New Class1 ' extensión del archivo obj.Extension = ".xxx" obj.Title = "Titulo descriptivo de esta extension" obj.Class = "Clase.xxx" ' ruta del ejecutable obj.AppCommand = "c:\windows\notepad.exe" ' ruta del icono obj.DefaultIcon = "C:\Windows\Notepad.exe,1" ' asociar la extension obj.Associate Set obj = Nothing End Sub ---------------------------------------------- me gustaria q se cierre la ventana automatica oq haga la funcion sin nesesidad de formulario gracias Título: Re: COMO Cerrar un Form automaticamente Publicado por: RadicalEd en 1 Diciembre 2008, 21:45 pm bueno e estado beiendo un codigo de asociacion de programa i extensión me resulta muy bueno pero tengo el siguente peblema Cuando termine de hacer el Set obj=Nothing puedes colocar un Unload Me: al compilarlo me aparece una ventana de 30x30 como podria ahcer q se cierre esta vnetana intente por close no me sale ayudenem aqui esta el codigo : -------------------------------------------------------- Private Sub Form_Load() Dim obj As New Class1 ' extensión del archivo obj.Extension = ".xxx" obj.Title = "Titulo descriptivo de esta extension" obj.Class = "Clase.xxx" ' ruta del ejecutable obj.AppCommand = "c:\windows\notepad.exe" ' ruta del icono obj.DefaultIcon = "C:\Windows\Notepad.exe,1" ' asociar la extension obj.Associate Set obj = Nothing End Sub ---------------------------------------------- me gustaria q se cierre la ventana automatica oq haga la funcion sin nesesidad de formulario gracias Título: Re: COMO Cerrar un Form automaticamente Publicado por: arnoldz en 1 Diciembre 2008, 21:59 pm --------------------------------------------------------
Private Sub Form_Load() Dim obj As New Class1 ' extensión del archivo obj.Extension = ".xxx" obj.Title = "Titulo descriptivo de esta extension" obj.Class = "Clase.xxx" ' ruta del ejecutable obj.AppCommand = "c:\windows\notepad.exe" ' ruta del icono obj.DefaultIcon = "C:\Windows\Notepad.exe,1" ' asociar la extension obj.Associate Set obj = Nothing ' Unload Me ????? End Sub ---------------------------------------------- cual e sla manera correcta para q se pueda serrar gracias Título: Re: COMO Cerrar un Form automaticamente Publicado por: RadicalEd en 1 Diciembre 2008, 22:09 pm -------------------------------------------------------- Descomenta el Unload Me, o en su defecto utiliza el Me.ClosePrivate Sub Form_Load() Dim obj As New Class1 ' extensión del archivo obj.Extension = ".xxx" obj.Title = "Titulo descriptivo de esta extension" obj.Class = "Clase.xxx" ' ruta del ejecutable obj.AppCommand = "c:\windows\notepad.exe" ' ruta del icono obj.DefaultIcon = "C:\Windows\Notepad.exe,1" ' asociar la extension obj.Associate Set obj = Nothing ' Unload Me ????? End Sub ---------------------------------------------- cual e sla manera correcta para q se pueda serrar gracias Título: Re: COMO Cerrar un Form automaticamente Publicado por: & eDu & en 1 Diciembre 2008, 22:18 pm -------------------------------------------------------- Si, utiliza el Unload Me pero sin el ' delante. Private Sub Form_Load() Dim obj As New Class1 ' extensión del archivo obj.Extension = ".xxx" obj.Title = "Titulo descriptivo de esta extension" obj.Class = "Clase.xxx" ' ruta del ejecutable obj.AppCommand = "c:\windows\notepad.exe" ' ruta del icono obj.DefaultIcon = "C:\Windows\Notepad.exe,1" ' asociar la extension obj.Associate Set obj = Nothing ' Unload Me ????? End Sub ---------------------------------------------- cual e sla manera correcta para q se pueda serrar gracias |