hola buenos dias miren tengo una duda dudisima aver si me pueden hechar la mano amigos foreros tengo tres forms el form1 dos y tres ok ahora cuando copilo o inicio el programilla inicia con el form 1 ahora quiero meter hay un command button para que cambie el formulario de inicio al form3 pero para que siempre a la hora de iniciar el programa abra el form 3 ya no vuelva abrir el form 1 si no el tres como le ago ???????????? grax por la ayuda para quien me ayude

Puedes utilizar una bandera en el form1, que te cargue el form3, 4, ...
y cerrar el form1 con unload me

es lo que ago mando a llamr a el form 3 y cierro el form 1 con el unload me pero es que cuando vuelvo a iniciar el programa abre el form 1 y ya no quiero que abrea el uno si no el tres pero atomaticamente


si me entiendes


grax

Bueno, los pasos son muy sencillos:


1. Vas al menú "Proyecto" y allí seleccionas la opción "Propiedades de Proyecto1", esto aparece si el nombre de tu proyecto es que se indica por defecto, de lo contrario aparecera "Propiedades de ... y el nombre de tu proyeto.


2. En la ficha general aparece un combo que tiene como label "Objeto inicial", esta opción nos permite seleccionar por que formulario arrancará nuestro soft cuando iniciamos la aplicación.


3. Al seleccionar el combo aparece por defecto las opciones de "Sub Main" y además aparecen todos los formularios que tenga el proyecto.. Form1, Form2, MDI, etc...


4. Finalmente seleccionas el form que necesitas, en tu caso el form3 y luegoAceptar para confirmar los cambios en el proyecto.


5. Listo!!


Cualquier dudad que tengas me escribes a raulsaavedrax@gmail.com.


Suerte!!

hola, lo puedes por medio de las propiedades del proyecto, creo que se accede dandole click(derecho) en la ventana de gestión del proyecto, allí puedes cambiar el formulario inicial por cualquier formulario (default form1) o colocarle un módulo, según la necesidad.

si eso ya lo se grax pero lo que necesito es que no sea desde hay sino en el programa si me entienden o todavia no me doy a explicar

Pues no se si esto te ayudaría pero por si acaso.


Cambia el proyecto para que comience por un procedimiento Main.


Crea una entrada de registro de aplicación que guarde el nombre del formulario por el que debe cambiar la aplicación


Dentro de este método y mediante una variable que recoja el valor de la entrada de registro anterior, mediante un select case o Application.Start(variable) que comience la aplicación por el formulario que tu digas.


No creo que se pueda cambiar el formulario de inicio una vez que has creado el ejecutable, por lo que pienso que esto sería una buena solución.


Saludos

Yo lo haria asi


'Esto lo pones en un modulo bas


Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long


Sub GrabaINI(Archivo As String, Seccion As String, Clave As String, Text As String)
WritePrivateProfileString Seccion, Clave, Text, Archivo
End Sub


Function LeeINI(Archivo As String, Seccion As String, Clave As String)
Dim iRetLen As Integer
Dim sRet As String
sRet = Space(255)
iRetLen = GetPrivateProfileString(Seccion, Clave, "", sRet, Len(sRet), Archivo)
sRet = Left(sRet, iRetLen)
LeeINI = sRet
End Function

Ahora


Desde el form de inicio pones


esto es en el form1


Private Sub Form_Load()


if Len(Dir$(app.path & "opc.ini")) <>0 then


if LeeINI(App.Path & "\opc.ini", "Seccion1", "Clave1") = 0 then


form1.show


else


form3.show


end if


else


GrabaINI App.Path & "\opc.ini", "Seccion1", "Clave1", "0"


end if


end sub


esto es en el form3_ en un command1 ero tambien lo puedes aplcar en el form1 solo cambia "Clave1", "1" por "Clave1", "0"


Private Sub Command1_Click()
GrabaINI App.Path & "\opc.ini", "Seccion1", "Clave1", "1"
End Sub


Donde el"0" Equivale a que se muestre el form1


Donde el"1" Equivale a que se muestre el form3


ojala y haya quedado bien claro


ademas de ue con las funciones del modulo bas puedes guardar muchos datos para controlr tu aplicacion cuando inicia o guardar datos y que la proxima vez que abras tu aplicacion esten como los dejaste