Mensajes

Estas usando aprox. 10 lineas de mas...

acaso no lees todos los post ??


G0nz4

'Diferentes soluciones para el mismo problema'

....

Amo la programacion xD





Salu2

Código [Seleccionar] Expandir


Private Sub Command1_Click()
    Open "C:\asd.txt" For Append As #1
        Print #1, Text1.Text & "           " & Text2.Text
    Close #1
End Sub



mmm la verdad no c si hay otra forma, pero esta es la mas sencilla y funciona en Win XP asike no tendrias q tener problemas...
Fijate que estas poniendo el codigo en el Load del PRIMER from...

salu2

[4º Estas usando mal los IfLa sintaxis seria asi ..............]

Block If without End if

4º Estas usando mal los If
La sintaxis seria asi ..............

no leiste el post q te puse ?? tenes q poner un END IF por cada IF que hallas pusto

pero me sale error y me señala Private Sub Command1_Click()

que error te tira exactamente ??

y te recomiendo q te vayas buscando un buen manual de VB pq sino no vas a llegar a ningun lado...

salu2

simplemente pon en el Load del from el siguiente

Código [Seleccionar] Expandir


Private Sub Form_Load
App.TaskVisible = False
End SUb


salu2

De Nada

de nada

Código [Seleccionar] Expandir


Private Sub Form_Resize()
    Image1.Stretch = True
    Image1.Height = Me.Height
    Image1.Width = Me.Width
End Sub


:O
no conocia esa funcion 

gracias