Tener una subrutina Main por donde comience el sistema

[RsOfT]

Anteriormente en VB6 yo creaba una subrutina llamada main en la cual yo decidía que formulario iba a correr primero y luego cual otro.

¿Cómo hago esto en VB.NET 2005?

[xknown]

Puedes cambiar eso desde las propiedades del proyecto, la otra alternativa es que tu mismo crees un método Main.

Código:

Shared Sub Main()
Application.Run(New Formulario())
End Sub

Saludos

[RsOfT]

Tengo mi propia subrutina Main en un módulo y la tengo pública, pero no se dispara esta subrutina primero que el formulario que está por defecto. Intenté ponerla Shared y no me deja declarar subrutinas Shared en los módulos.

En VB6 en las propiedades del proyecto uno era que le decía al VB que quería que se ejecutará la subrutina Main en vez de cualquier formulario, supongo que en .NET debe ser igual, pero no encuentro donde especificarlo puesto que, en "My Project/Application", en la opción "Startup From" solo me aparecen los dos formularios que tengo y no me da opción para especificar a Main.

¿Alguna idea?

[jomaruro]

Hola Rsoft:

Es muy sencillo, por lo menos en Visual Studio 2005, en el menú Proyecto click en Propiedades, verás una ventana con un menú a la izquierda (Aplicación, Compilar, Depurar, etc.), por defecto se te sitúa en Aplicación (y si no click en Aplicación) en el tercer TextBox te pide el formulacio de inicio.

Espero que te sirva de algo.

[xknown]

Iniciado por RsOfT

Tengo mi propia subrutina Main en un módulo y la tengo pública, pero no se dispara esta subrutina primero que el formulario que está por defecto. Intenté ponerla Shared y no me deja declarar subrutinas Shared en los módulos.

En los *módulos* por defecto todos los métodos y atributos son shared, simplemente deberías poner:

Código:

Sub Main()
' ....
End Sub

En VB6 en las propiedades del proyecto uno era que le decía al VB que quería que se ejecutará la subrutina Main en vez de cualquier formulario, supongo que en .NET debe ser igual, pero no encuentro donde especificarlo puesto que, en "My Project/Application", en la opción "Startup From" solo me aparecen los dos formularios que tengo y no me da opción para especificar a Main.

¿Alguna idea?

Una vez que coloques el método Main, aparecerá un nuevo elemento en el combobox que mencionas.

Saludos

[RsOfT]

Nítido!!!
Gracias!

[marlx]

Iniciado por xknown

En los *módulos* por defecto todos los métodos y atributos son shared, simplemente deberías poner:

Código:

Sub Main()
' ....
End Sub

Una vez que coloques el método Main, aparecerá un nuevo elemento en el combobox que mencionas.

Saludos

lo hago al pie de la letra, pero no se me lista el sub main como inicio de la aplicacion? no entiendo por que no!..

se agradece la ayuda

[jmanco]

ahi les dejo......


Imports System.Data.SqlClient
Imports System.Data

Module ConexionGlobal
Public con As New SqlConnection
Sub Main()
Try
con = New SqlConnection("Data Source=;integrated security=true;user ID=;PWD=; initial catalog=")
frmClave.Show()
Application.Run()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Module


En el formulario coloquen esto.. y no voten mas escape, yo ya bote ese tiempo por todos..


Imports System.Data.SqlClient
Imports System.Data

Public Class frmActividadLaboral
Private Sub frmActividadLaboral_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try

Dim objadapter As New SqlDataAdapter
Dim objds As New DataSet
Dim objcomando As SqlCommand


objcomando = New SqlCommand("SPAplicacionesConsultar", ConexionGlobal.con)
objcomando.CommandType = CommandType.StoredProcedure
objcomando.Connection.Open()

objadapter.SelectCommand = objcomando
objadapter.Fill(objds, "tblaplicaciones")

Me.dgrActividad.DataSource = objds.Tables(0)
con.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class