Mensajes

HOLA... YO TB SOY BASTANTE NUEVO EN ESTO PERO CREO Q TE PUEDO AYUDAR... SI TE FIJAS EN LAS PROPIEDADES DEL FORM PUEDES CAMBIAR LA OPCION "MaxButton" A "False" ENTONCES SE ANULARA EL BOTON, PUEDES HACER LO MISMO CON "MinButton"
ESPERO Q TE SIRVA

GRACIAS A LA EXPLICACION... PERO SIGO TENIENDO EL MISMO PROBLEMA:

YO GUARDO TODOS LOS ARCHIVOS .TXT EN LA CARPETA XEROX (SON 20 ARCHIVOS EN TOTAL) 10 SE LLAMAN nom1, nom2, nom3... Y OTROS 10 con1, con2, con3...
LOS CODIGOS Q USE PARA GUARDAR LOS ARCHIVOS SON:

Private Sub gua_Click()

Open "C:\Archivos de programa\xerox\nom1.txt" For Append As #1
Print #1, nom1
Close #1

Open "C:\Archivos de programa\xerox\con1.txt" For Append As #2
Print #2, con1
Close #2

Open "C:\Archivos de programa\xerox\nom2.txt" For Append As #3
Print #3, nom2
Close #3

LOS TEXT(X) IMPARES CONTIENEN LA VARIABLE nom(x) Y LOS PARES con(x)

PARA ABRIR EL ARCHIVO USE EL SIGUIENTE CODIGO:

Open "C:\Archivos de programa\xerox\nom1.txt" For Binary As #21
nom1 = Space(LOF(21))
Get #21, , nom1
Close #21
Text1.Text = nom1

Open "C:\Archivos de programa\xerox\con1.txt" For Binary As #21
con1 = Space(LOF(21))
Get #21, , con1
Close #21
Text1.Text = con1

Open "C:\Archivos de programa\xerox\nom2.txt" For Binary As #22
nom2 = Space(LOF(22))
Get #22, , nom2
Close #22
Text3.Text = nom2

Y ME PONE EN TODOS LOS TEXT LO MISMO (EL TEXTO Q TENDRIA Q APARECER SOLAMENTE EN EL TEXT1 SEGUIDO DE DOS RAYITAS)...
TRATANDO DE PONER LAS DOR RAYITAS ACA, (PARA Q VEAN Q PUEDE SER) EN VES DE PONERSE SE BAJA UN REGLON COMO SI HUBIESE TOCADO EL ENTER

ESPERO Q ME HALLAN ENTENDIDO Y ME SEPAN EXPLICAR

MUCHAS GRACIAS 

OK MUCHAS GRACIAS!... PERO OTRA PREGUNTA... PARA ENTENDER COMO FUNCIONA EL CODIGO... NO ENTIENDO PARA Q SIRVEN ESTOS TRES RENGLONES
Set ws = CreateObject("Wscript.Shell")
Set fs = CreateObject("Scripting.FilesystemObject")
desktop_ = ws.specialfolders("Desktop")
POR FAVOR TE AGRADECERIA SI ME LO ESPLICAS...

Y PROBANDO EL PRIMER CODIGO Q ME PASO EON... ME FUNCIONA BIEN... PERO EN EL PROGRAMA TENGO Q ABRIR VARIOS ARCHIVOS (20) Y COPIAR EL TEXTO A 20 TEXT DISITNOS PERO CUANDO USO ESE CODIGO SE ME COPIA EL TEXTO DEL PRIMERO (nom1) A TODOS LOS TEXT Y DESPUES ME PONE 2 RAYITAS
YO LE CAMBIE:

Private Sub Command1_Click()
Open "C:\jaja.txt" For Binary As #1      (EL NOMBRE DEL ARCHIVO Y EL NUMERO #1 A #2 Y ASI SUSESIVAMENTE)
h = Space(LOF(1))       (PUSE TODAS VARIALBES DISTINTAS Y CAMBIE EL 1 POR 2, 3, 4...)
Get #1, , h          (PUSE LA MISMA VARIABLE Q PONIA ANTES Y EN LUGAR DEL #1 PONIA #Y EL NUMERO Q LE )CORRESPONDIA
Close #1       (TB CAMBIO EL NUMERO COMO ANTES)

POR FAVOR SI ME PODES DECIR EN Q ME ESTOY EQUIVOCANDO O CUAL PUEDE SER EL ERROR TE LO AGRADECERIA....

esto es muy basico, lee algun manual, de todas maneras te lo digo...

Código [Seleccionar] Expandir

Dim h As String

Private Sub Command1_Click()
Open "C:\jaja.txt" For Binary As #1
h = Space(LOF(1))
Get #1, , h
Close #1

Label1.Caption = h
End Sub

ok muchas gracias

HOLA QUISIERA SABER COMO PUEDO HACER Q EL TEXTO DE UN ARCHIVO *.txt ME aparezca EN UNA LABEL SUPONIENDO Q EL ARCHIVO ESTA EN EL ESCRITORIO Y SE LLAMA jaja.txt Y LA LABEL SEA LA LABEL1
DESDE YA MUCHAS GRACIAS

HOLA! SOY BASTANTE NUEVO EN ESTO... SOLAMENTE SE LO BASICO, MUCHO DE LO CUAL LO APRENDI LEYENDO EL FORO.
QUERIA SABER SI ALGUIEN ME AYUDABA A ENTENDER ESTOS CODIGOS... YO QUISIERA SABER COMO GENERAR UN ARCHIVO EN BV UN .txt CON LOS CODIGOS ANTERIORES PUDE LOGRAR HACER UNO CON NOMBRE jaja PERO NO LOGRO PONERLE CONTENIDO ADENTRO, OSEA, CUANDO ABRO EL ARCHIVO APARECE EN BLANCO....
TODO LO Q HICE ES UN CommandButton AL CUAL LE PUSE EL SIGUIENTE CODIGO:
Private Sub Command1_Click()
Open "C:\Documents and Settings\Usuario Final\Escritorio\jaja.txt" For Append As #1
End Sub

DESDE YA MUCHAS GRACIAS

alguien sabe donde puedo encontrar q numero le corresponde a cada boton del teclado???
desde ya muchas gracias

no se de ningun libro... yo aprendi bastante con un pag. web y otro poco preguntando en este foro...
la pag es esta http://www.mundoprogramacion.com/vb/cursos_vb/basico/indice.htm

ok gracias....

Hola... estuve leyendo varias cosas en el foro y vi q hablan mucho de las api y los modulos. Alguien me podria decir q son los modulos?? las api ya encontre