Macrosustitucion en Visual Basic 2010

[mayckmarck]

Buenos días.

Necesito realizar Macrosustitucion en Visual Basic 2010, para realizar ciclos iteractivos con n variables.
Gracias por su tiempo.

[AnibalDiaz]

¿Macrosustitucion?

Prueba con CRTL + F ...

[HaverRamirez]

Umm no entiendo...explicate mas

[mayckmarck]

Buenos dias.
La Macrosustitucion es para realizar ciclos iteractivos con n variables dentro de la ejecucion del programa.
Ejemplo:
tengo 15 textbox que si tienen datos realizo la misma operacion.
Puedo validar cada uno de ellos y realizar la misma operacion, pero si puedo utilizar la macrosustitucion como se hacia en foxpro, me ahorraria unas cuantas lineas de codigo:
Seria algo asi como:

For i=0 To 15
txtTexto = "textbox" & i
if txtTexto.Text <> "" Then
function Operacion(txtTexto.Text)
End If
Next

Cómo haria esto?

Gracias por su tiempo.

[HaverRamirez]

Eso es Recursión
dentro de basic se usa procedimientos para recorrer los datos, por ejemplo

Código vb:

Public Function RecorreValida(ByVal G As GroupBox) As Boolean
        Try
            For Each C As Control In G.Controls
 
               
                If TypeOf C Is Combobox Then
'el tipo isvalidselection es parte del objeto personalisado regresa true o false
                    If CType(C, Combobox).IsValidSelection = False Then
'vincula error es un proc donde se adhiere un error provider y se despliegan mensajes
                        VinculaError(C)
                        Return False
                    End If
                End If
                If TypeOf C Is TextBox Then
                    If String.IsNullOrEmpty(CType(C, CONACC.TextBoxAlfanumerico).Text) Then
                        VinculaError(C)
                        Return False
                    End If
                End If
                'aqui vuelvo a llamar la misma funcion, o sea esta, pero le mando el groupbox y asi sucesivamente
 
                if typeof c is groupbox then
                recorreValida(c)
                end if
                
            Next
            Return True
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Function
 

[mayckmarck]

Muy bueno lo que me escribes, pero, cómo paso los valores de los textbox a otra funcion, que es la misma para todos los textbox?

[HaverRamirez]

Envias el textbox completo, si te das cuenta yo utilizo un for each definiendo la variable C as Control, un textbox es un Control, entonces C es un control del tipo textbox con todo y sus propiedades, fijate en el procedimiento anterior , y ves cuando hago un Ctype(c,textbox).text estoy accesando al control, y le digo con Ctype que lo interprete como un textbox y si se puede interpretar, puedo acceder a su propiedad Text, en el caso de string.isnullorEmpty verifico si el text del control (textbox) esta vacio si es asi, envio el objeto completo a un procedimiento vinculaerror(c) donde vincula error espera un parametro tipo control y ahi lo valido, mira el proc de validación

Código vb:

Public Function VinculaError(ByVal C As Control)
        errprovider = New ErrorProvider
        errprovider.SetError(C, "Campo Requerido")
        errprovider.BlinkRate = 1000
    End Function
 

Date cuenta de otra cosa primero verifico o trato de ver si es un tipo de control con TypeOf y lo comparo si es un combobox que haga un tipo de verificacion y si es un tipo textbox que verifique la propieda text, ahora con datetimepicker seria asi

Código vb:

If TypeOf C Is DatetimePicker Then
                    If IsNothing(CType(C, DatetimePicker).Value) OrElse Not IsDate(CType(C, DatetimePicker).Value) Then
                        VinculaError(C)
                        Return False
                    End If
                End If
 

[mayckmarck]

Ahora lo veo mas claro, pero otra pregunta, en la instruccion CType(C, CONACC.TextBoxAlfanumerico).Text), quien es CONACC.TextBoxAlfanumerico)?

Gracias por tu tiempo.

[HaverRamirez]

Ahh, es como lo dije en un principio yo tengo creados objetos personalizados o sea cree un dll con herencia del textbox de microsoft y extendi sus propiedades , por eso tengo que compararlo con el tipo de mi dll y no con un textbox de microsoft, que al final de cuentas es de microsoft pero extendi sus propiedades y cree otras, como en el combobox que te dije, hice una clase que hereda de combobox y adicione un procedimiento que se llama isvalidseleccion donde comparo y devulevo un valor, despues hice una referencia en el proyecto a mi dll y en las herramientas cree una nueva pestaña, e importe la dll, y me detecto cada control, asi lo jalo al form.
checate la clase del combobox, es un clase, despues genero el proyecto y genera la dll

