Necesito ayuda para hacer un codigo .
es asi :
yo quiero hacer que al apretar
la tecla "f1" (por ejemplo) mi pj diga algo q yo escribi previamente en algun textbox que este adentro de un form, por ejemplo
"hola"
entonces cada ves q tecleo "f1" mi pj dice "hola"

Gracias de antemano

Emm no te entendi nada, fijate si es esto

Arriba del Case vbkeyF2 o si no lo etnes ponelo arriba del case vbkeyF3... pones esto.



Ahi falta algo, osea, antes del " & " falta algo para qe ponga qe lo diga, dsp me fijo bien, no tengo los codigos.

Nombreform = el nombre del form qe tiene el textbox donde escribiste algo.
textbox = el nombre del textbox en el qe escribis.

lo que yo quiero es por ejemplo :
yo en un form creo un textbox y cuando este en el juego habro ese form edito el textbox lo guardo y despues cada ves q aparte la tecla "1" se autoescriba y autoenvie lo q dice dentro de ese textbox

perdon por el doble post ya me voy a crear una cuenta.
asta ahora lo tengo asi pero no anda



probe con otras vbkeys pero tampoco

Invitado escribió:perdon por el doble post ya me voy a crear una cuenta.
asta ahora lo tengo asi pero no anda

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1.                    Case vbKey1:
2.                     Call SendData(Atajos.ataj1.Text)

probe con otras vbkeys pero tampoco

me imagino que lo pusiste donde va, no? ahora te dejo uno..


te lo dejo =)

Primero crea un form, con el nombre

FrmAtajos
adentro pone un text con nombre text1

busca:



y arriba pone:

muchas gracias
2 cosas mas
1- imaginate q yo en el text tenia puesto
"hola 1"
y yo lo modifique por
"hola 2"
y todabia no cerre el form, y quiero q al cerar el form vuelva a ser como antes osea
"hola 1"
2- quiero q cuando salga y vuelva a entrar se guarde lo q modifique en el textbox

Invitado escribió:muchas gracias
2 cosas mas
1- imaginate q yo en el text tenia puesto
"hola 1"
y yo lo modifique por
"hola 2"
y todabia no cerre el form, y quiero q al cerar el form vuelva a ser como antes osea
"hola 1"
2- quiero q cuando salga y vuelva a entrar se guarde lo q modifique en el textbox

ok..`. pera que tengo que usar getvar y writevar... solo con un text?

si, en uno solo

Invitado escribió:si, en uno solo

En el frmatajos, crea 2 commands

y en el codigo del form pone:


despues anda a la carpeta init, y crea un archivo de texto llamado
Atajos.dat

y adentro pone:

error en
call writervar
"el argumento no es opcional"

Chily escribió:

Invitado escribió:si, en uno solo

En el frmatajos, crea 2 commands

y en el codigo del form pone:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Private Sub Command1_Click()
2.  
3. Call WriteVar(App.Path & "\init\Atajos.dat", "[Atajo1]", "Atajo=" & Text1)
4. End Sub
5.  
6. Private Sub Command2_Click()
7. Text1 = Val(GetVar(App.Path & "\init\Atajos.dat", "[Atajo1]", "Atajo=" & Text1))
8. End Sub
9. Private Sub Form_Load()
10. Command1.Caption = "Guardar"
11. Command2.Caption = "Cargar"
12. End Sub
13.  
14.  

despues anda a la carpeta init, y crea un archivo de texto llamado
Atajos.dat

y adentro pone:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. [Atajo1]
2. Atajo1=

Chily, fijate cuando escribis y pedis...
Cuando escribis, no va Atajo=, va "Atajo" nomas, el = te lo pone el archivo cuando se escribe...

y Cuando pedis... fijate qe no va el ultimo campo qe pusiset ( Text1 ), si no me equiboco, solo se pone asi en el writevar ese campo, en el getvar no se pone, osea, seria asi

Cambiar:


Por :

NOOO SE :s
no anda ell writevar me da el error q les dije mas arriba
(yo era el invitado=

error en
call writervar
"el argumento no es opcional"

secabochaII escribió:NOOO SE :s
no anda ell writevar me da el error q les dije mas arriba
(yo era el invitado=

error en
call writervar
"el argumento no es opcional"

tenes declarado el writevar y getvar vos? T_T

si

secabochaII escribió:si

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Sub WriteVar(File As String, Main As String, Var As String, value As String)
2. '*****************************************************************
3. 'Writes a var to a text file
4. '*****************************************************************
5.  
6. writeprivateprofilestring Main, Var, value, File
7.  
8. End Sub

proba asi... lo saque del sv jaja