• Jueves 7 de Noviembre de 2024, 20:12

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - Jimbenit

Páginas: [1] 2 3 4
1
Dudas informáticas / Voy a Crear una Emisora OnLine, Alguna sugerencia ?
« en: Viernes 27 de Agosto de 2010, 00:34 »
Hola amigos.

Quiero pedirles una sugerencia. Que herramientas o bajo que cosa me recomiendan hacer la emisora?
(iba a empezar con ShoutCast de Winamp, es gratis y muy sencillo pero quiero ver mas opciones)
saludos.

2
Visual Basic para principiantes / Como alinear el texto de un ListBox?
« en: Martes 24 de Agosto de 2010, 22:07 »
Hola amigos, alguien sabe bajo que propiedad o comando se puede alinear el texto mostrado en un list box ?  :mellow:


saludos.

3
Visual Basic 6.0 e inferiores / Boton Dibujado en un picture. Necesito una Sugerencia
« en: Miércoles 4 de Agosto de 2010, 23:18 »
Hola amigos de solocodigo.

En esta ocasion estoy creando un "boton de comando" pero que se dibuje en un picture.

Los codigos son los siguientes:
Modulo
Código: Visual Basic
  1. Option Explicit
  2.  
  3. Public Sub Boton(PictureKE As PictureBox, Formulario As Form, Ancho As Single, Alto As Single, _
  4. PosX As Single, PosY As Single, Color_Borde As Long, Optional Color_Fondo_PictureKE As Long = vbBlack, _
  5. Optional Texto As String = "", Optional Tamaño_Letra As Integer = 9, Optional Color_Texto As Long = vbWhite, _
  6. Optional X_MOV As Single = 0, Optional Y_MOV As Single = 0, Optional Color_Fondo_Boton As Long = vbBlack, _
  7. Optional Color_Fondo_Boton2 As Long = vbYellow, _
  8. Optional Color_Texto2 As Long = vbRed, Optional Color_Fondo_Boton3 As Long = vbYellow, _
  9. Optional Color_Texto3 As Long = vbMagenta, Optional Click_Down As Boolean = False)
  10.  
  11. 'X_MOV y Y_MOV son las coordenadas del mouse, estas variables se activaran en el evento mouse move del picture, mientras
  12. 'estaran con valor = 0
  13. 'Color_Fondo_Boton2 es el color que toma el fondo del boton cuando el mouese esta sobre él
  14. 'Color_Texto2 es el color que toma el texto cuando el mouese esta sobre el boton
  15.  
  16. 'Color_Fondo_Boton3 es el color que toma el fondo del boton cuando se ejecuta Mouse Down
  17. 'Color_Texto3 es el color que toma el texto cuando se ejecuta Mouse down
  18.  
  19.  
  20. 'Click_Down es True en el momento que se ejecute el evento Mouse_Down del picture
  21. 'Click_Up es True en el momento que se ejecute el evento Mouse_Up del picture
  22.  
  23. 'acomodando el pcicture
  24. 'Call Acomodando_Picture(PictureKE, Formulario)
  25.  
  26. Dim Long_Texto As Single 'Longitud del texto
  27. Dim Alt_Texto As Single 'Altura del texto
  28. Long_Texto = PictureKE.TextWidth(Texto)
  29. Alt_Texto = PictureKE.TextHeight(Texto)
  30.  
  31.     'Cambiando el color de fondo del boton, si el mouese esta sobre el boton
  32.     If X_MOV >= PosX And X_MOV <= (PosX + Ancho) And Y_MOV >= PosY And Y_MOV <= (PosY + Alto) Then
  33.         PictureKE.Line (PosX, PosY)-(PosX + Ancho, PosY + Alto), Color_Fondo_Boton2, BF
  34.         'escribimos el texto siempre y cuando quepa dentro del boton
  35.         If Long_Texto < Ancho And Alt_Texto < Alto Then
  36.             Call Escribir_Texto_V2(PictureKE, Color_Fondo_PictureKE, Tamaño_Letra, PosX + Ancho / 2 - Long_Texto / 2, PosY + Alto / 2 - Alt_Texto / 2, Color_Texto2, Texto)
  37.         End If
  38.    
  39.     'Cambiando el color del boton si hay click
  40.     If Click_Down = True Then
  41.         PictureKE.Line (PosX, PosY)-(PosX + Ancho, PosY + Alto), Color_Fondo_Boton3, BF
  42.         'escribimos el texto siempre y cuando quepa dentro del boton
  43.         If Long_Texto < Ancho And Alt_Texto < Alto Then
  44.             Call Escribir_Texto_V2(PictureKE, Color_Fondo_PictureKE, Tamaño_Letra, PosX + Ancho / 2 - Long_Texto / 2, PosY + Alto / 2 - Alt_Texto / 2, Color_Texto3, Texto)
  45.         End If
  46.     End If
  47.    
  48.     Else
  49.         'restableciendo el fondo del boton
  50.         PictureKE.Line (PosX, PosY)-(PosX + Ancho, PosY + Alto), Color_Fondo_Boton, BF
  51.         'escribimos el texto siempre y cuando quepa dentro del boton (Boton normal)
  52.         If Long_Texto < Ancho And Alt_Texto < Alto Then
  53.             Call Escribir_Texto_V2(PictureKE, Color_Fondo_PictureKE, Tamaño_Letra, PosX + Ancho / 2 - Long_Texto / 2, PosY + Alto / 2 - Alt_Texto / 2, Color_Texto, Texto)
  54.         End If
  55.     End If
  56.    
  57.    
  58. 'dibujando el borde exterior
  59. PictureKE.Line (PosX, PosY)-(PosX + Ancho, PosY + Alto), Color_Borde, B
  60.  
  61.  
  62. End Sub
  63.  
  64. Sub Escribir_Texto_V2(PictureKE As PictureBox, Color_PictureKE As Long, TamañoLetra As Integer, _
  65. PosX As Single, PosY As Single, Color_Texto As Long, Texto As String, Optional ByRef Delta_X As Single)
  66.     Dim Delta_X_OLD As Single
  67.     Delta_X_OLD = Delta_X
  68.     'Delta_X es la coordenada X donde se termina de escribir la palabra
  69.     'Texto es la palabra escrita
  70.    
  71.     PictureKE.PSet (PosX, PosY), Color_PictureKE
  72.    
  73.    
  74.    
  75.     PictureKE.ForeColor = Color_Texto
  76.     PictureKE.FontSize = TamañoLetra
  77.     PictureKE.Print Texto;
  78.     Delta_X = PictureKE.CurrentX
  79.    
  80.     If Delta_X < Delta_X_OLD Then
  81.         Delta_X = Delta_X_OLD
  82.     End If
  83.    
  84.    
  85. End Sub
  86.  
  87. Public Sub Acomodando_Picture(PictureKE As PictureBox, Formulario As Form)
  88. 'Acomoda el picture en el form
  89. With PictureKE
  90.     .Top = 0
  91.     .Left = 0
  92.     .Width = Formulario.ScaleWidth
  93.     .Height = Formulario.ScaleHeight
  94.     .BackColor = vbBlack
  95.     .AutoRedraw = True
  96. End With
  97. End Sub
  98.  
  99.  

