gracias , @Elektro si me funciono .  de verdad me quedo impresionado de tanto conocimiento que posees sobre programacion .    . debes haber estudiado durante un buen tiempo.  Gracias , de verdad muchísimas gracias. 

PD : yo había intentado algo parecido pero no me funciono .

TextBox2.Text = RichTextBox1.Text

    Gracias de nuevo 

hola. soy yo de nuevo , jeje .     . buen me he encontrado con un problema.

bueno como dice el titulo , quiero copiar un texto de un Richtextbox y pegarlo a un textbox , bueno hasta hay es facil , pero cunado se copia al textbox no se conservan los saltos de linea . ya he intentado con vbnewline pero la verdad no se como hacerlo.

bueno tengo este codigo para copiar:

Clipboard.SetText(RichTextBox1.Text) 

y este para pegar :

If Clipboard.GetDataObject().GetDataPresent(DataFormats.Text) = True Then
            If TextBox1.SelectionLength > 0 Then
                If MessageBox.Show("Do you want to paste over current selection?", _
                    "Cut Example", MessageBoxButtons.YesNo) = DialogResult.No Then
                    TextBox2.SelectionStart = TextBox2.SelectionStart + _
                        TextBox2.SelectionLength
                End If
            End If
            TextBox2.Paste()
        End If

el problema es que cuando pego el texto al Textbox no se conservan los saltos de linea y se pone todas la palabras pegadas . nesesito ayuda con ese problemilla .  

Gracias de antemano.  

Yo también soy venezolano sin Cantv y incluso ahora estoy es con el wifi del vecino que hackee con kalilinux .  

incluso mi internet es de 150 kb/s osea lento . pero no veo vídeos de youtube en tan vaja resolución .

por lo que tengo entendido en china la velocidad es de 1 mb/s . esto me hace pensar en :

P*TO MADURO .  

para mi las cosas que no deberian existir en la Internet Son:

*Pop ups o mejor conocidos como ( ventana emergente) a mi parecer son super fastidiosos . por lo tanto deberian desaparecer.

*Spoilers. mayormente sucede en las redes sociales .

el 240p de Youtube . Apuesto a que la mayoria no usa esa resolucion.  

los  Captchas indecifrables. no me opongo a los Captchas pero hay algunos que son indescifrables y esos no deberían existir.

Gracias , todos los errores solucionados.

 

he hecho lo que me dices pero me salen mas errores . por eso te he mandado el proyecto por un mensaje privado. Perdoname por tantas molestias .  

bueno he colocado cada clase a mi proyectos con su mismos nombres pero ahora me dice :

Gracias por respoender Elektro .

en internet encontre este codigo que me busca y subralla la palabra que busco en un RichTextbox .

code que encontre en internet:

Dim TEMPORAL As String = RichTextBox1.Text
        RichTextBox1.Clear()
        RichTextBox1.Text = TEMPORAL
        Try
            Dim BUSQUEDA As String = InputBox("BUSCAR")
            Dim INDEX As Integer
            While INDEX < RichTextBox1.Text.LastIndexOf(BUSQUEDA)
                RichTextBox1.Find(BUSQUEDA, INDEX, RichTextBox1.TextLength, RichTextBoxFinds.None)
                RichTextBox1.SelectionBackColor = Color.DarkBlue
                INDEX = RichTextBox1.Text.IndexOf(BUSQUEDA, INDEX) + 1
            End While
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

Pero el Tu codigo esta SUPER . pero al intentar abrirlo con mi vb 2010 me salen miles de errores .


bueno pase el code importante a un boton de mi proyecto pero me sale 1 error .


aqui te dejo el code que extraje y puse en mi proyecto.

Dim rtb As RichTextBox = Me.RichTextBox1
 
        ' Reset selection.
        With rtb
            .SelectAll()
            .SelectionColor = .ForeColor
            .SelectionBackColor = .BackColor
            .SelectionFont = .Font
            .Select(0, 0)
        End With
 
        ' Perform a new selection.
        Dim find As String = Me.TextBox1.Text ' The text to find.
        Dim ignoreCase As Boolean = Me.CheckBox1.Checked
        Dim forecolor As Color = Color.LimeGreen
        Dim backcolor As Color = rtb.SelectionBackColor
        Dim font As Font = rtb.SelectionFont
 
        Dim occurrences As Integer = rtb.ColorizeMatches(find, ignoreCase, forecolor, backcolor, font)   ' HE AQUI EL ERROR ME DICE COLORIZEMATCHES NO ES UN MIENBRO DE SYSTEM.WINDOWS.FORM1.WINDOWSAPLICATION10
        Me.Label1.Text = String.Format("{0} occurrences", occurrences)

