Hola.. soy muy nueva en este bisnes..!! Pero les paso el siguiente comentario:
mi maestro de programacion me dijo que metiera todos los programas del tetra en un MDI y que este mismo,. lo hiciera setup.
Saben como hacer. eso..
les agraderia mucho que me ayudaran, ya q sera mi calificacion del Ordinario!!
Grax!
Chao!
un mdi es un formulario padre!!!, lo que tenes que hacer es click en nuevo y le pones formulario MDI, luego a los otros formularios (los hijos), les pones mdi=1 (creo, algo con mdi), osea que se ejecuten dentro del formulario padre!!, luego en las propiedades del proyecto le pones que el formulario que se ejuecute primero sera el mdi y listo cuando ejecutes el form (osea el mdi), y llames a algun formulario hijo esttos estaran dentro del padre!!!
Ughmmm alomejor no me explike bien
eso si lo se hacer
se manejar los MDI y sus respectivos hijos!
lo que el profe kiere
es que haga setup mi MDI
osea se ahcerlos ejecutables
y eso
pero el kiere q a la hr de abrir el preyecto me pida asi como q instalaralo
asi como office
o algo asi!
pero para eso... es distinto!! jejejeje
si saves hacer un ejecutable es facil... File->Make exe file...
weno
con respecto al instalador lo que tenes que hacer es ver los files que tenes que kopiar, y con FileCopy, los copias a donde por ejemplo el usuario te aya dicho!! (podes pregunarlo con un inputbox o algo parecido)
El mejor creador de instaladores para mi es este, sencillo y gratuito.
NSIS (Nullsoft Scriptable Install System) (http://nsis.sourceforge.net/Download)
Salu2
Cita de: KiZaR en 4 Abril 2006, 00:42 AM
El mejor creador de instaladores para mi es este, sencillo y gratuito.
NSIS (Nullsoft Scriptable Install System) (http://nsis.sourceforge.net/Download)
Salu2
Si pero para eso tendria que aprender un lenguaje nuevo de programacion.
Yo te recomiendo que tu te hagas la instalacion copiando los archivos necesarios a su correspondiente ubicacion. Ten en cuenta tambien los accesos directos. Ademas tambien tendrias que añadirle en el FormLoad un condicional que comprobase desde donde se esta ejecutando: si desde cualquier ubicacion o desde el lugar de su instalcion para posterior mente pasar a su ejecucion normal o a la instalacion.
te colokare este codigo a modo de ayuda...(no tengo el VB donde estoy asike es intuitivo el codigo) (si me olvidava de alguna funcion use GOOGLE!!!):
Sub Instalar()
On Error Goto Error
'Esta funcion instala archivos a una determinada localizacion.
'Preguntamos a donde keremos enviar los archivos:
DirDestino=""
PedirDir:
DirDestino = InputBox("Destino de los archivos.","",DirDestino)
'Si el usuario no koloko nada le preguntamos si salimos de la instalacion
If DirDestino="" Then
Resp = MsgBox("Esta seguro de salir de la instalacion", vbQuestion + vbYesNo + vbDefaultButton2, "Atencion!")
If Resp=6 Then
End
Else
Goto PedirDir
End If
End If
'Vemos si existe el directorio, sino lo kreamos
If Dir(DirDestino,vbDirectory)="" Then
Resp = MsgBox("El Directorio De Destino No Existe, Decea Crearlo", vbQuestion + vbYesNo + vbDefaultButton2, "Atencion!")
If Resp=6 Then
MkDir DirDestino
Else
Goto PedirDir
EndIf
EndIf
'Comenzamos a instalar los archivos
Dim Archivo(0 To 5) 'Depende de la cantidad de archivos
Archivo(0)="file1.txt"
Archivo(1)="file2.txt"
Archivo(2)="file3.txt"
Archivo(3)="file4.txt"
Archivo(4)="file5.txt"
Archivo(5)="file6.txt"
For I = 0 To Ubound(Archivos)
FileCopy Archivo(I), DirDestino & "\" & Archivo(I)
Next
'Creamos Acceso Directo
Dim AccesoDirectos(0 To 1) 'Depende de la cantidad de accesos directos que keremos krear
AccesosDirectos(0) = "file1.txt"
AccesosDirectos(1) = "file5.txt"
For I=0 To Ubound(AccesosDirectos)
CrearAcceso(AccesosDirectos(I), DirDestino)
Next
'Avisamos
Msgbox "Instalacion Realizada Con Exito"
Exit Sub
Error:
End Sub
Sub CrearAcceso(Link,Directorio)
Private m_wsShell As Variant
Dim sLnkPath As String
Dim sLink As String
Dim sAppPath As String
Dim vLnk As Variant
Set m_wsShell = CreateObject("WScript.Shell")
sAppPath = Directorio
sLink = Link + ".lnk"
sLnkPath = m_wsShell.SpecialFolders("Desktop") 'En el escritorio
'Otros path
' AllUsersDesktop
' AllUsersStartMenu
' AllUsersPrograms
' AllUsersStartup
' Desktop
' Programs
' StartMenu
' Startup
' MyDocuments
'
sLnkPath = sLnkPath & "\" & sLink
' Crear el acceso directo
Set vLnk = m_wsShell.CreateShortcut(sLnkPath)
vLnk.Targetpath = sAppPath
vLnk.WorkingDirectory = Directorio
vLnk.Save 'Creamos el acceso directo!
Set m_wsShell = Nothing
End Sub
Espero que te sea de ayuda!!!
Si no funciona algo es poke no lo prove, pero te da una idea de como es!!!