Y para dibujar 3 botones en el formulario, hago lo siguiente en el procedimiento Load de dicho formulario:
Código: Visual Basic
  1. Public Click_Down As Boolean
  2.  
  3. Public Ancho1 As Single, Alto1 As Single, X1 As Single, Y1 As Single
  4. Public Ancho2 As Single, Alto2 As Single, X2 As Single, Y2 As Single
  5. Public Ancho3 As Single, Alto3 As Single, X3 As Single, Y3 As Single
  6.  
  7.  
  8. Private Sub Form_Resize()
  9.    
  10. Call Acomodando_Picture(Picture1, Me)
  11.  
  12.     'Variables de tamaños de botnes
  13.     Ancho1 = Me.ScaleWidth * 0.1: Alto1 = Me.ScaleHeight * 0.05
  14.     X1 = Me.ScaleWidth * 0.1: Y1 = Me.ScaleHeight * 0.1
  15.    
  16.     Ancho2 = Me.ScaleWidth * 0.1: Alto2 = Alto1
  17.     X2 = X1 + Ancho1 * 1.5: Y2 = Y1
  18.    
  19.     Ancho3 = Me.ScaleWidth * 0.1: Alto3 = Alto1
  20.     X3 = X2 + Ancho2 * 1.5: Y3 = Y2
  21.    
  22.     Call Boton1
  23.     Call Boton2
  24.     Call Boton3
  25. End Sub
  26.  
  27. Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  28.     Click_Down = True
  29.     Call Boton1(X, Y)
  30.     Call Boton2(X, Y)
  31.     Call Boton3(X, Y)
  32.    
  33.     Call Click(X, Y)
  34. End Sub
  35.  
  36. Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  37.     Call Boton1(X, Y)
  38.     Call Boton2(X, Y)
  39.     Call Boton3(X, Y)
  40. End Sub
  41.  
  42. Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  43.     Click_Down = False
  44.     Call Boton1(X, Y)
  45.     Call Boton2(X, Y)
  46.     Call Boton3(X, Y)
  47. End Sub
  48.  
  49.  
  50. Private Sub Boton1(Optional ByRef X As Single, Optional ByRef Y As Single)
  51.     Call Boton(Picture1, Me, Ancho1, Alto1, X1, Y1, vbGreen, , "Text1", , , X, Y, , vbGreen, vbBlue, , , Click_Down)
  52. End Sub
  53.  
  54. Private Sub Boton2(Optional ByRef X As Single, Optional ByRef Y As Single)
  55.     Call Boton(Picture1, Me, Ancho2, Alto2, X2, Y2, vbGreen, , "Text2", , , X, Y, , vbGreen, vbBlue, , , Click_Down)
  56. End Sub
  57.  
  58. Private Sub Boton3(Optional ByRef X As Single, Optional ByRef Y As Single)
  59.     Call Boton(Picture1, Me, Ancho3, Alto3, X3, Y3, vbGreen, , "Text3", , , X, Y, , vbGreen, vbBlue, , , Click_Down)
  60. End Sub
  61.  
  62. Private Sub Click(X As Single, Y As Single)
  63.     If X >= X1 And X <= (X1 + Ancho1) And Y >= Y1 And Y <= (Y1 + Alto1) Then
  64.         'Click del primer boton
  65.         MsgBox ("Boton1")
  66.     ElseIf X >= X2 And X <= (X2 + Ancho2) And Y >= Y2 And Y <= (Y2 + Alto2) Then
  67.         'Click del segundo boton
  68.         MsgBox ("Boton2")
  69.     ElseIf X >= X3 And X <= (X3 + Ancho3) And Y >= Y2 And Y <= (Y3 + Alto3) Then
  70.         'Click del tercer boton
  71.         MsgBox ("Boton3")
  72.     End If
  73.    
  74. End Sub
  75.  
  76.  
  77.  

