<?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>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>Замена фрагмента текстового поля</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 &#8211; фраза с ошибкой
в text2 &#8211; слово с ошибкой
в text3 &#8211; правильное слово
в text4 &#8211; выводится результат


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 = [...]]]></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 hwnd As Long, 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)
End Sub

]]></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, _
     [...]]]></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 = 0
End Sub


]]></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 [...]]]></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 = "Число строк в текстовом поле: " &#038; _
    [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/01/kak-poschitat-kolichestvo-strok-v-tekstovom-pole/feed/</wfw:commentRss>
		<slash:comments>0</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>
