Lo que pretendo es usar el valor de una variable publica a otro formulario... lo que sucede esque la tengo declarada de la siguiente manera:
Lo que pretendo con el codigo es que cada vez que le de click a un boton "dependiendo del boton", me cambie el valor a Public idestado As Integer, la inicializo en 0, si le cambio valores (1,2,3,4) si me funciona pero en inicio la inicializo en 0, y cuando le de click en un boton de los declarados, quiero que cambie el valor de esa variable public.
Public Class Estado
Public idestado As Integer=0 Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Me.Hide()
Inicio.Show()
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Hide()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'ID:1'
Me.idestado = 1
Me.Hide()
QuintanaRoo.Show()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'ID:2'
Me.idestado = 2
Me.Hide()
Tabasco.Show()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'ID:3'
Me.idestado = 3
Me.Hide()
Campeche.Show()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
'ID:4'
Me.idestado = 4
Me.Hide()
Yucatan.Show()
End Sub
End Class
Todo eso para que me funcione en otro formulario, que utiliza esa variable y todo lo tengo declarado como, pues lo quiero usar en un combobox (como prueba de que si puedo cambiar el valor apartir de dar click en el mismo, pues lo pretendo usar para otros fines):
Imports MySql.Data.MySqlClient
Imports MySql.Data
Imports AppCenotes.Estado
Public Class Informacion
Friend conexion As MySqlConnection
Private Sub Informacion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Aestado As Estado = New Estado
'Creamos conexion'
conexion = New MySqlConnection()
conexion.ConnectionString = "server=" & "localhost" & ";" & "user id=" & "root" & ";" & "password=" & " " & ";" & "Database=" & "cenotes" & ";"
'Creamos adaptador'
Dim adapter As New MySqlDataAdapter("Select a.nombre from cenotes as a, localidades as b where b.ID_localidad=a.localidad AND b.ID_estado=" &
Aestado.idestado, conexion)
Dim dbDataset As DataSet = New DataSet()
conexion.Open()
'Utilizar el adaptador para llenar el dataset con una tabla'
adapter.Fill(dbDataset, "nombre")
conexion.Close()
'Una vez desconectados, recccorremos la tabla del dataset'
Dim tabla As DataTable
tabla = dbDataset.Tables("nombre")
Dim Fila As DataRow
For Each Fila In tabla.Rows
'Mostrar los datos mediante un objeto fila'
Combo.Items.Add(Fila.Item("nombre"))
Next
End Sub
End Class
Ya busque en Google, como Cambiar valor a una variable public en (.net, visual basic, visual basic 2010, visual studio 2010)..... " de todas esas formas... una por una... y nada!" u.u! espero que me puedan ayudar saludos :S!
Mostrar Mensajes