Como resultado se visualiza los "botones" dibujados en el picture, asi:

En el codigo pueden ver que cuando el mouse pasa por encima del boton, este cambia de color, lo mismo cuando se ejecuta el evento Mouse_Down del picture.

Mi pregunta es la siguiente:
Hay alguna manera de hacer esto sin que se coloque tanto codigo en el Form_Load ?
Necesito sugerencias.


Un saludo y de verdad, muchas gracias.

4
Visual Basic 6.0 e inferiores / Coordenadas (x,y) cuando escribo en picture
« en: Miércoles 21 de Julio de 2010, 22:43 »
Saludos amigos de solocodigo.

Mi duda es cuando escribo en un picture por medio del siguiente sub:

Código: Visual Basic
  1. Sub Escribir_Texto(PictureKE As PictureBox, Color_PictureKE As Long, TamañoLetra As Integer, _
  2. PosX As Single, PosY As Single, Color_Texto As Long, Texto As String)
  3.  
  4.     'Colocamos un punto de igual color del fondo del pictureke, esto hará que el punto se "pierda"
  5.     'Esto se hace para ganar la posicion del cursor a la hora de escribir el texto
  6.     PictureKE.PSet (PosX, PosY), Color_PictureKE
  7.  
  8.     PictureKE.ForeColor = Color_Texto
  9.     PictureKE.FontSize = TamañoLetra
  10.     PictureKE.Print Texto
  11.  
  12. End Sub
  13.  

