Ver Mensaje Individual
  #9 (permalink)  
Antiguo 30/04/2006, 22:25
Avatar de Modern_Crusades
Modern_Crusades
 
Fecha de Ingreso: junio-2005
Mensajes: 620
Antigüedad: 19 años, 10 meses
Puntos: 1
respuesta para el error
On error Resume next

'aqui el codigo

if Err.number=0 then

'codigo si lo anterior fue exitoso
else
'codigo si no lo fue si pones nada ignoras los errores es casi ocmo un throws exception
end if
para encontrar todas las palabras deberas hacer un :
count len(richtextbox.text)
start=0
for i=0 to count
on error resume next
start=richtextbox.find(texto,start,count)
if err.number =0 then
richtextbox.selstart=start
richtextbox.sellength=len(texto)
'le haces a al seleccion pintarse de blanco
Me.RichTextBox1.SelColor = &HFFFFFF
else
end if
next
en cuanto a lo de las columnas es matematicas
ya sabes cuantas letras acepta maximo de ancho porlo tanto al pedir el sel start ya sabes que cada x numero de caracteres debe de haber un nuevo renglon ademas de considrar los enters etc ya si quieres mas especifico de una vez dime que es lo que estas haciendo en si y sobre eso haga ejemplos sobretodo por que si ya metiste una tabla com ode exel o cosas as itendras que jugar con el richtextbox.texrtf que ya no es ta ntrivial y si tiene codigo medio complejo

Última edición por Modern_Crusades; 01/05/2006 a las 02:45