<?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; Combobox</title>
	<atom:link href="http://www.vbfaq.ru/category/combobox/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>Checkbox и Combobox в MSFlexGrid</title>
		<link>http://www.vbfaq.ru/2009/11/checkbox-i-combobox-v-msflexgrid/</link>
		<comments>http://www.vbfaq.ru/2009/11/checkbox-i-combobox-v-msflexgrid/#comments</comments>
		<pubDate>Tue, 10 Nov 2009 04:00:37 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Combobox]]></category>
		<category><![CDATA[checkbox]]></category>
		<category><![CDATA[msflexgrid]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=289</guid>
		<description><![CDATA[Checkbox и Combobox в MSFlexGrid. На форме ComboBox &#8212; индекс = 0, CheckBox &#8212; индекс = 0 и MSFlexGrid Изменение ширины колонок отключил (не могу отловить событие изменения ширины). Option Explicit Dim x As Integer Dim NumVisRow As Integer Dim PredRowPos As Integer Dim HeightRows As Integer Private Sub Command1_Click() MSFlexGrid1.AddItem "" x = Combo1.Count [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/11/checkbox-i-combobox-v-msflexgrid/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как посчитать сумму чисел в ComboBox?</title>
		<link>http://www.vbfaq.ru/2009/01/kak-poschitat-summu-chisel-v-combobox/</link>
		<comments>http://www.vbfaq.ru/2009/01/kak-poschitat-summu-chisel-v-combobox/#comments</comments>
		<pubDate>Fri, 09 Jan 2009 04:00:39 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Combobox]]></category>
		<category><![CDATA[сумма]]></category>
		<category><![CDATA[число]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=145</guid>
		<description><![CDATA[Как посчитать сумму чисел в ComboBox? То же самое можно применить и для ListBox. Option Explicit Private Sub Command1_Click() Dim intCount As Integer Dim intSumm As Integer While Combo1.List(intCount) "" intSumm = intSumm + Val(Combo1.List(intCount)) intCount = intCount + 1 Wend Label1.Caption = "Сумма чисел в ComboBox: " &#038; intSumm End Sub Private Sub Form_Load() [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/01/kak-poschitat-summu-chisel-v-combobox/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как можно программно открыть Combobox</title>
		<link>http://www.vbfaq.ru/2008/11/kak-mozhno-programmno-otkryt-combobox/</link>
		<comments>http://www.vbfaq.ru/2008/11/kak-mozhno-programmno-otkryt-combobox/#comments</comments>
		<pubDate>Thu, 13 Nov 2008 18:36:56 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Combobox]]></category>
		<category><![CDATA[открыть]]></category>
		<category><![CDATA[программно]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=86</guid>
		<description><![CDATA[Еще один вариант, как можно программно открыть Combobox. Option Explicit Private Declare Function SendMessageByNum Lib _ "user32" Alias "SendMessageA" (ByVal hwnd As Long, _ ByVal wMsg As Long, ByVal wParam As Long, _ ByVal lParam As Long) As Long Private Const CB_SHOWDROPDOWN = &#038;H14F Private Sub Command1_Click() Call OpenCombo(Combo1, True) End Sub Private Sub OpenCombo(Combo [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2008/11/kak-mozhno-programmno-otkryt-combobox/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как программно открыть ComboBox?</title>
		<link>http://www.vbfaq.ru/2008/11/kak-programmno-otkryt-combobox/</link>
		<comments>http://www.vbfaq.ru/2008/11/kak-programmno-otkryt-combobox/#comments</comments>
		<pubDate>Wed, 12 Nov 2008 14:54:44 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Combobox]]></category>
		<category><![CDATA[открыть]]></category>
		<category><![CDATA[программно]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=84</guid>
		<description><![CDATA[Как программно открыть ComboBox? 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 CB_SHOWDROPDOWN = &#038;H14F Private Sub Command1_Click() SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, -1, 0 End Sub Private Sub Form_Load() Dim i As [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2008/11/kak-programmno-otkryt-combobox/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как удалить повторы в ComboBox?</title>
		<link>http://www.vbfaq.ru/2008/10/kak-udalit-povtory-v-combobox/</link>
		<comments>http://www.vbfaq.ru/2008/10/kak-udalit-povtory-v-combobox/#comments</comments>
		<pubDate>Thu, 16 Oct 2008 05:03:28 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Combobox]]></category>
		<category><![CDATA[загрузка]]></category>
		<category><![CDATA[формы]]></category>
		<category><![CDATA[элементы]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=46</guid>
		<description><![CDATA[Необходимо в ручную добавить не сколько разных элементов. А при загрузке формы, ComboBox дополнится 10000 значениями, цифрой 1. Option Explicit Private Sub Command1_Click() Dim i As Integer Dim PrevIndex As Long 'индекс на последний не удаленный элемент PrevIndex = Combo1.ListCount - 1 For i = Combo1.ListCount - 2 To 0 Step -1 If Combo1.List(i) = [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2008/10/kak-udalit-povtory-v-combobox/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как добавить CheckBox в ComboBox?</title>
		<link>http://www.vbfaq.ru/2008/09/kak-dobavit-checkbox-v-combobox/</link>
		<comments>http://www.vbfaq.ru/2008/09/kak-dobavit-checkbox-v-combobox/#comments</comments>
		<pubDate>Thu, 18 Sep 2008 02:54:31 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Combobox]]></category>
		<category><![CDATA[добавить]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=45</guid>
		<description><![CDATA[Как добавить CheckBox в ComboBox? Option Explicit Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _ (ByVal hwndParent As Long, _ ByVal hwndChildAfter As Long, _ ByVal lpszClass As String, _ ByVal lpszWindow As String) As Long Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Long, _ ByVal wMsg As Long, [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2008/09/kak-dobavit-checkbox-v-combobox/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как заполнить ComboBox</title>
		<link>http://www.vbfaq.ru/2008/09/kak-zapolnit-combobox/</link>
		<comments>http://www.vbfaq.ru/2008/09/kak-zapolnit-combobox/#comments</comments>
		<pubDate>Sat, 06 Sep 2008 07:44:39 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Combobox]]></category>
		<category><![CDATA[список]]></category>
		<category><![CDATA[цикл]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=17</guid>
		<description><![CDATA[Мне необходимо было реализовать ввод пользователем даты, уже не помню что это была за дата, но задача была и я ее одолел. Как это сделать? Все просто, я использовал элемент – ComboBox, но не просто, а еще и автоматически его наполнял данными уже во время работы программы. Данный пример Вам покажет как можно использовать циклы [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2008/09/kak-zapolnit-combobox/feed/</wfw:commentRss>
		<slash:comments>2</slash:comments>
		</item>
	</channel>
</rss>

