Autor
|
Tema: hacer un MDI en setup (Leído 1,668 veces)
|
kary_hacker
Desconectado
Mensajes: 10
|
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!
|
|
|
En línea
|
una palabra no dice nada y al mismo tiempo lo dice todo!!
|
|
|
Cicklow
Desconectado
Mensajes: 604
-=Cicklow SOFT®=-
|
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!!!
|
|
|
En línea
|
|
|
|
kary_hacker
Desconectado
Mensajes: 10
|
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!
|
|
|
En línea
|
una palabra no dice nada y al mismo tiempo lo dice todo!!
|
|
|
Cicklow
Desconectado
Mensajes: 604
-=Cicklow SOFT®=-
|
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)
|
|
|
En línea
|
|
|
|
|
Gorky
|
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.
|
|
|
En línea
|
|
|
|
Cicklow
Desconectado
Mensajes: 604
-=Cicklow SOFT®=-
|
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!!!
|
|
|
En línea
|
|
|
|
|
|