Código vb:

Imports System.Runtime.InteropServices
 
Public Class ComboBoxIncremental
    'la herencia del combobox normal
    Inherits System.Windows.Forms.ComboBox
    'agrego un nuevo evento
    Friend WithEvents ErrorP As System.Windows.Forms.ErrorProvider
    'campos accesibles
    Private VarRequerido As Boolean
    Public VarDespliega As Boolean
    Public VarCambiar As Boolean = True
 
    Enum Evento
        Entrar
        Salir
        Habilitar
    End Enum
 
  
 
    Protected Overrides Sub RefreshItem(ByVal index As Integer)
        MyBase.RefreshItem(index)
    End Sub
 
    Protected Overrides Sub SetItemsCore(ByVal items As System.Collections.IList)
        MyBase.SetItemsCore(items)
    End Sub
 
    Private Sub InitializeComponent()
        Me.ErrorP = New System.Windows.Forms.ErrorProvider
    End Sub
 
    Public Sub New()
        MyBase.New()
        InitializeComponent()
        VarRequerido = False
        VarDespliega = True
        Me.Text = ""
    End Sub
 
    Public Sub Iniciar(Optional ByVal ParRequerido As Boolean = False, Optional ByVal ParDespliega As Boolean = True)
        Try
            VarRequerido = ParRequerido
            VarDespliega = ParDespliega
            If Me.DropDownStyle = Windows.Forms.ComboBoxStyle.DropDownList Then
                If Me.Items.Count > 0 Then
                    Me.SelectedIndex = 0
                End If
            Else
                If Me.Items.Count > 0 Then
                    Me.SelectedIndex = 0
                End If
            End If
        Catch ex As Exception
            MsgBox("Error en Iniciar de ComboBoxIncremental: " + ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
 
    Public Function Valido() As Boolean
        Try
            If VarRequerido Then
                If Me.Text = String.Empty Then
                    ErrorP.SetError(Me, "Campo requerido, ingrese un valor")
                    Return False
                Else
                    ErrorP.SetError(Me, "")
                    Return True
                End If
            Else
                ErrorP.SetError(Me, "")
                Return True
            End If
        Catch ex As Exception
            MsgBox("Error en Valido de ComboBoxIncremental: " + ex.Message, MsgBoxStyle.Critical)
        End Try
    End Function
 
    Public Sub CargarDatos(ByVal ParOrigenDatos As DataTable, ByVal ParLlave As String, ByVal ParTexto As String, Optional ByVal ParDesplegar As String = "")
        Try
            Dim Aux As New Seguridad
            If ParLlave = "IDEmpresa" Then
                If Not Aux.VerificarAcceso() Then Exit Sub
            End If
 
            Dim Fila As DataRow
            Fila = ParOrigenDatos.NewRow
            If Fila(ParLlave).GetType.Name = "String" Then
                Fila(ParLlave) = ""
            Else
                Fila(ParLlave) = 0
            End If
            Fila(ParTexto) = ParDesplegar
            ParOrigenDatos.Rows.InsertAt(Fila, 0)
            Me.DataSource = ParOrigenDatos
            Me.DisplayMember = ParTexto
            Me.ValueMember = ParLlave
            Me.SelectedIndex = 0
            Me.AutoCompleteMode = Windows.Forms.AutoCompleteMode.Append
            Me.AutoCompleteSource = Windows.Forms.AutoCompleteSource.ListItems
        Catch ex As Exception
            MsgBox("Error en CargarDatos de ComboBoxIncremental: " + ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
 
    Private Sub Seleccionar(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.GotFocus, MyBase.Click, MyBase.Enter
        Try
            CambiarEstilo(Evento.Entrar)
            Me.DroppedDown = VarDespliega
        Catch ex As Exception
            MsgBox("Error en Seleccionar de ComboBoxIncremental: " + ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
 
    Private Sub ComboBox_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Leave
        Try
 
            CambiarEstilo(Evento.Salir)
            If VarCambiar Then
                If Not VarDespliega Then
                    VarDespliega = True
                End If
            End If
          
        Catch ex As Exception
            MsgBox("Error en ComboBox_Leave de ComboBoxIncremental: " + ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
 
    Private Sub ComboBoxIncremental_EnabledChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.EnabledChanged
        Try
            CambiarEstilo(Evento.Habilitar)
        Catch ex As Exception
            MsgBox("Error en ComboBoxIncremental_EnabledChanged de ComboBoxIncremental: " + ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
 
    Private Sub CambiarEstilo(ByVal ParEvento As Evento)
        Try
            Select Case ParEvento
                Case Evento.Entrar
                    Me.BackColor = Drawing.Color.LightYellow
                Case Evento.Salir
                    Me.BackColor = Drawing.Color.FromName("Window")
                Case Evento.Habilitar
                    Me.BackColor = IIf(Me.Enabled, Drawing.Color.FromName("Window"), Drawing.Color.White)
                    Me.ForeColor = IIf(Me.Enabled, Drawing.Color.FromName("WindowText"), Drawing.Color.Black)
            End Select
        Catch ex As Exception
            MsgBox("Error en CambiarEstilo de ComboBoxIncremental: " + ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
 
    Public Function IsValidSelection() As Boolean
        If Not IsNothing(Me.SelectedValue) AndAlso Me.SelectedIndex > 0 Then
            Return True
        Else
            Return False
        End If
    End Function
 

En si no deberias de haber visto el conacc.textboxalfanumerico, pero se me olvido corregir tambien este, porque la validacion del tipo typeof del combo en mi codigo en realidad es asi

Código vb:

If TypeOf C Is CONACC.ComboBoxIncremental Then
                    If CType(C, CONACC.ComboBoxIncremental).IsValidSelection = False Then
                        VinculaError(C)
                        Return False
                    End If
                End If
 

pero se me paso hacerlo con el textbox, ups, pero espero te sirva. y si te das cuenta hay una redundancia entre las cosas que se hacen, que justamente ahora me di cuenta, el combobox que anteriormente puse el codigo, tiene una funcion que se llama Valido, y yo cree un proc que anteriomente tambien puse para validarlo, que es el for each etc etc, esto es porque este codigo no lo cree yo todo, o sea, lo eh estado modificando, pero su creador ya creo estas propiedades, ojo me acabo de dar cuenta, jajaja, changos.

[mayckmarck]

Increible el procedimiento que me escribes.
Me sirve para pasar el valor de un textbox a otro procedimiento.
Ahora, necesito pasar varios textbox a otro procedimiento, dependiendo si un textbox tiene datos o no.
Me explico. Tengo una factura con varios renglones, 10 en total.
Los textbox de cada renglon son:
Renglon 1: txtCantidad1, txtDescripcion1, txtTotalRenglon1
Renglon 2: txtCantidad2, txtDescripcion2, txtTotalRenglon2
Renglon 3: txtCantidad3, txtDescripcion3, txtTotalRenglon3
y asi sucesivamente.

Como hago para, con este procedimeinto, pasar los 3 valores de cada renglon al otro procedimiento?

[HaverRamirez]

Bueno, aqui ya nos metemos a los arreglos, en programación orientada a objetos, no se como estes llevando tu aplicación, asi que te dare la forma sencilla de hacerlo, tu procedimiento puede esperar un tipo DataTable, y lo que haces es al Datatable agregarle columnas y filas dependiendo si los textbox tienen valores, algo asi

Código vb:

Public Function CreaEstructuraTabla() As DataTable
        Try
            Dim table As New DataTable
            Dim column As DataColumn = New DataColumn
            column.DataType = System.Type.GetType("System.String")
            column.AllowDBNull = False
            column.Caption = "Tipo"
            column.ColumnName = "Tipo"
            table.Columns.Add(column)
            Return table
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Function
 

ahora solo creas las filas y le agregas valores

Código vb:

Dim dt As New DataTable
            dt = CreaEstructuraTabla()
            Dim rw As DataRow
            rw = dt.NewRow
            rw("Tipo") = "Venta"
            dt.Rows.Add(rw)
            rw = dt.NewRow
            rw("Tipo") = "Devolución"
            dt.Rows.Add(rw)
 

y en tu procedimiento que espera estos valores le pones

Código vb:

sub function OperaFactura(byval dt as datatable)
dim fila as string
for each dt as datarow in dt.rows
fila = dt("Tipo")
next
end function
 

es un ejemplo tendras que darle forma, ahora tambien puede crear arreglos, esta parte es mas complicada, pero mucho mas escalable o sea mas facil de modificar despues, y tambien puedes pasar tipos arralist pero eso depende de que estes haciendo, como estas con tu aplicación, cual es tu mira, ya tienes codigo y lo estas modificando, estas empezando etc.

[mayckmarck]

Gracias por la ayuda.
Ahora solo me queda darle forma segun los requerimientos de mi aplicacion.
Caulquier duda, nos vemos por aqui.

De nuevo, gracias por tu tiempo y colaboración.