Hola estoy armando un Semper Widia y quiero generar Exe y me salta este error :




Me salta variable no Denifina en "I"

Reemplaza la function essublider por esta!



Saludos!

Cambia la I por U

Ghytek escribió:Reemplaza la function essublider por esta!

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Public Function EsSubLider(UserIndex As Integer) As Boolean
2. Dim U As Integer
3. For U = 1 To Val(GetVar(App.Path & "\GUILDS\" & "guildsinfo.inf", "INIT", "NroGuilds"))
4.    DoEvents
5.   If GetVar(App.Path & "\GUILDS\" & "guildsinfo.inf", "GUILD", "GuildName") = Guilds(UserList(UserIndex).GuildIndex).GuildName Then
6.       If GetVar(App.Path & "\GUILDS\" & "guildsinfo.inf", "GUILD", "SubLider") = UserList(UserIndex).name Then
7.           EsSubLider = True
8.       Else
9.           EsSubLider = False
10.        End If
11.     Exit For
12.    End If
13. Next U
14.  
15.  
16. End Function
17.  

Saludos!

Flaco sabes lo que tas haciendo hay ? mira si borras algo que tiene otra funcion el modulo remplazarlo por este



Fijate si te funciona haci
Testealo