, bienvenido a SpikeL Foro.
Índice
Últimas imágenes
Registrarse
ConectarseAutocompletar nicks
2 participantes
Página 1 de 1.
Autocompletar nicks
por santi55 Lun Ene 24, 2011 12:22 pm
Es asi ai un user con un nick muy largamos digamos daswsa pones /resucitar das o /sum das y lo sumonea o resucita
Bueno
Servidor:
y remplazan todo el fuction completo por
Este:
Bueno
Servidor:
- Código:
Function NameIndex
y remplazan todo el fuction completo por
Este:
- Código:
Function NameIndex(ByVal Name As String) As Integer
Dim UserIndex As Integer, i As Integer
Name = Replace$(Name, "+", " ")
If Len(Name) = 0 Then
NameIndex = 0
Exit Function
End If
UserIndex = 1
If Right$(Name, 1) = "*" Then
Name = Left$(Name, Len(Name) - 1)
For i = 1 To LastUser
If UCase$(UserList(i).Name) = UCase$(Name) Then
NameIndex = i
Exit Function
End If
Next
Else
For i = 1 To LastUser
If UCase$(Left$(UserList(i).Name, Len(Name))) = UCase$(Name) Then
NameIndex = i
Exit Function
End If
Next
End If
End Function
santi55Nivel 12 
Advertencias : 1
Mensajes : 156
Puntos : 49387
Reputación : 1
Fecha de inscripción : 19/12/2010
País : 
Re: Autocompletar nicks
por Francohhh Lun Ene 24, 2011 12:41 pm
Muy buen código pero si hay muchos usuarios en línea no creo que sea muy combeniente porque puede trar a otro usuario.
Buen aporte!
Buen aporte!
FrancohhhAdministrador 
- Administrador
Mensajes : 880 Puntos : 53096 Reputación : 41
Sexo : 
Fecha de inscripción : 23/03/2010
Edad : 27
Localización : Mar del Plata -
Página 1 de 1.
Permisos de este foro:
No puedes responder a temas en este foro.|
|
|