<?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; ListBox</title>
	<atom:link href="http://www.vbfaq.ru/category/listbox/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>Как осуществить прокрутку элемента управления ListView до заданного элемента</title>
		<link>http://www.vbfaq.ru/2011/01/kak-osushhestvit-prokrutku-elementa/</link>
		<comments>http://www.vbfaq.ru/2011/01/kak-osushhestvit-prokrutku-elementa/#comments</comments>
		<pubDate>Sat, 15 Jan 2011 07:28:55 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[ListBox]]></category>
		<category><![CDATA[прокрутка]]></category>
		<category><![CDATA[управление]]></category>
		<category><![CDATA[элемент]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=425</guid>
		<description><![CDATA[Как осуществить прокрутку элемента управления ListView до заданного элемента Private Sub Form_Load() Dim x As Integer With ListView1 For x = 1 To 20 .ListItems.Add Key:="Элемент" &#038; x, Text:="Элемент" &#038; x Next x .SelectedItem = .ListItems("Элемент11") .SelectedItem.EnsureVisible End With End Sub Запустите проект на выполнение. VB откроет форму, выведет окно списка и выделит в нем [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2011/01/kak-osushhestvit-prokrutku-elementa/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как загрузить текст из файла в ListBox?</title>
		<link>http://www.vbfaq.ru/2008/12/kak-zagruzit-tekst-iz-fajla-v-listbox/</link>
		<comments>http://www.vbfaq.ru/2008/12/kak-zagruzit-tekst-iz-fajla-v-listbox/#comments</comments>
		<pubDate>Fri, 12 Dec 2008 13:00:17 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[ListBox]]></category>
		<category><![CDATA[Файл]]></category>
		<category><![CDATA[загрузка]]></category>
		<category><![CDATA[текст]]></category>
		<category><![CDATA[файл]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=111</guid>
		<description><![CDATA[Как загрузить текст из файла в ListBox? Option Explicit Private Sub Form_Load() Dim strText As String Dim FileNum As Integer Dim FName As String FileNum = FreeFile Open App.Path &#038; "\Text.txt" For Input As #FileNum Do While Not EOF(FileNum) Line Input #FileNum, strText List1.AddItem strText Loop Close #FileNum End Sub]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2008/12/kak-zagruzit-tekst-iz-fajla-v-listbox/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как сохранить текст из ListBox в файл?</title>
		<link>http://www.vbfaq.ru/2008/12/kak-soxranit-tekst-iz-listbox-v-fajl/</link>
		<comments>http://www.vbfaq.ru/2008/12/kak-soxranit-tekst-iz-listbox-v-fajl/#comments</comments>
		<pubDate>Fri, 12 Dec 2008 04:00:02 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[ListBox]]></category>
		<category><![CDATA[сохранить]]></category>
		<category><![CDATA[текст]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=110</guid>
		<description><![CDATA[Как сохранить текст из ListBox в файл? Option Explicit Dim Text As String Dim i As Byte Dim FileNum As Integer Dim FName As String Private Sub Form_Load() Dim bytC As Byte For bytC = 1 To 10 List1.AddItem Format$(bytC, "00") Next For i = 0 To List1.ListCount - 1 Text = Text &#038; List1.List(i) [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2008/12/kak-soxranit-tekst-iz-listbox-v-fajl/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как реализовать поиск заданного слова в ListBox?</title>
		<link>http://www.vbfaq.ru/2008/12/kak-realizovat-poisk-zadannogo-slova-v-listbox/</link>
		<comments>http://www.vbfaq.ru/2008/12/kak-realizovat-poisk-zadannogo-slova-v-listbox/#comments</comments>
		<pubDate>Thu, 11 Dec 2008 17:36:40 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[ListBox]]></category>
		<category><![CDATA[поиск]]></category>
		<category><![CDATA[слово]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=108</guid>
		<description><![CDATA[Как реализовать поиск заданного слова в ListBox? Option Explicit 'Свойство Sorted у ListBox в ручную ставим в True Private Sub Form_Load() With List1 .AddItem "Один" .AddItem "Два" .AddItem "Три" .AddItem "Четыре" .AddItem "Пять" End With End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Select Case KeyAscii Dim i As Long, ii As Long Case Asc(vbCr) With [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2008/12/kak-realizovat-poisk-zadannogo-slova-v-listbox/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как сделать, чтобы при добавлении новой строки в ListBox она была видна?</title>
		<link>http://www.vbfaq.ru/2008/12/kak-sdelat-chtoby-pri-dobavlenii-novoj-stroki-v-listbox-ona-byla-vidna/</link>
		<comments>http://www.vbfaq.ru/2008/12/kak-sdelat-chtoby-pri-dobavlenii-novoj-stroki-v-listbox-ona-byla-vidna/#comments</comments>
		<pubDate>Wed, 03 Dec 2008 04:00:50 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[ListBox]]></category>
		<category><![CDATA[Добавление]]></category>
		<category><![CDATA[строка]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=109</guid>
		<description><![CDATA[Как сделать, чтобы при добавлении новой строки в ListBox она была видна? Если в ListBox добавлять новую строчку, видимыми остаются верхние. Сделаем, чтобы всегда было видно последние введенные строки. Option Explicit 'В ListBox добавляются новые строки Private Sub Command1_Click() List1.AddItem Text1.Text List1.ListIndex = List1.ListCount - 1 End Sub Private Sub Form_Load() Dim i As Byte [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2008/12/kak-sdelat-chtoby-pri-dobavlenii-novoj-stroki-v-listbox-ona-byla-vidna/feed/</wfw:commentRss>
		<slash:comments>1</slash:comments>
		</item>
	</channel>
</rss>

