Mensajes

lo que sucede es que no indicas cuantas veces tiene que realizarse el bucle.
en la sentencia

Código [Seleccionar] Expandir

For j=0 to i
no estas indicando cuanto vale i...

por lo tanto lo solucionas colocando antes del bucle lo siguiente:

Código (vb) [Seleccionar] Expandir

i=List1.listcount

Código (vb) [Seleccionar] Expandir

Option Explicit

Dim Directorio As String

Private Sub Command1_Click()
    Kill Directorio
End Sub

Private Sub List1_Click()
    Directorio = List1.Text
End Sub

xkiz te dio un ejemplo solo lo tienes que adaptar a tu proyecto, por ejemplo asi

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    Dim str() As String
    Dim i As Byte
    str = Split(Text1, " ")
    For i = LBound(str) To UBound(str)
        Select Case i
            Case 0
                txtPrimerNombre.Text = str(i)
            Case 1
                txtSegundoNombre.Text = str(i)
            Case 2
                txtPrimerApellido.Text = str(i)
            Case 3
                txtSegundoApellido.Text = str(i)
        End Select
    Next
End Sub

puedes usar tambien Instr y Replace...

este post va en .net

Código [Seleccionar] Expandir

http://foro.elhacker.net/net-b62.0/

ahi van a saber ayudarte...

Hola!! aqui les dejo mi code...
aclaro que soy principiante... me conformo solo con que funcione.

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub Command1_Click()
    Dim n               As Byte
    Dim Repetido        As Byte
    Dim Numero(24)      As Byte
    Dim i               As Byte
    Dim Ordenar         As Boolean
    Dim Aux             As Byte
   
'//Generar los numeros aleatorios no repetidos
    Randomize Timer
    For i = 0 To 24
        n = Rnd * 30
        If i = 0 Then
            Numero(i) = n
        Else
            Repetido = i
            Do
                Repetido = Repetido - 1
                If Numero(i) = Numero(Repetido) Then
                    n = Rnd * 30
                    Numero(i) = n
                    Repetido = i
                End If
            Loop Until Repetido = 0
        End If
    Next i
   
'//Ordenar de menor a mayor
    Ordenar = True
    Do While Ordenar = True
        Ordenar = False
        For i = 0 To 23
            If Numero(i + 1) < Numero(i) Then
                Aux = Numero(i)
                Numero(i) = Numero(i + 1)
                Numero(i + 1) = Aux
                Ordenar = True
            End If
        Next i
    Loop
   
'//Cargar la matriz
    For i = 0 To 24
        If i = 0 Or i = 4 Or i = 6 Or i = 8 Or i = 12 Or i = 16 Or i = 18 Or i = 20 Or i = 24 Then
            Label1(i).Caption = Numero(i)
        End If
    Next i
End Sub

el problema es que el archivo lo estas creando en la carpeta default que creo que es la de visual basic, para arreglar eso podrias poner la direccion en dondo queres que se cree el archivo por ejemplo en vez de

Código (vb) [Seleccionar] Expandir

Open "prueba.txt" for Output As #1

podes poner

Código (vb) [Seleccionar] Expandir

Open "C:\prueba.txt" for Output As #1

y el archivo se creara en C:

 a mi me pasa lo mismo que a grepchown, por favor alguien no lo podria subir a otro host, me interesa mucho el proyecto

Lo solucionas asignando val al text1 para identificarlo como un numero

Código (vb) [Seleccionar] Expandir

Private Sub Text1_Change()
    If Val(Text1.Text) <= 99 Then
        Text1.BackColor = vbGreen
    ElseIf Val(Text1.Text) > 99 Then
        Text1.BackColor = vbRed
    End If
End Sub


[load]

no seria en el load en vez de

Código (vb) [Seleccionar] Expandir

Public Function Cargar_Texto_Con_Onditas(Texto As String, Cantidad As Integer, Relojito As Timer)

asi

Código (vb) [Seleccionar] Expandir

Call Cargar_Texto_Con_Onditas("aqui va el texto", CualquierNumero, Timer1)
suponiendo que timer1 es el nombre de nuestro timer y que cualquier numero puede ser el que nosotros elijamos (1,2,3,4,etc)


y en el timer en vez de

Código (vb) [Seleccionar] Expandir

Public Function Timer_Texto_Con_Onditas(salida As Label)

asi

Código (vb) [Seleccionar] Expandir

Call Timer_Texto_Con_Onditas(Label1)
suponiendo que nuestro label se llame Label1