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
Cita de: 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
Cuando termine de hacer el Set obj=Nothing puedes colocar un Unload Me
--------------------------------------------------------
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
Cita de: 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
Descomenta el Unload Me, o en su defecto utiliza el Me.Close
Cita de: 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
Si, utiliza el Unload Me pero sin el ' delante.