Programación General > Visual Basic para principiantes

 Arreglo Como Parametro en Procedimiento VB 6.0

<< < (3/3)

cpmario:
A mi si me funciona el código con pequeños cambios.

En un módulo BAS


--- Código: Text ---Option Explicit Private Type Normal  ' Declaro el Tipo de Arreglo Que Necesito Con sus Campos          Patente As String        Pedimento As String        Archivo As String        Firma As String        Fecha As String        Hora As String        Regimen As String        Clave As String        RFC As String        Nombre As StringEnd Type ' hay un espacio extra en Arreglo Global1()  lo eliminé  Public ArregloGlobal1() As NormalPublic ArregloGlobal2() As Normal ' Declaro Globalmente los arrays    ' La subrutina no debe de ser privada, ya que la llamarás desde una formaSub Fact(Pat As String, ByVal ini As Long, ByVal fin As Long, ByRef IndiPat() As Normal, ByRef ConsoPat() As Normal)        Dim temp1(), temp2() As Normal       '"Serie de Validaciones"         Stop End Sub  
En una forma, colocando un control CheckBox

--- Código: Text ---Option Explicit Private Sub Command1_Click()    Dim fechai, fechaf    Fact Check2.Caption, fechai, fechaf, ArregloGlobal1(), ArregloGlobal2()End Sub  Al ejecutar el código se detiene en el Stop

 :comp:

MArio85:
Fijate que la unica diferencia que habia ( ya que el espacio vacio me equivoque aqui y no en el codigo), fue en la declaracion de los arreglos globales.
yo declaraba :  Dim Arreglo1(),Arreglo2() as string, y asi al momento de llamar el procedimiento me marcaba error, pero si lo declaraba:
Dim arreglo1() as string
Dim arreglo2() as string
La diferencia fue que se debia declarar en dos renglones separados, funciono correctamente, por que fue esto?, y esto nomas pasa caundo uso los arreglos como parametro si no utilizo parametros si me reconoce la variable correctamente.

Saludos

cpmario:
El error es el siguiente:


--- Código: Text ---Dim Arreglo1(),Arreglo2() as string La primera variable Arreglo1() se dimensiona como variable tipo variante y la segunda como tipo string.


Para que funcione adecuadamente debe ser así:


--- Código: Text ---Dim Arreglo1() As String, Arreglo2() As String 
 :comp:

Navegación

[0] Índice de Mensajes

[*] Página Anterior