Mensajes

Desde Visual Basic 7.0, 2003, 2005 y ahora el 2008 usan la tecnologia .NET...

http://es.wikipedia.org/wiki/Visual_Basic.NET   

Saludos

Se puede mediante un sencillo script

Código [Seleccionar] Expandir

Private Sub Command1_Click()
    Dim fs, f
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.CreateFolder("c:\MI_CARPETA\")
End Sub

Saludos

Creo que esto funciona tal como lo pide:

Código [Seleccionar] Expandir


'Para que no pueda pegar valores mayores a 60
Private Sub Text1_Change()
    If Val(Text1.Text) >= 60 Then
        Text1.Text = ""
    End If
End Sub

'Para que no permita escribir digitos de dos cifras que comienzen con un numero mayor o igual a 6
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii <> 8 Then
        If Val(Text1.Text) >= 6 Then
            KeyAscii = 0
        End If
    End If
End Sub Claro con la propiedad MaxLength del text1 a 2

Talvez te sirva la funcion Mid

Mid (cadena, inicio, longitud)

El parámetro cadena es la cadena a extraer caracteres. El parámetro Inicio es donde comenzar y el parámetro longitud, es la cantidad de caracteres a extraer de la cadena de caracteres.

La puedes usar de esta forma.

Código [Seleccionar] Expandir

Private Sub Command1_Click()
    Dim a As String
    a = Mid(Text1.Text, 4, 1)
    MsgBox a
End Sub Asi te mostrara el cuarto caracter del contenido de text1.text

Saludos

Como ya te mencionó Sancho.Mazorka, usa el programa FUSION, es muy bueno y super sencillo de usar.

http://www.recursosvisualbasic.com.ar/htm/m/ocx-dll-activex-12.htm#stand-alone

Saludos

Hola, gracias a los 2, Celaya te juro que lo busque, inclusive busque en otros foros, pero no doy con ese problema especifico, si te moleste disculpa por favor 

EON, nunca he utilizado un split, mira tengo este codigo

Código [Seleccionar] Expandir

    Dim strDato As String
    Dim archivo As String
    archivo = App.Path & ".\prueba.txt"
    Open archivo For Input As #1
    For i = 0 To ?? <- no se que poner aqui :(
        Input #1, strDato
        frmOpciones!lstSpyware.AddItem strDato
    Next i
    Close #1 Donde lstSpyware es un listbox, no se que utilizar en el for para que recorra linea por linea, es todo lo que necesito para terminar mi aplicacion, un saludo a todos.

Hola a todos, bueno estoy desarrollando una aplicacion en vb, y me tope con algo que nunca habia necesitado, necesito rellenar un listbox con un datos de un archivo de texto. El archivo esta de esta forma:

Fila1
Fila2
Fila3
Fila4

Tenia pensado hacerlo con arreglos, leer cada linea, almacenarla en un array y vaciarla al listbox con el ciclo for, el problema es que no se como identificar el fin de linea. Alguien podria guiarme un poco, ya sea explicando o con un ejemplo.

Saludos

Claro que si, suponiendo que el control winsock se llama winsock1 y el formulario 2 se llame form 2 lo mandas llamar asi

Código [Seleccionar] Expandir

form2.winsock1.blabla

Saludos

Parece muy interesante el control, pero podrias subirlo a rapidshare por favor??? Es q bo hay kien se lo baje de ahi, ademas tienes q logearte y luego te bombardean a publicidad....

De que estas hablando :S, solo tienes que entrar y esperar 20 segundos a que pase el periodo de espera, no hay que loguearse ni nada ni siquiera hay publicidad, en fin..

Respecto al control me marca error de memoria insuficiente, no se a que se deba :S

Saludos

wow excelente, nunca se me hubiera ocurrido... salu2