EL ERROR ME DICE COLORIZEMATCHES NO ES UN MIENBRO DE SYSTEM.WINDOWS.FORM1.WINDOWSAPLICATION10

hola a todos , bueno . la verdad no me decido a ver donde es que debería situar este tema. asi que decidí ubicarlo aquí . si algún moderador ve este tema, le pido que si me lo pude ubicar bien .

bueno como dice el titulo es una herramienta , que sirve para la programacion en batch. y posee múltiples funciones, por ejemplo de ofuscamiento.

bueno he aquí el link:

https://mega.nz/#!FlMyWCgD!iPKLcUcGJz4chIqZ6aLgXhJ4nBDonjCuwSLVuEIbP_M

y aqui dejo ejemplos:

batch sin ofuscar:

@echo off
echo/
echo hola mundo
echo/
pause

Batch ofuscado con el metodo 1:

@echo off
set mevexdh=a
set roanyli=b
set ahctspg=c
set jjmjyua=d
set vxbqovb=e
set weirsgp=f
set trzujwk=g
set ovnuyow=h
set fjspulb=i
set cmbjzab=j
set uejreve=k
set ckbbcaj=l
set xxwketq=m
set rxhwlmd=n
set dtikdmo=o
set rrzvvla=p
set xopassv=q
set nlcfapu=r
set obqqqbd=s
set vlqthhs=t
set zxreuqe=u
set sbkktkc=v
set hlmrhih=w
set bxreibp=x
set jiidagd=y
set yjdbben=z
@%vxbqovb%%ahctspg%%ovnuyow%%dtikdmo% %dtikdmo%%weirsgp%%weirsgp%
%vxbqovb%%ahctspg%%ovnuyow%%dtikdmo%/
%vxbqovb%%ahctspg%%ovnuyow%%dtikdmo% %ovnuyow%%dtikdmo%%ckbbcaj%%mevexdh% %xxwketq%%zxreuqe%%rxhwlmd%%jjmjyua%%dtikdmo%
%vxbqovb%%ahctspg%%ovnuyow%%dtikdmo%/
%rrzvvla%%mevexdh%%zxreuqe%%obqqqbd%%vxbqovb%

Batch ofuscado con metodo 2:

%leqcebs%@%khuqzog%e%ecgmmij%c%wkhlecr%h%utpvdsc%o%gyxshsj% %etzcaho%o%mnxlfnx%f%mlcjfac%f%eijievp%
%gcbgcgx%e%rdgqyif%c%fvykxhg%h%juktepm%o%qnrfiww%/%ewcquvc%
%gijhrga%e%xjyzicy%c%ibwasdl%h%thjdgge%o%pyhaqxk% %tabcqgb%h%jspqfdq%o%pudmvjw%l%afpgemy%a%qknrnii% %lbruhba%m%naiizmr%u%zaqpkmo%n%wwocode%d%vnhtnrz%o%ateiwyp%
%bnbmeli%e%klcjspr%c%nbmoxzo%h%pelwikr%o%dsvxojh%/%gcflatt%
%nseelyt%p%lrffxni%a%vkilrrh%u%dmsbwwa%s%pahinxc%e

Batch ofuscado con metodo 3:

਍汣൳䀊捥潨漠晦਍捥潨യ攊档潨慬洠湵潤਍捥潨യ瀊畡敳

BUeno ahora una imagene:


Porfavor comenten cualquier cosa.  

bueno como dice el titulo quiero buscar y resaltar una palabra de un RichTextBox1.


este método solo marca la 1era palabra encontrada. y las otras palabras que son las mismas no la subraya.

ejemplo le digo que busque todas las palabras hola , pero solo me marca la primera encontrada y las demás no mas marca.

 Dim Search, Where
 
        Search = TextBox1.Text
        Where = InStr(RichTextBox1.Text, Search)
        Dim n As Integer
        If Where Then
            Name = n + 1
            RichTextBox1.Focus()
            RichTextBox1.SelectionStart = Where - 1
            RichTextBox1.SelectionLength = Len(Search)
        Else
            MsgBox("String not found.")
        End If

Gracias de antemano.