Buscador
YoReparo.com La Web 

Regístrate gratis para participar de los foros, o si ya estás registrado haz login.

Foros de soluciones « Programación

Retroceder en Form Visual Basic

comentario del autor Mie Jul 16, 2008 7:32 pm
   
Sres.

Tengo varios formularios a cada formulario le he hecho un menu para ir de formulario en formulario sin embargo no he podido crear un boton que vaya al formulario anterior, es decir un boton para retroceder. No quiero hacer un navegador de internet, solo quiero un boton que retroceda al form anterior. Si alguien sabe el codigo se lo agradesco.

Hasta luego.

mhv

Reputación
sin valorar Mie Jul 23, 2008 4:35 pm
   
Va mi idea...

Mira, yo lo haria mediante parametros... o sea., cuando presionen el boton para cambiar de formulario pasas como parametro el nombre del formulario origen y lo recibes en el formulario destino., asi si alguien quiere regresar al formulario anterior., pues revisas el parametro y asi regresas.

Ahora, para pasar parametros entre formularios es mas complicado... checa y prueba estos codigos.
Código:
ormulario que llama
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, BVal e As System.EventArgs) Handles Button1.Click
Dim forma As New Form2()
fora.retorno = "hola mundo"
forma.Show()
End Sub
End Class

Código:formulario a ser llamado
Public Class Form2
Public retorno As String = Nothing
Private Sub Frm2_Load(ByVal sender As System.Object, BVal e As System.EventArgs) Handles MyBase.Load
Me.Text = retorno 'lo vez en la barra de titulo
End Sb
End Class

Otra forma Mas
Código:
Public Class Form1
Dim m_idc As Integer = 0
Dim m_idp As Integer = 0
Public Property IDC() As Integer
Get
Return Me.m_idc
End Get
Set(ByVal value As Integer)
Me.m_idc = value
End Set
End Property
Public Property IDP() As Integer
Get
Return Me.m_idp
End Get
Set(ByVal value As Integer)
Me.m_idp = Me.m_idp
End Set
End Property
End Class

Código:
Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim frm1 As New Form1()
' Tu otro código.
frm1.IDC = PedidoDataSet.Pedido(PedidoBindingSource.Position).ClienteID
frm1.IDP = PedidoDataSet.Pedido(PedidoBindingSource.Position).PedidoID
End Sub
End Class

carlitoszihua
Moderador
Reputación


Hacer una pregunta

Boletín de Noticias

Reciba noticias de tecnología, tips de reparación y ofertas exclusivas.



Reglamento / P+F

Foros

Miembros / Expertos