<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	>

<channel>
	<title>Visual Basic FAQ &#187; RichTextBox</title>
	<atom:link href="http://www.vbfaq.ru/category/richtextbox/feed/" rel="self" type="application/rss+xml" />
	<link>http://www.vbfaq.ru</link>
	<description>База готовых кодов на Visual Basic - бесплатно, бери и используй. Научимся программировать для себя, ведь писать программы - это просто интересно. Авторы: BiT, МП41А, Chan и Desant</description>
	<lastBuildDate>Sun, 21 Feb 2010 10:44:07 +0000</lastBuildDate>
	<generator>http://wordpress.org/?v=2.8.6</generator>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
			<item>
		<title>Как напечатать текст из RichTextBox, с форматированием но без разметки?</title>
		<link>http://www.vbfaq.ru/2009/01/kak-napechatat-tekst-iz-richtextbox-s-formatirovaniem-no-bez-razmetki/</link>
		<comments>http://www.vbfaq.ru/2009/01/kak-napechatat-tekst-iz-richtextbox-s-formatirovaniem-no-bez-razmetki/#comments</comments>
		<pubDate>Tue, 13 Jan 2009 04:00:16 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[RichTextBox]]></category>
		<category><![CDATA[напечатать]]></category>
		<category><![CDATA[разметка]]></category>
		<category><![CDATA[текст]]></category>
		<category><![CDATA[форматирование]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=149</guid>
		<description><![CDATA[Как напечатать текст из RichTextBox, с форматированием но без разметки?


Option Explicit

Private Sub Command1_Click()
RichTextBox1.SelPrint (Printer.hDC)
End Sub

]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/01/kak-napechatat-tekst-iz-richtextbox-s-formatirovaniem-no-bez-razmetki/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как напечатать текст из RichTextBox без форматирования?</title>
		<link>http://www.vbfaq.ru/2009/01/kak-napechatat-tekst-iz-richtextbox-bez-formatirovaniya/</link>
		<comments>http://www.vbfaq.ru/2009/01/kak-napechatat-tekst-iz-richtextbox-bez-formatirovaniya/#comments</comments>
		<pubDate>Mon, 12 Jan 2009 04:00:34 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[RichTextBox]]></category>
		<category><![CDATA[напечатать]]></category>
		<category><![CDATA[текст]]></category>
		<category><![CDATA[форматирование]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=148</guid>
		<description><![CDATA[Как напечатать текст из RichTextBox без форматирования?


Option Explicit

Private Sub Command1_Click()
Printer.Print RichTextBox1.Text
Printer.EndDoc
End Sub

]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/01/kak-napechatat-tekst-iz-richtextbox-bez-formatirovaniya/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как напечатать текст из RichTextBox, с форматированием?</title>
		<link>http://www.vbfaq.ru/2009/01/kak-napechatat-tekst-iz-richtextbox-s-formatirovaniem/</link>
		<comments>http://www.vbfaq.ru/2009/01/kak-napechatat-tekst-iz-richtextbox-s-formatirovaniem/#comments</comments>
		<pubDate>Sun, 11 Jan 2009 04:00:09 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[RichTextBox]]></category>
		<category><![CDATA[напечатать]]></category>
		<category><![CDATA[текст]]></category>
		<category><![CDATA[форматирование]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=147</guid>
		<description><![CDATA[Как напечатать текст из RichTextBox, с форматированием?


Форма:
Option Explicit

Private Sub Command1_Click()
PrintRTF RichTextBox1, 1440, 1440, 1440, 1440
End Sub

Модуль:
Option Explicit
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Type CharRange
cpMin As Long
cpMax As Long
End Type
Private Type FormatRange
hDC As Long
hdcTarget As Long
rc As RECT
rcPage As RECT
chrg As CharRange
End Type
Private Const LOGPIXELSX = 88
Private Const LOGPIXELSY = [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/01/kak-napechatat-tekst-iz-richtextbox-s-formatirovaniem/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как Копировать, Вставить и Вырезать текст в RichTextBox?</title>
		<link>http://www.vbfaq.ru/2009/01/kak-kopirovat-vstavit-i-vyrezat-tekst-v-richtextbox/</link>
		<comments>http://www.vbfaq.ru/2009/01/kak-kopirovat-vstavit-i-vyrezat-tekst-v-richtextbox/#comments</comments>
		<pubDate>Sat, 10 Jan 2009 04:00:10 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[RichTextBox]]></category>
		<category><![CDATA[вставить]]></category>
		<category><![CDATA[вырезать]]></category>
		<category><![CDATA[копировать]]></category>
		<category><![CDATA[текст]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=146</guid>
		<description><![CDATA[Как Копировать, Вставить и Вырезать текст в RichTextBox?


Option Explicit

Private Sub mnuCopy_Click()
   On Error Resume Next
   Clipboard.SetText Me.RichTextBox1.SelRTF
End Sub

Private Sub mnuCut_Click()
   On Error Resume Next
   Clipboard.SetText Me.RichTextBox1.SelRTF
   Me.RichTextBox1.SelText = vbNullString
End Sub

Private Sub mnuPaste_Click()
   On Error Resume Next
   Me.RichTextBox1.SelRTF = Clipboard.GetText
End Sub

]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/01/kak-kopirovat-vstavit-i-vyrezat-tekst-v-richtextbox/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>