Necesito saber la coordenada x una vez termino de escribir en el picture.
La siguiente imagen explica mejor lo que deseo:


En la imagen, yo escribo en el picture en la coordenada (x,y), alli empiezo a escribir la palabra "Temperatura", una vez termino de escribir, el cursor se desplaza automaticamente a la derecha cada vez que escribe las letras de la palara "Temperatura", la pregunta es:
Como saber cual es la distancia que se desplazo el cursor cuando termino de escribir " Temperatura"?
es decir, Como saber cual es la nueva coordenda (X + delta X , Y)?
siendo delta X la distancia de la palabra "Temperatura" ?


Alguna idea?

Saludos.

5
VB .NET / Duda con StreamReader: Concepto, alguien me explica?
« en: Jueves 17 de Junio de 2010, 00:05 »
Hola compañeros de solocodigo

En esta ocasión me gustaria que alguien me explicará el porque del siguiente error, lo solucioné pero aun no se la explicación.

Lo que quiero hacer es escribir unos lineas de texto en un archivo de txt, esto se hace asi:
Código: vb.net
  1. Imports System
  2. Imports System.IO
  3.  
  4.  
  5. Module Module1
  6.  
  7.     Sub Main()
  8.  
  9.         Dim FS As FileStream
  10.         Dim SW As StreamWriter
  11.         Dim STR As String
  12.  
  13.         Try
  14.             'crear un flujo hacie el ficher txt
  15.             FS = New FileStream("d:doc.txt", FileMode.Append, FileAccess.Write)
  16.             SW = New StreamWriter(FS)
  17.  
  18.             Console.WriteLine("Escriba una linea y pulse enter, para terminar solo pulse enter")
  19.             STR = Console.ReadLine
  20.             While STR <> Nothing
  21.                 'escribe la linea en el fichero
  22.                 SW.WriteLine(STR)
  23.                 'siguiente linea
  24.                 STR = Console.ReadLine
  25.             End While
  26.  
  27.         Catch ex As IOException
  28.             Console.WriteLine("Error : " & ex.Message)
  29.         Finally
  30.             If (Not SW Is Nothing) Then SW.Close()
  31.         End Try
  32.  
  33.     End Sub
  34.  
  35. End Module
  36.  

el codigo anterior funciona bien, ahora miren el siguiente codigo:
Código: vb.net
  1. Imports System
  2. Imports System.IO
  3.  
  4.  
  5. Module Module1
  6.  
  7.     Sub Main()
  8.  
  9.         Dim FS As FileStream
  10.         Dim SW As StreamWriter
  11.         Dim STR As String
  12.  
  13.         Try
  14.             'crear un flujo hacie el ficher txt
  15.             FS = New FileStream("d:doc.txt", FileMode.Append, FileAccess.Write)
  16.             SW = New StreamWriter(FS)
  17.  
  18.             Console.WriteLine("Escriba una linea y pulse enter, para terminar solo pulse enter")
  19.             STR = Console.ReadLine
  20.             While STR <> Nothing
  21.                 'escribe la linea en el fichero
  22.                 SW.WriteLine(STR)
  23.                 'siguiente linea
  24.                 STR = Console.ReadLine
  25.             End While
  26.  
  27.         Catch ex As IOException
  28.             Console.WriteLine("Error : " & ex.Message)
  29.             'Finally  <== suprimida
  30.             '   If (Not SW Is Nothing) Then SW.Close()  <== y esta tambien la quite
  31.         End Try
  32.  
  33.     End Sub
  34.  
  35. End Module
  36.  
  37.  

quite dos lineas que sirven para cerrar el flujo de la clase streamwriter, se supone que el VB debe cerrar este flujo en caso de que yo no lo haga, pero tal parece que no y como resultado, las lineas de texto no se escriben.

¿Hay alguna explicación del porque sucede esto?

saludos.

6
Windows / NO aparece mi Lector de DVD en mi pc
« en: Domingo 16 de Mayo de 2010, 19:53 »


