Mensajes

la verdad probé como me dijo AK74 pero la verdad
no obtenía resultados buenos... eran POCO PARECIDOS al de la imágen..  a ver si alguien me dice otra cosa por favor
desde ya muchas gracias!! :>

Salu2!

Hola vi esta foto y la verdad me encantó..



Siempre me intereso como hacer para Pasar una foto a que sea UN DIBUJO con color pero nunca me salió :S...
Espero que alguien tenga un tutorial o explique como hacerlo ....
Desde ya muchas gracias!

Salu2!

No tendrías que poner el code en vez de como es el programa ? xD

Salu2!

Interesantísimo .. muy buen aporte!

Gracias

Gracias man por responder ahora sí anda perfectamente.. tenía que poner el txtdatos.text = ""  en el Activate...
Ahora funciona perfecto, y voy a tratar de mejorar esta porquería xD gracias y disculpa si te jodi por MP $:

Salu2!

Por favor.. nadie sabe? :S :S
Sorry por postear de nuevo :S :S es para revivir el post ...

Gracias nuevamente!

Otra forma, la más clásica y sencilla es esta:

Option Explicit
Private Sub Form_Load()
Dim renglon As String
Open "C:\tuarchivo.txt" For Input As #1
Do While Not EOF(1)
    Line Input #1, renglon
    Label1.Caption = Label1.Caption + renglon
Loop
Close #1
End Sub

Espero que te haya servido...

Salu2!

buuuuuu, me funcionaba perfectamente NO COMPILADO... lo COMPILE y se cagó anda como antes :S :S :S
me quiero matar!!!!!!

a ver si alguien sabe pq ocurre eso :S

------------------------------------------------------------------
Acá les dejo todo...

FORM1

Option Explicit

Private Sub cmdguardar_Click()
Dim renglon As String
Dim archivo As String
Dim info As String
info = txtdatos.Text
archivo = "C:\datos.txt"
'Abre el archivo y almacena lo que tiene txtdatos
Open archivo For Append As #1
Print #1, " " + ">>>" + " " + ""; Format(Time, "hh:mm") + "||" + " " + Format(Now, "dd-mm-yy") + "||" + " " + info
Close #1
txtdatos.Text = ""
Form1.Visible = False
End Sub

Private Sub Form_Load()
Dim archivo As String
On Error GoTo Fallo
archivo = GetAttr("C:\datos.txt")
Fallo:
Open "C:\datos.txt" For Append As #1
Close #1
End Sub

Private Sub Form_Resize()
txtdatos.Width = Me.ScaleWidth
End Sub


Private Sub Timer1_Timer()
If GetKeyState(vbKeyF12) < 0 Then
    Form2.Visible = True
End If
End Sub

FORM2

Private Sub cmdvolver_Click()
Form2.Visible = False
Form1.Visible = True
End Sub

Private Sub Form_Activate()
Dim renglon As String
Dim archivo As String
archivo = "C:\datos.txt"
'Carga lo que haya almacenado cuando se cargue el form.
Open archivo For Input As #1
Do While Not EOF(1)
    Line Input #1, renglon
    txtdatos.Text = txtdatos.Text + renglon + vbCrLf
Loop
Close #1
End Sub

Y acá imágenes de lo que me pasa por si no entendieron
Este es el form 1, ingreso texto, toco escape y se oculta!



Cuando toco F12 se carga el FORM2 con lo que ingresé en el FORM1, hasta ahi todo perfecto!



Pero al tocar el BOTON VOLVER que vuelve al FORM1 para ingresar otro dato y luego de tocar escape y luego F12 para que cargue nuevamente ME PONE 2 VECES LO MISMO EN EL ANOTADOR PORQUE VUELVE A ABRIR EL ARCHIVO.. y ese es mi problema que no vuelva a repetir lo que ya esta :S...



Espero que ahora si me hayan entendido mejor.. desde ya muchas gracias...

PD: También tengo un módulo que solo contiene la API GetKeyState...

Salu2!

:S exactamente, hago eso.. pero si no uso APPEND que uso?? ... OUTPUT no puede ser porque yo quiero que recuerde siempre, no solamente cuadno está ejecutado el programa...
:S :S :S


Salu2!

Bueno, estoy aprendiendo VB y se me dió por hacer un anotador sencillo.. donde vos tipeas lo que querés guardar y cuando le das al boton guardar el form se hace invisible.. y cuando tocas f12 con la api GetAsyncKeyState  aparezca en otro FORM lo que hayas escrito antes...
Hasta ahí me funciona todo perfecto, mi problema es que como en un anotador, vas anotando cosas lo hice el archivo que sea APPEND y entonces cuando toco F12 para que me muestra lo que guarde a la 2da vez que toco F12 me lo muestra 2 veces repetidas lo que guardé antes y solamente quiero que me muestre lo último que guarde.. :S.. a ver si alguien me da una idea o algo.. si no entendieron avisen $:

Salu2!

PD: Y obviamente OUTPUT no puede ser porque yo quiero que siempre que se abra el programa recuerde todo lo que se guardo :S... sino funcionaría perfecto