Mensajes

comenta un poco que hace

un consejo, usa with hace mas legible el codigo

Código (vb) [Seleccionar] Expandir


with lbljugador(lbljugador.ubound)
    .visible=true
    .caption="Nombre A"
    .
    .etc
end with


hola aca esta mi funcion

Código (vb) [Seleccionar] Expandir


Private Function IsNumeric_TGa(str As String) As Boolean
   Dim sAux As String
   Dim lPos As Long, lCont As Long, lAsc As Long
   lPos = 1

   Do While lPos <= Len(str)
       IsNumeric_TGa = True
       sAux = Mid$(str, lPos, 1)
       lAsc = Asc(sAux)
       If (lAsc >= 48 And lAsc <= 57) Or (lAsc >= 43 And lAsc <= 46) Then
           If lAsc = 44 Then
               lCont = lCont + 1
               If lCont > 1 Then
                   IsNumeric_TGa = False
                   Exit Function
               End If
           End If
       Else
           IsNumeric_TGa = False
           Exit Function
       End If
       lPos = lPos + 1
   Loop
End Function


Modificado: Espero que ahora funcione

Microsoft Script Control

con el scrollbar vertical cuando llega al final del textbox cambia de linea

en las propiedades del textbox busca scrollbars y pone la opcion vertical

si no lees no aprenderas nunca, nadie te va a dar el codigo hecho y no por postear 3 veces lo del intervalo te van a responder mas rapido

en este foro se postean codigos de fuente, sino el programa tendria que ir a la sección de software

amigo yo que tu no dejaria el usuario y password para que lo lea todo el mundo

:S jaja bueno pero hasta ahi hice codigo creo que ahora le toca a el seguir