Que debo revisar en mi XP SP3 para que aparezca mi lector de DVD en mi PC?
Vean la magen y noten que no esta mi DVD ... (se que es algo sencillo pero no recuerdo como hacerlo)

7
VB .NET / Como instalar VS2005 en windows 7?
« en: Lunes 15 de Marzo de 2010, 21:29 »
Hola a todos...

Alguien ha instalado Visual Studio 2005 en Windows 7?....

Como se hace?

8
Dudas informáticas / Disco duro virtual: una opcion para compartir archivos
« en: Lunes 22 de Febrero de 2010, 16:27 »
Hola a toda la comunidad solocodigo...
Amigos, esta pagina me ha parecido buena para subir archivos a la red y guardarlos de modo seguro, tambien tiene la opcion de compartir archivos:

http://www.humyo.com
http://www.zyncro.com/


Solo tienen que registarse y listo.... agreguen a sus amigos para poder transferir archivos de toda clase de una forma segura.
Saludos.

9
La taberna del BIT / Que piensas del presidente CHAVEZ ahora?
« en: Viernes 19 de Febrero de 2010, 00:09 »
Saludos....

Ya hemos visto quien es el presidente Chavez, incluyendo cubanos en cargos importantes en Venezuela... Chavez manifiesta que quiere seguir 11 años mas... Chavez gasta mucho dinero en armas y los venezolanos racionan luz.... hay muchas cosas...

que piensas de Chavez?

saludos...

10
VBA / Dibujar linea en USer Form
« en: Jueves 18 de Febrero de 2010, 22:28 »
Hola a todos...

Alguien sabe como hacer para dibujar una linea (line) por medio del metodo line en un userform de VBA desde Excel?

saludos...

11
La taberna del BIT / Hotmail VS Gmail: Cual es el mejor?
« en: Lunes 15 de Febrero de 2010, 18:15 »
Hola a toda la comunidad de Solocodigo... algunos me conocen , y a los que no, espero que me conozcan ...

Me gustaria saber cuales son los argumentos que se tienen para saber cual correo es el mejor, no basta con decir "gmil" o "hotmail", lo que quiero leer son los argumentos, el porque de las cosas...

Saludos...

12
VB .NET / Problema en la instalacion de VS2005
« en: Viernes 16 de Octubre de 2009, 17:07 »
Hola a toda la comunidad de solocodigo...
El problema es el siguiete:
Al momento de instalar Visual Studio 2005, me sale que el componente de SQL server x86 no lo puedo instalar, mi pregunta es si es un error de mi windows XP o es el CD de instlacion de VS2005 que esta rayado ....

Resultado final de dicha instalacion:
Visual Studio parece iniciar correctamente, abre las soluciones de los proyectos correctamente pero al momento de iniciar depuracion me sale un error, por ejemplo, si mi aplicacion se llama Aplicacion, el error que se muestra es: Error Aplicacion.exe, y cuando le doy la opcion "Generar" del menu "Generar" me sale un error en la ventanita de la lista de errores, que dice "Error en el manifiesto, no se puede generar"....

¿Alguna sugerencia para corregir este error?

