Pasar una variable declarada en un private sub a otro private sub

[klaudio83]

Hola, ojala me puedan dar una mano con esto. Estoy trabajando Visual Studio 2008 y estoy creando un windowsform con visual basic.

Private Sub ver_cliente_Load(bla.bla)
'declaro esta variable, pero dentro de este mismo Private Sub
'realizo modificaciones en la variable
Dim index As Integer
End

Private Sub siguiente_Click(bla.bla)
'Aca declaro otra variable
Dim fila as Integer
'Lo que necesito es pasar el valor que tiene la variable index declarada en el otro 'Private Sub a la variable fila de este mismo Private Sub
'Una cosas asi
fila = index

El tema es que no se como hacerlo, si me puediesen ayudar porfavor
De ante mano muchas gracias

[Peterpay]

si los 2 subs son parte de la misma clase seria mejor que esa variable fuera un miembro de la clase misma. asi como lo tienes el scope de la variable es local y solo puede vivir en cada funcion.

[neo101]

Y xq no en vez de sub's utilizas funciones... así, el valor de index lo retornas, asignandolo a tu siguiente procedimiento o funcion, como parámetro...

Algo asi_

Código vb.net:

Private Function ver_cliente_Load(bla.bla) 
'declaro esta variable, pero dentro de este mismo Private Sub 
'realizo modificaciones en la variable
Dim index As Integer
return index
End function
 
'Despues tienes el otro sub, q recibira index:
 
Private Sub siguiente_Click(byval index as integer)
'Aca declaro otra variable
Dim fila as Integer
fila = index
end sub
 
'imaginando el cuerpo completo, el main iria algo asi:
 
Private Sub main()
'entre otras instrucciones...
Siguiente_Click(Ver.cliente_Load(parametros...))
'mas instrucciones...
End Sub
 

Algo asi se me ocurre pero no se hasta que grado de objetos manejas o como es en realidad la estructura de tu programa. La respuesta es: Si regresas index no desde sub, sino desde alguna función, podrás utilizarlo en otra cosa...

Xq la otra es q la declares como globar o Static, pero no soy muy fan d esto...

Salu2

[klaudio83]

La verdad, no entendi lo que me dijiste Peterpay, Si me pudieses explicar de otra manera porfavor.

Neo101, no utilizo function por que son los eventos predeterminados al accionar el control del designer. Por lo tanto no creo que me sea de mucha utilidad utilizar funcion.
Para explicar de mejor manera el contexto en el que me encuentro, voy a poner el codigo que involucra la consulta.

Código:

Private Sub ver_cliente_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim conexion As New SqlConnection(cadena)
               Dim MiAdapter As SqlDataAdapter = New SqlDataAdapter("SELECT * FROM cliente", conexion)
        Dim MiDataSet As New DataSet
        MiAdapter.Fill(MiDataSet)
        Dim dt As New DataTable
        Dim dr As DataRow
        dt = MiDataSet.Tables(0)
'ACA DECLARO LA VARIABLE QUE ME INTERESA ENVIAR AL OTRO Private Sub
'QUE LO PONGO A CONTINUACION
        Dim index As Integer
        For index = 0 To dt.Rows.Count - 1
'EL VALOR QUE CONTIENE EL INDEX, ES EL QUE QUIERO ENVIAR
            dr = dt.Rows(index)
            If retornoCodigo = dr(0) Then
                 txCodigo.Text = dr("cod_cli")
            End If
        Next     
    End Sub

Código:

Private Sub siguiente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles siguiente.Click
        Dim conexion As New SqlConnection(cadena)
        Dim MiAdapter As SqlDataAdapter = New SqlDataAdapter("SELECT * FROM cliente", conexion)
        Dim MiDataSet As New DataSet
        MiAdapter.Fill(MiDataSet)
        Dim dt As New DataTable
        Dim dr As DataRow
           
        dt = MiDataSet.Tables(0)
        Dim fila As Integer 
'ACA ES DONDE ME INTERESA QUE LA VARIABLE fila TOME EL VALOR DE index QUE 'ESTA EN EL OTRO Private Sub
        dr = dt.Rows(fila)

        txCodigo.Text = dr("cod_cli")
        max = dt.Rows.Count - 1
        If fila = max Then
            siguiente.Enabled = False
        End If
        fila = fila + 1
    End Sub

Espero sirva, para que se comprenda de mejor manera la consulta y el contexto tambien.
Eso muchas gracias Por sus respuestas

[eperedo]

Porque no declaras la variable al inicio de la clase para que puedas usarla en cualquier método.

Código vb.net:

Public Class Form1
 
Private index As Integer
 
Private Sub ver_cliente_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
       index = 10
    End Sub
 
Private Sub siguiente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles siguiente.Click
    dim fila As Integer 
     fila = index   'fila tomará el valor de indice, o sea 10.      
    End Sub
 
End Class
 

Espero sea lo que buscas.

[Peterpay]

lo que dije es exactamente lo que eperedo te dice, eso es declarar un miembro en tu clase.

PD: si hay algo que es muy cierto de ese dicho de no quieras correr sin saber caminar, hay que darle una repasada a conceptos de POO antes ponerse a programar cosas de mayor compleidad.

[klaudio83]

Muchas gracias por sus respuestas, me han servido de gran ayuda.
Chao Gracias