Mensajes

  aaaa,espera,yo pensaba que lo agregaste en un proyecto de tu maquina y ahi no te andaba... pero si lo llvas a otra maquina esta tiene qeu tener lo qeu usaste en ese ocx,tiene qeu tener el ocx del richtextbox registrado,y la dll que usaste tambien,capas que por eso te tira el error,vos al instalar el visual te estas agregando el richtextbox y te lo esta registrando por eso anda...

Lo que pasa con megaupload esk a mi siempre me dice que todos los puertos para mi pais estan siendo utilizados y no puedo descargar nunca al menos que me baje la barra de megaupload o sea premium -.-.

yo ni borracho instalo esa barra de magaupload,debe ser algun tipo de malware o anda a saber que,a algunos les salta el antivirus..si sos inteligente y usas firefox (broma) tenes un Add-In que lo bajas y te agrega un menu para poder bajar de esta pagina,es como bajarte una skin para el firefox,pero para bajar de magaupload y de todas las paginas con el mismo proceso.yo lo uso hace mucho y bajo sin problemas y el ancho de banda es el maximo..

saludos.

[OLE Automatizacion]

no es nada del otro mundo,,pero en tu primer post decis que lo ¿ejecutas? que queres decir con eso,y otra cosa,¿tenes tildada la opcion en referencias de OLE Automatizacion...??

simplemente pone:

Código [Seleccionar] Expandir

Private Sub Form_Load()
Label1.Caption = Now
End Sub

y listo,te sale la fecha y la hora,si queres que se actualize ponelo en un Timer con intervalo 1 segundo...

sobre el codigo que no te funciona,pues te tiene que funcionar,son funciones basicas de visual basic,pero es verdad hay veces que a algunos no les funcionan las  funciones mas basicas de visual,por eso hay que anteponer el VBA antes de la funcion...o sea algo asi:

Código [Seleccionar] Expandir

Private Sub Form_Load()
    LblHora.Caption = VBA.Time
    LblFecha.Caption = VBA.Date
End Sub

saludos.

Hola,no tengan miedo de explicar un poquito mas  ,¿que es lo que hace tu ocx,que controles pusiste,etc? explicar mas...

[Now]

tambien podes usar Now si queres que te muestre las 2 cosas al mismo tiempo...

pesa 183 KB

vos queres volver a escribir en el archivo poniendolo todo junto al texto?? fijate algo asi.

Código [Seleccionar] Expandir

Private Sub Form_Load()
Dim LaReemplazada As String
Open "c:\de.txt" For Input As #1
Dim todo As String
todo = Input(LOF(1), #1)
Close #1
LaReemplazada = Replace(todo, " ", "")
Open "c:\de.txt" For Output As #1
Print #1, LaReemplazada
Close #1
End Sub

saludos.

yo puedo descargar tranquilo de megaupload 

Hola,pues podes detectar si una unidad esta disponible...suponete detectas si la unidad D:\ esta disponible,si te tira error no esta disponible,depende tambien en tu maquina que letra se le asigna al pen...busca hay api's para eso...

saludos.