13
Software / Conocen algun Antivirus de descarga Libre (Gratis)
« en: Miércoles 7 de Octubre de 2009, 00:10 »
Conocen algun Antivirus de descarga Libre (Gratis)?.  :(

14
Visual Basic para principiantes / problema con numero y #: numero#
« en: Viernes 2 de Octubre de 2009, 00:29 »
Hola a todos los de visual basic, ya creo que me conocen  :lol:

En esta ocasion tengo un problema, se que debe ser facil pero aqui se los coloco:

Tengo un proceso que no hice yo, es el siguiente:
Código: Visual Basic
  1. For i = 1250 To 3540
  2.                Y1 = Int(150# * Cos(amplitud) * Sin((i - 1250#) * 8# * PI / 2290#) + 2650# + j)
  3.                 Y2 = Int(520 / 600 * (i - 1250) + 3280)
  4.                 Y3 = Int(-520 / 600 * (i - 3540) + 3280)
  5.                 If Y1 > Y2 Then
  6.                     Y1 = Y2
  7.                 ElseIf Y1 > Y3 Then
  8.                     Y1 = Y3
  9.                 ElseIf Y1 > 3750 Then
  10.                     Y1 = 3750
  11.                 End If
  12.                 PSet (i, Y1), RGB(red2, Green2, blue2)
  13.         Next
  14.  

y lo quiero aislar a un SUb y lo coloco de la siguiente manera:

Código: Visual Basic
  1. Private Sub Water_Waves(Min As Integer, Max As Integer, Nro_Seccion As Integer)
  2.     Dim i As Integer
  3.         'water waves
  4.         For i = Min To Max
  5.                 Y1 = Int(150# * Cos(amplitud) * Sin((i -Min#) * 8# * PI / 2290#) + 2650# + j)
  6.                 Y2 = Int(520 / 600 * (i - Min) + 3280)
  7.                 Y3 = Int(-520 / 600 * (i - Max) + 3280)
  8.                 If Y1 > Y2 Then
  9.                     Y1 = Y2
  10.                 ElseIf Y1 > Y3 Then
  11.                     Y1 = Y3
  12.                 ElseIf Y1 > 3750 Then
  13.                     Y1 = 3750
  14.                 End If
  15.                 PSet (i, Y1), RGB(Vector_Seccion(Nro_Seccion).Red, Vector_Seccion(Nro_Seccion).Green, Vector_Seccion(Nro_Seccion).Blue)
  16.         Next
  17.  
  18.  
  19.  
  20. End Sub
  21.  

El error me dice que esta en el Min# de la linea 5...
La pregunta es:
¿Como debe colocarse para que el codigo sea correcto?
saludos y gracias a todos...

15
Visual Basic para principiantes / Error 13: Porque se origina?. Causas.
« en: Lunes 14 de Septiembre de 2009, 18:54 »
Porque se origina este error... En mi codigo no veo ningun error y los OCX que utilizo parecen estar bien...
Me gustaria estudiar este error... Alguien me ayuda.


Saludos.

16
Visual Basic para principiantes / Algo sencillo: Error de Line en un Sub
« en: Miércoles 12 de Agosto de 2009, 21:19 »
Hace mucho que no trabajo con lineas en VB6.0, he hecho un procedimiento en el mismo formulario donde lo voy a usar, el code es el siguiente:

Código: Visual Basic
  1. Private Sub Etapas(PictureKe As PictureBox)
  2.  
  3. 'Organizando pictureke
  4. With PictureKe
  5.     .AutoRedraw = True
  6.     .BackColor = vbBlack
  7.     .Top = 0
  8.     .Left = 0
  9.     .Width = Me.Width
  10.     .Height = Me.Height
  11.     .ScaleMode = 6
  12.  
  13. End With
  14.  
  15. 'dibujando lineas
  16. With PictureKe
  17.     PictureKe.Line (0, 0)-(10, 10), vbWhite
  18. End With
  19.  
  20.  
  21. End Sub
  22.  

¿Donde esta el error?...
saludos y gracias por contestar.

17
Dudas informáticas / Corel Draw o PhotoShop?
« en: Viernes 31 de Julio de 2009, 18:04 »
Hola a todos, quiero empezar a crear firmas... pero cual me recomiendan que aprenda...
Corel Draw o PhotoShop?

saludos.

18
La taberna del BIT / Juego de estrategia On line (Servidor de Colombia)
« en: Viernes 3 de Julio de 2009, 20:44 »
Si quieres desconectarte por un momento del trabajo, mira este juego, lo recomiendo:
http://co.kingsage.com/?kid=1-02033-02033-0906-10320144

Este juego empezo el 10 de Junio del 2009, aun muchos son principiantes.
Esta plataforma es la de Colombia.

Espero que te guste, saludos.

19
Visual Basic para principiantes / Fallo en cerrar documento de Word desde VB6
« en: Jueves 2 de Julio de 2009, 23:10 »
Hola a toda la comunidad de solocodigo...
Mi problema es el siguiente:

Estoy intentado copiar el contenido de unos archivos de texto (.txt) en unos documentos de word, los documentos son creados con el mismo nombre que los archivos de texto (solo cambian la extension a .doc)... Por ejemplo...
Si el archivo se llama Archivo.txt, se debe crear un documento de word con el mismo nombre pero de extensión .doc, es decir, debe crearse Archivo.doc con el contenido de Archivo.txt.

Para esto he creado una funcion y un subproceso (en un modulo), aqui se los coloco:

Esto es para leer el contenido de los archivos de texto:
Código: Visual Basic
  1. Public Function LeerTexto(ArchivoTXT As String) As String
  2.             If ArchivoTXT = "" Then Exit Function
  3.     Dim NroLibre As Integer
  4.     Dim Ruta As String
  5.     Dim Linea As String
  6.     Dim Texto As String
  7.     Ruta = App.Path & "" & ArchivoTXT
  8.     NroLibre = FreeFile
  9.    
  10.  
  11.     Open Ruta For Input As #NroLibre
  12.         While Not EOF(1)
  13.             Line Input #NroLibre, Linea
  14.             Texto = Texto & Linea & vbCrLf
  15.         Wend
  16.     Close #NroLibre
  17.  
  18. LeerTexto = Texto
  19.  
  20. End Function
  21.  

Esto es para crear el documento de word:
Código: Visual Basic
  1. Sub AgregarWord(Texto_A_Escribir As String, Nombre_ArchivoTXT As String)
  2.     If Nombre_ArchivoTXT = "" Then Exit Sub
  3.  
  4. Dim Texto As String
  5. Dim Nombre_Archivo As String 'este es el nombre del archivo sin la extensión.
  6. Texto = Texto_A_Escribir
  7.  
  8.     Dim Word As New Word.Application
  9.  
  10.     'AGREGA  DOCUMENTO
  11.     Word.Documents.Add
  12.    
  13.    
  14.         'AGREGA TEXTO
  15.         Word.Selection.Font.Color = wdColorBlack
  16.         Word.Selection.Font.Name = "Courier new"
  17.         Word.Selection.TypeText Texto
  18.         'AGREGA PARRAFO
  19.         Word.Selection.TypeParagraph
  20.  
  21.    
  22.     'SELECCIONA TEXTO
  23.     Word.Selection.WholeStory
  24.     Word.Selection.Font.Size = 10
  25.    
  26.      Nombre_Archivo = Left(Nombre_ArchivoTXT, Len(Nombre_ArchivoTXT) - 4)
  27.      
  28.      ActiveDocument.SaveAs FileName:=App.Path & "" & Nombre_Archivo & ".doc"
  29.    
  30.    
  31.     Set Word = Nothing
  32. End Sub
  33.  

Y en un boton command1 del formulario coloco lo siguiente:

Código: Visual Basic
  1. Private Sub Command1_Click()
  2. Dim Archivo As String
  3. Dim Texto As String
  4.  
  5.  
  6.  
  7. Archivo = Dir(App.Path & "*.txt")
  8.  
  9. While Archivo <> ""
  10.     Texto = LeerTexto(Archivo)
  11.     Call AgregarWord(Texto, Archivo)
  12.     Archivo = Dir
  13. Wend
  14.  
  15. MsgBox ("Finalizado")
  16.  
  17.  
  18. End Sub
  19.  
  20.  

El problema es que los archivos de Word creados no cierran del todo... me doy cuenta cuando abro el administrador ( CTRL + Alt + Sup) y encuentro en la lista la aplicacion de word (y esta abierta!!!)...
Miren la siguiente imagen y dense cuenta de los WINWORD que aun estan abiertos (en este ejemplo, solo cree tres documentos de word, por lo que solo aparecen 3 Winword en la imagen)


¿Como hago para que despues de ejecutar mi code esta aplicacion no este abierta?, que le falta a mi codigo?...
Saludos.

20
VBA / Como crear un documento de Word desde VBA EXCEL?
« en: Jueves 2 de Julio de 2009, 17:12 »
Hola a toda la comunidad de solocodigo...

Mi pregunta es la siguiente:
Como puedo crear un documento de Microsoft Word desde VBA EXCEL?, es decir, con un boton en Excel deseo hacer un docuemnto de word.

Saludos.

21
La taberna del BIT / Que le paso a Michael Jackson?
« en: Jueves 25 de Junio de 2009, 23:59 »
http://www.elespectador.com/noticias/el ... o-cardiaco
Un  paro cardiaco?
Alguien tiene mas informacion?

22
La taberna del BIT / Alguien sabe los precios de portatiles en Venezuela?
« en: Martes 16 de Junio de 2009, 19:30 »
Hola a todos, alguien que sea de venezuela y que se sepa algun listado de precio de los Comp. portatiles (en Venezuela)
Saludos.

23
Dudas informáticas / Subir archivos a megaupload como si fueras premium
« en: Viernes 5 de Junio de 2009, 21:41 »
Sube como si fueras premium en Megaupload no caducan los enlaces que subas:

Este es el link:
Código:
http://www.megaupload.com/filebox/?t=2& ... a0957cbd57


Y si lo quieres poner en tu web este es el codigo:


Código:
<embed src="http://www.megaupload.com/filebox/?t=2&c=0&u=120599181.a0957cbd57" type="application/x-shockwave-flash" width="350" height="90" wmode="transparent"></embed>


--------------------
Extraido de :
http://www.megaviload.com/index.php?opt ... 78&id=3850

Saludos.

24
Visual Basic 6.0 e inferiores / Error 6: Run Time:Over flow. Alguien se ha tenido con error?
« en: Jueves 4 de Junio de 2009, 21:41 »
Hola a todos...
he creado una aplicacion, en mi PC funciona bien...
pero al correrla en otro pc me ocsiona un errror...

Voy a explicar como es el error.

Mi aplicacion abre bien, se introducen los datos bien... pero al momento de calcular me sale una imagen como la que adjunto.

Estoy seguro de registrar mis ocx de manera correcta...
Los registro por medio del Inno setup:
Código: Pascal
  1. Source: "D:N I L S O NTODOS LOS ACTIVEXWinXPC Engine.ocx"; DestDir: "{app}"; Flags: ignoreversion
  2. Source: "D:N I L S O NTODOS LOS ACTIVEXocx usador por MCACMCT3ES.DLL"; DestDir: "{app}"; Flags: ignoreversion
  3. Source: "D:N I L S O NTODOS LOS ACTIVEXocx usador por MCACOMCAT.DLL"; DestDir: "{app}"; Flags: ignoreversion
  4. Source: "D:N I L S O NTODOS LOS ACTIVEXocx usador por MCACOMCT332.OCX"; DestDir: "{app}"; Flags: ignoreversion
  5. Source: "D:N I L S O NTODOS LOS ACTIVEXocx usador por MCACOMDLG32.OCX"; DestDir: "{app}"; Flags: ignoreversion
  6. Source: "D:N I L S O NTODOS LOS ACTIVEXocx usador por MCAMSCOMCTL.OCX"; DestDir: "{app}"; Flags: ignoreversion
  7. Source: "D:N I L S O NTODOS LOS ACTIVEXocx usador por MCAmsvbvm60.dll"; DestDir: "{app}"; Flags: ignoreversion
  8. Source: "D:N I L S O NTODOS LOS ACTIVEXocx usador por MCAoleaut32.dll"; DestDir: "{app}"; Flags: ignoreversion
  9. Source: "D:N I L S O NTODOS LOS ACTIVEXocx usador por MCAolepro32.dll"; DestDir: "{app}"; Flags: ignoreversion
  10.  
  11.  


El problema cual podria ser???

25
La taberna del BIT / Alguien me podria contar como empezo SoloCodigo?
« en: Jueves 4 de Junio de 2009, 15:47 »
Hola a toda la comunidad, creo que esta pregunta esta dirigida principalmente al administrador y a los moderadores mas antiguos, pero tambien es posible que existan usuarios muy antiguos asi que tambien me gustaria que todos los foristas participasen...


Me gustaria saber la historia de los inicios de este foro: SOLOCODIGO, como empezó, en que año, sus fundadores, que motivo a crear este foro, etc...


P.D.
Espero que no me respondan en un solo parrafo, me gustaria leer bastante, sean detallistas...

Nota:
Si esto ya se publico y no lo he visto, pido disculpas y antes de cerrar este post (si es que lo cierran) me dan el enlace para leer la historia.

Saludos a toda la comunidad en general

Páginas: [1] 2 3 4