| Pregunta: | 9793 - AñADIR TEXTO CON FORMATO EN UN RICH TEXTBOX EN EJECUCIóN |
| Autor: | Francisco Javier Gomez Merino |
| Hola a todos: Tengo un problema: voy tomando campos de un base de datos, y segun los voy recupendo los meto en un rich textbox. Algunos iran en negrita y otros no, entonces al ir añadiendo el texto (por ejemplo, mi rich textbox se llama Texto, y lo añado con Texto.Text=Texto.Text & cadena, donde cadena es lo que voy añadiendo en el rich textbox) me sale todo con los atributos que he puesto en ultimo lugar, y necesito que cada parte del texto tenga sus propios atributos. Gracias por la ayuda | |
| Respuesta: | SuNcO Castañeda |
| No mi chavo, para eso tienes ke hacer varias lineas, seria mas o menos asi Supongamos ke de la BD (base de datos) kieres leer 4 campos, nombre del libro, autor, cantidad, precio Tendrias ke hacer esto : do until data1.eof nombre = Data1.Recordset.Fields("nombre").Value autor =Data1.Recordset.Fields("autor").Value cantidad = Data1.Recordset.Fields("cantidad").Value precio = Data1.Recordset.Fields("precio").Value Rich1.Font.Bold = True rich1.text = rich1.text + nombre Rich1.Font.Bold = false Rich1.Font.italic = True rich1.text = rich1.text + autor Rich1.Font.italic = false Rich1.Font.Bold = True rich1.text = rich1.text + cantidad Rich1.Font.Bold = false Rich1.Font.underline = True rich1.text = rich1.text + precio Rich1.Font.underline = false Rich1.Font.Bold = True Rich1.Font.Italic = True Rich1.Font.Underline = True Data1.Recordset.MoveNext loop Rcuerda ke la programacion no es facil, a veces se ocupa ingeniarselas y poner varias lineas (solo acomoda el Do porke creo ke se va a salir sin leer el ultimo, algo asi como Eof + 1 ) | |