Mensajes

Código [Seleccionar] Expandir


If Not IsNumeric(Text1.text) Then
MsgBox "No es numerico!"
Else
MsgBox "Bien"
End if


Pues para mi esta excelente te quedo muy vacana la portada, por favor avisanos cuando ya tengas lista esa Web, que se ve muy interesante  Cheesy

[Descripcion:]

Para evitarte un poquito la busca, aqui te pongo el link de la descarga del Systray.OCX

Descripcion: Control que permite crear ejecutable en la Bandeja del Sistema de Windows, (System Tray), fácil de usar y con programa de ejemplo.

Tamaño: 25KB

DESCARGA

[Cicklow]

Si, disculpame, lo de el error es porque no hice terminar el bucle osea que me falto el Wend.

Gracias Cicklow Por la correccion

Miralo:

Código [Seleccionar] Expandir

Private Sub Form_Load()
Dim file_data$
Open "C:\Archivo.txt" For Append As #1
While Not EOF(1)
Print #1, file_data$
Text1.text=Text1.text & file_data$ & vbNewLine
End Sub

Pues yo el codigo lo haria de la siguiente forma:

Código [Seleccionar] Expandir


Dim Ti 'Defino la variable que va a tener el contador

Function Aumentar_Ti()  'Hago una funcion que me disminuye el contador
    Ti = Ti - 1 'Le resto a Ti lo que tiene una vez
    Label1.Caption = "Faltan: " & Ti & " Segundos Para Morir!" 'Muestro el letrerito del tiempo
    If Ti = 0 Then 'Comparo si Ti es igual a Cero
    MsgBox ("Haz muerto!") 'Reemplaza las sentencias a ejecutar Sentencia a Ejecutar
    End If 'Cierro el If
End Function

Private Sub Form_Load()
    Timer1.Interval = 1000 'Timer va a valer un segundo
    Ti = 30 'Ti va a ser igual a Treinta
    Label1.AutoSize = True 'El label1 va a tomar el tamaño que mejor le parezca
    Label1.Caption = "Faltan: 30 Segundos Para Morir!" 'Que muestre el letrero
End Sub

Private Sub Timer1_Timer()
    Call Aumentar_Ti 'Esta va a llamar la funcion "Aumentar Ti" lo cual hara disminuir Ti
End Sub


Y en cuanto a lo de minimizarse en la Barra de Tareas pues yo te recomiendo que uses un ActiveX llamado

HOONotifyIcon que lo puedes descargar de www.canalvisualbasic.net . Te recomiendo que visites esa Web ahi

encontraras muchas info acerca de la programacion en Visual Basic.

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Open "C:\Archivo.txt" For Append as #1
Print #1, "Hola Mundo"
Close #1
End Sub

Para guardar:

Open "C:\Archivo.txt" for Append as #1
Printf #1, "Lo que le vas a meter al archivo"
Close #1

[got root?]

En una camiseta de Kevin Mitnick dice: got root?

Mira este:

Código [Seleccionar] Expandir


Private Sub Form_Load()
On error goto error
GetAttr("C:\Archivo.txt")
MsgBox("El archivo existe")
error:
MsgBox("El archivo no existe")
End Sub