17/12/2010, 17:50
|
 | | | Fecha de Ingreso: septiembre-2008
Mensajes: 357
Antigüedad: 16 años, 5 meses Puntos: 1 | |
| Respuesta: Cargar un Combobox
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 |