<?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; TextBox</title>
	<atom:link href="http://www.vbfaq.ru/category/textbox/feed/" rel="self" type="application/rss+xml" />
	<link>http://www.vbfaq.ru</link>
	<description>База готовых кодов на Visual Basic - бесплатно, бери и используй. Научимся программировать для себя, ведь писать программы - это просто интересно. Авторы: BiT, МП41А, Chan и Desant</description>
	<lastBuildDate>Wed, 21 Sep 2011 12:01:28 +0000</lastBuildDate>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<generator>http://wordpress.org/?v=3.3</generator>
		<item>
		<title>Замена фрагмента текстового поля</title>
		<link>http://www.vbfaq.ru/2009/12/zamena-fragmenta-tekstovogo-polya/</link>
		<comments>http://www.vbfaq.ru/2009/12/zamena-fragmenta-tekstovogo-polya/#comments</comments>
		<pubDate>Tue, 15 Dec 2009 04:00:57 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[TextBox]]></category>
		<category><![CDATA[замена]]></category>
		<category><![CDATA[текстовое поле]]></category>
		<category><![CDATA[фрагмент]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=372</guid>
		<description><![CDATA[Замена фрагмента текстового поля в text1 &#8212; фраза с ошибкой в text2 &#8212; слово с ошибкой в text3 &#8212; правильное слово в text4 &#8212; выводится результат Text4.Text = "" For i = 1 To Len(Text1.Text) If Mid(Text1.Text, i, Len(Text2.Text)) = Text2.Text Then Text4.Text = Text4.Text + Text3.Text i = i + Len(Text2.Text) - 1 GoTo [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/12/zamena-fragmenta-tekstovogo-polya/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Загрузка текста из файла в TextBox</title>
		<link>http://www.vbfaq.ru/2009/04/zagruzka-teksta-iz-fajla-v-textbox/</link>
		<comments>http://www.vbfaq.ru/2009/04/zagruzka-teksta-iz-fajla-v-textbox/#comments</comments>
		<pubDate>Fri, 17 Apr 2009 08:04:04 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[TextBox]]></category>
		<category><![CDATA[загрузка]]></category>
		<category><![CDATA[текст]]></category>
		<category><![CDATA[файл]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=205</guid>
		<description><![CDATA[Загрузка текста из файла в TextBox Private Sub Form_Load() Dim Fn As Long Fn = FreeFile Open "имя файла" For Input As Fn Text1.Text = Input(LOF(Fn), Fn) Close Fn End Sub]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/04/zagruzka-teksta-iz-fajla-v-textbox/feed/</wfw:commentRss>
		<slash:comments>1</slash:comments>
		</item>
		<item>
		<title>Ввод только строчных или заглавных букв в TextBox</title>
		<link>http://www.vbfaq.ru/2009/04/vvod-tolko-strochnyx-ili-zaglavnyx-bukv-v-textbox/</link>
		<comments>http://www.vbfaq.ru/2009/04/vvod-tolko-strochnyx-ili-zaglavnyx-bukv-v-textbox/#comments</comments>
		<pubDate>Fri, 17 Apr 2009 08:00:39 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[TextBox]]></category>
		<category><![CDATA[буквы]]></category>
		<category><![CDATA[ввод]]></category>
		<category><![CDATA[заглавные]]></category>
		<category><![CDATA[строчные]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=204</guid>
		<description><![CDATA[Ввод только строчных или заглавных букв в TextBox. Делаем так, чтобы в текстовое поле можно было вводить только строчные или заглавные буквы. Вариант с использованием API-функций. Option Explicit Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/04/vvod-tolko-strochnyx-ili-zaglavnyx-bukv-v-textbox/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>При щелчке в TextBox’е, текст автоматом выделяется</title>
		<link>http://www.vbfaq.ru/2009/01/pri-shhelchke-v-textbox%e2%80%99e-tekst-avtomatom-vydelyaetsya/</link>
		<comments>http://www.vbfaq.ru/2009/01/pri-shhelchke-v-textbox%e2%80%99e-tekst-avtomatom-vydelyaetsya/#comments</comments>
		<pubDate>Thu, 22 Jan 2009 04:00:19 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[TextBox]]></category>
		<category><![CDATA[выделение]]></category>
		<category><![CDATA[текст]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=158</guid>
		<description><![CDATA[При щелчке в TextBox’е, текст автоматом выделяется. Option Explicit Private Sub Text1_GotFocus() 'При получении текстовым полем фокуса 'Щелчком мыши или Tab, весь текст выделиться 'Удобно использовать, если данные нужно убрать из поля Text1.SelStart = 0&#038; Text1.SelLength = Len(Text1.Text) End Sub]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/01/pri-shhelchke-v-textbox%e2%80%99e-tekst-avtomatom-vydelyaetsya/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Перевод текста ANSI – OEM</title>
		<link>http://www.vbfaq.ru/2009/01/perevod-teksta-ansi-oem/</link>
		<comments>http://www.vbfaq.ru/2009/01/perevod-teksta-ansi-oem/#comments</comments>
		<pubDate>Wed, 21 Jan 2009 04:00:28 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[TextBox]]></category>
		<category><![CDATA[перевод]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=157</guid>
		<description><![CDATA[Перевод текста ANSI – OEM Option Explicit Private Declare Function CharToOem Lib "user32" Alias "CharToOemA" _ (ByVal lpszSrc As String, ByVal lpszDst As String) As Long Function ANSI2OEM(ByVal sAnsi As String) As String Dim sOem As String sOem = String(Len(sAnsi), Chr(0)) CharToOem sAnsi, sOem ANSI2OEM = sOem End Function Private Sub Form_Load() Text1.Text = ANSI2OEM(Text2.Text) [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/01/perevod-teksta-ansi-oem/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как сделать Undo или Отменить в TextBox?</title>
		<link>http://www.vbfaq.ru/2009/01/kak-sdelat-undo-ili-otmenit-v-textbox/</link>
		<comments>http://www.vbfaq.ru/2009/01/kak-sdelat-undo-ili-otmenit-v-textbox/#comments</comments>
		<pubDate>Tue, 20 Jan 2009 04:00:36 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[TextBox]]></category>
		<category><![CDATA[отменить]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=156</guid>
		<description><![CDATA[Как сделать Undo или Отменить в TextBox? 'Свойство TextBox Multiline установите в True Option Explicit Private Declare Function SendMessage Lib _ "user32" Alias "SendMessageA" _ (ByVal hWnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long Const EM_UNDO = &#038;HC7 Private Sub Command1_Click() SendMessage Text1.hWnd, EM_UNDO, [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/01/kak-sdelat-undo-ili-otmenit-v-textbox/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как разрешить ввод только латинских строчных букв?</title>
		<link>http://www.vbfaq.ru/2009/01/kak-razreshit-vvod-tolko-latinskix-strochnyx-bukv/</link>
		<comments>http://www.vbfaq.ru/2009/01/kak-razreshit-vvod-tolko-latinskix-strochnyx-bukv/#comments</comments>
		<pubDate>Mon, 19 Jan 2009 04:00:19 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[TextBox]]></category>
		<category><![CDATA[буквы]]></category>
		<category><![CDATA[ввод]]></category>
		<category><![CDATA[разрешить]]></category>
		<category><![CDATA[строчные]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=155</guid>
		<description><![CDATA[Как разрешить ввод только латинских строчных букв? Для этого будем коды из ASCII таблицы Латинские строчные начинаются с 97 и заканчиваются 122 Остальные нажатия клавиш будет игнорировать. С этим примером можно долго экспериментировать и получать различные интересные результаты. Option Explicit Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii > 122 Or KeyAscii < 97 Then KeyAscii [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/01/kak-razreshit-vvod-tolko-latinskix-strochnyx-bukv/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как посчитать количество строк в текстовом поле?</title>
		<link>http://www.vbfaq.ru/2009/01/kak-poschitat-kolichestvo-strok-v-tekstovom-pole-2/</link>
		<comments>http://www.vbfaq.ru/2009/01/kak-poschitat-kolichestvo-strok-v-tekstovom-pole-2/#comments</comments>
		<pubDate>Sun, 18 Jan 2009 04:00:47 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[TextBox]]></category>
		<category><![CDATA[количество]]></category>
		<category><![CDATA[посчитать]]></category>
		<category><![CDATA[строк]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=154</guid>
		<description><![CDATA[Как посчитать количество строк в текстовом поле? 'Свойство TextBox Multiline установите в True Option Explicit Dim str As String Public Sub GetLine() str = Text1.Text Label1.Caption = "Число строк в текстовом поле: " &#038; _ UBound(Split(str, vbCrLf)) + 1 End Sub Private Sub Form_Load() GetLine End Sub Private Sub Text1_Change() GetLine End Sub]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/01/kak-poschitat-kolichestvo-strok-v-tekstovom-pole-2/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как посчитать количество строк в текстовом поле?</title>
		<link>http://www.vbfaq.ru/2009/01/kak-poschitat-kolichestvo-strok-v-tekstovom-pole/</link>
		<comments>http://www.vbfaq.ru/2009/01/kak-poschitat-kolichestvo-strok-v-tekstovom-pole/#comments</comments>
		<pubDate>Sat, 17 Jan 2009 04:00:37 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[TextBox]]></category>
		<category><![CDATA[количество]]></category>
		<category><![CDATA[посчитать]]></category>
		<category><![CDATA[строк]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=153</guid>
		<description><![CDATA[Как посчитать количество строк в текстовом поле? 'Свойство TextBox Multiline установите в True Option Explicit Private Declare Function SendMessage Lib "user32" _ Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, lParam As Any) As Long Private Const EM_GETLINECOUNT = &#038;HBA Public Sub GetLine() Label1 = "Число строк в [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/01/kak-poschitat-kolichestvo-strok-v-tekstovom-pole/feed/</wfw:commentRss>
		<slash:comments>1</slash:comments>
		</item>
		<item>
		<title>Как добавить на форму TextBox?</title>
		<link>http://www.vbfaq.ru/2009/01/kak-dobavit-na-formu-textbox/</link>
		<comments>http://www.vbfaq.ru/2009/01/kak-dobavit-na-formu-textbox/#comments</comments>
		<pubDate>Fri, 16 Jan 2009 04:00:13 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[TextBox]]></category>
		<category><![CDATA[добавить]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=152</guid>
		<description><![CDATA[Как добавить на форму TextBox? Во время выполнения программы. Option Explicit Private Sub Command1_Click() Dim Text1 As Object Set Text1 = Me.Controls.Add("Forms.TextBox.1", "Text1") Text1.Visible = True Text1.Top = 1000 Text1.Left = 1000 End Sub]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/01/kak-dobavit-na-formu-textbox/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>

