none
Problema con option strict on RRS feed

  • Pregunta

  •  Hola buenas tardes espero me puedas ayudar con este problema, el programa anda bien pero al momento de agregar option strict me marca error que no permite enlace en tiempo de ejecución mi problema es en esta parte 

     Private Sub btnbuscar_Click(sender As Object, e As EventArgs) Handles btnbuscar.Click

            Dim band As Boolean = False
            Dim buscado As Integer
            buscado = CInt(InputBox("cuenta a buscar"))
            For i = 0 To AL.Count - 1
                Dim objcuenta = AL(i)
                objcuenta = AL(i)

               If objcuenta.pcuenta = buscado Then
                    tbcuenta.Text = objcuenta.pcuenta
                    tbnombre.Text = objcuenta.pnombre
                    tbsaldo.Text = objcuenta.psaldo
                    band = True
                    Exit For
                End If
            Next
            If band = False Then
                MsgBox("cuenta no encontrada", MsgBoxStyle.Information)
            End If
        End Sub

    Me marca problema en esa parte como tengo que declararlos o que tengo que hacer ? 

    :(

    miércoles, 27 de julio de 2016 0:01

Respuestas

Todas las respuestas

  • Hola Danth Noah intenta instanciando  tu objeto de la siguiente manera:

    Dim objcuenta = new AL(i)
    
    Suerte y saludos


    Javier

    miércoles, 27 de julio de 2016 0:09
  • Lo estoy checando y si son tipo numérico te agradezco tu respuesta  lo analizare 
    miércoles, 27 de julio de 2016 0:26
  • muchas gracias lo intentare de esa forma 
    miércoles, 27 de julio de 2016 0:26
  • la iniciarlo asi me marca error en new AL(i) no es la cuestion 
    miércoles, 27 de julio de 2016 0:33
  • ya los transforme en string pero el error resulta inminente 

    miércoles, 27 de julio de 2016 0:33
  • Option Strict On
    Option Explicit On
    Public Class Ccuenta
        Private cuenta As String
        Private nombre As String
        Private saldo As String

        Public Property pCuenta As String
            Set(valor As String)
                cuenta = valor
            End Set
            Get
                Return cuenta
            End Get
        End Property

    Private Sub btnbuscar_Click(sender As Object, e As EventArgs) Handles btnbuscar.Click
            Dim band As Boolean = False
            Dim buscado As Integer
            buscado = CInt(InputBox("cuenta a buscar"))
            For i = 0 To AL.Count - 1
                Dim objcuenta = AL(i)
                objcuenta = AL(i)
                If objcuenta.pcuenta = buscado Then
                    tbcuenta.Text = objcuenta.pcuenta
                    tbnombre.Text = objcuenta.pnombre
                    tbsaldo.Text = objcuenta.psaldo
                    band = True
                    Exit For
                End If
            Next
            If band = False Then
                MsgBox("cuenta no encontrada", MsgBoxStyle.Information)
            End If
        End Sub

    miércoles, 27 de julio de 2016 0:51
  • Exacto. Si usas bindeo dinámico de tipos, no puedes usar strict on 

    ---

    Imagino que no entendiste nada. Imagino que tu conocimiento del lenguaje es minúsculo, apenas lo imprescindible. Parece ser la norma.

    Decía, o declaras un tipo en compile time para el objeto objcuenta, o quitas el Option Strict On.


    • Editado walter_5 miércoles, 27 de julio de 2016 1:31
    miércoles, 27 de julio de 2016 1:03
  • no te preocupes encontré la solución gracias .... 
    miércoles, 27 de julio de 2016 1:37
  • Exacto. Si usas bindeo dinámico de tipos, no puedes usar strict on 

    ---

    Imagino que no entendiste nada. Imagino que tu conocimiento del lenguaje es minúsculo, apenas lo imprescindible. Parece ser la norma.

    Decía, o declaras un tipo en compile time para el objeto objcuenta, o quitas el Option Strict On.


    Walter, en todo foro hay normas y reglas de conducta, creo que no es necesario realizar comentarios respecto al nivel de conocimiento de los usuarios del foro, es claro que si piden apoyo es porque desconocen del tema que si supieran lo resolverían por propia cuenta. Se nota que conoces mucho, el conocimiento se comparte con amabilidad.

    miércoles, 27 de julio de 2016 1:51
  • Willams Morales

    Gracias por el apoyo pero es normal en foros así parece que personas como 

    walter_5
       nacieron sabiendo todo no pero muchas gracias por el apoyo. 
    miércoles, 27 de julio de 2016 2:24