Cargar un Combobox

[gasafonso]

Hola Gente, haber si alguien sabe como cargar un ComboBox con los nombres de archivos de word que se encuentran en una carpeta "ESTUDIOS"


gracias

[erbuson]

Hola, si no me equivoqué escribiendo, debería funcionar, de hecho a mi me funciona.

Código vb:

Private Sub CargarCombo()
  Dim Archivo As String
  Archivo = Dir("C:\TuCarpeta\*.doc")
  Do While Archivo <> ""
    Combo1.AddItem Archivo
    Archivo = Dir
  Loop
End Sub
 

Saludos

[lokoman]

Excelente Codigo!!

[gasafonso]

Graciasssssssssssssss Erbuson me sirvio mucho

Ahora si yo quiero cargar el archivo seleccionado en el combobox a un richtextbox como lo hago ?

ahhh y que me muestre el primero de la lista del combobox

[erbuson]

Hola, para que te visualice el primero unicamente debes aplicar a la propiedad ListIndex el valor adecuado.

Combo1.ListIndex = 0

Teniendo en cuenta que 0 es el 1er archivo y así sucesivamente, sin embargo si por casualidad no hay ficheros, te produciría un error por tanto deberías controlarlo.

En cuanto a pasar los datos a un RichTextBox, creo que este control no carga los datos de un Word porque está pensado para utilizar archivos RTF, antes de terminar de escribir lo he comprobado y efectivamente, no lee el *.doc directamente.

[gasafonso]

en realidad pase todos los archivos a *.RTF , como seria entonces

[erbuson]

Hola, tuve que salir un rato y no vi tu respuesta, la carga del archivo es muy facil ya que el RichText lo hace por ti:

RichText.LoadFile NombreArchivo, rtfText

Para guardarlo es igual de facil

RichText.SaveFile NombreArchivo, rtfText

Saludos

[gasafonso]

Pero eso en donde va? yo digo una vez que elegis el archivo en el combobox

que cargue el richtextbox


gracias

[erbuson]

Hola, en los ComboBox, normalmente los mejores resultados los he obtenido en el evento Click ya que en el Change casi nunca he conseguido lo deseado.

O sea, te escribo de memoria y tal vez me equivoque pero mas o menos así:

Private Sub Combo1_Click()
RichText.LoadFile Combo1.Text, rfText
End Sub

Saludos

[gasafonso]

Hola ERbuson, RTFtext que seria ?


Por que me da un errror


gracias

[erbuson]

Hola disculpa, pero cometí un error, el dato es

rtfRTF (Para indicarle que se carga un archivo formato RTF)

o

rtfText (Para indicarle que se carga un archivo en formato Texto)

Saludos y disculpa, es cosa de las prisas.

[gasafonso]

pero me sigue dando error

[erbuson]

Hola, péga por favor el código para poder comprobar si existe algun error sintáctico que se no este pasando ya que no deberia producirse.

Yo utilizo un RichText llamado Editor y esta es la instruccion que tengo en la carga del archivo y funcionando:

Editor.LoadFile NombreArchivo, rtfRTF

Sin embargo cuidado porque puede ser que el error se produzca porque no encuentra el archivo ya que Combo1.Text contiene SOLO el nombre de archivo y no el Path que lo contiene.

[gasafonso]

Cuando elijo el tab hago asi:

Dim Archivo As String
Archivo = Dir(App.Path + "\estudios\*.RTF")
Do While Archivo <> ""
txtEstudioSol.AddItem Archivo
Archivo = Dir
Loop

txtEstudioSol.ListIndex = 0


y luego en el evento click asi :

Private Sub txtEstudioSol_Click()
RichTextBox1.LoadFile txtEstudioSol.text, rtfRTF
End Sub

[erbuson]

Hola, entonces probablemente el error esta ahí donde yo te decía.

Archivo = Dir(App.Path + "\estudios\*.RTF")

Private Sub txtEstudioSol_Click()
RichTextBox1.LoadFile App.Path + "\estudios\" + txtEstudioSol.text, rtfRTF
End Sub

Pruebalo así, pero de todos modos es mejor que en vez de utilizar el + como concatenación de cadenas utilices el &

RichTextBox1.LoadFile App.Path & "\estudios\" & txtEstudioSol.text, rtfRTF

Simplemente porque se suele aconsejar esto a fin de evitar posibles problemas en un futuro.

[gasafonso]

Graciassssssss CApo ahi anduvo, nunca se si usar + o & je je


abrazo

FELICES FIESTASSSSSSSSSSSSSSSSSSSS

[erbuson]

Estupendo y ya te dejo que por aqui se esta haciendo la hora de ir a acostarse.

Saludos y los mismo te deseo Felices Fiestas

[jluisgayosso]

chicos que tal, disculpen tengo una duda de como cargar un codigo de barras.
Lo que quiero hacer es que cuando capture el total del codigo cambie a otra ventana
lo he estado tratando de hacer con el evento change, pero sucede que cuando recibe el primer numero se dispara este evento y no me deja capturar el total del mismo, alguien me podria ayudar.