<?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; ProgressBar</title>
	<atom:link href="http://www.vbfaq.ru/category/progressbar/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/2008/12/kak-rabotat-s-progress-bar/</link>
		<comments>http://www.vbfaq.ru/2008/12/kak-rabotat-s-progress-bar/#comments</comments>
		<pubDate>Wed, 31 Dec 2008 04:00:33 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[ProgressBar]]></category>
		<category><![CDATA[commondialog]]></category>
		<category><![CDATA[прогресс бар]]></category>
		<category><![CDATA[работа]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=134</guid>
		<description><![CDATA[Как работать с Прогресс бар?
- CommonDialog(Microsoft Common Dialog Control 6.0);
- ProgressBar(Microsoft Windows Common Controls 6.0);


Option Explicit

Private Sub Command1_Click()
Dim a As String
CommonDialog1.ShowOpen
If CommonDialog1.FileName  "" Then
    Open CommonDialog1.FileName For Binary As 1
    ProgressBar1.Min = 1
    ProgressBar1.Max = LOF(1)
    Text1.Text = CommonDialog1.FileTitle
    [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2008/12/kak-rabotat-s-progress-bar/feed/</wfw:commentRss>
		<slash:comments>2</slash:comments>
		</item>
		<item>
		<title>Как изменить цвет ProgressBar?</title>
		<link>http://www.vbfaq.ru/2008/11/kak-izmenit-cvet-progressbar/</link>
		<comments>http://www.vbfaq.ru/2008/11/kak-izmenit-cvet-progressbar/#comments</comments>
		<pubDate>Sun, 09 Nov 2008 11:32:37 +0000</pubDate>
		<dc:creator>МП41А</dc:creator>
				<category><![CDATA[ProgressBar]]></category>
		<category><![CDATA[изменить]]></category>
		<category><![CDATA[прогресс бар]]></category>
		<category><![CDATA[цвет]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=73</guid>
		<description><![CDATA[Как изменить цвет ProgressBar?
На форме должен находиться ProgressBar.

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 Sub Form_Load()
    ProgressBar1.Max = 100
    ProgressBar1.Value = 50
    Call SendMessage(ProgressBar1.hwnd, 1033, 0, ByVal [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2008/11/kak-izmenit-cvet-progressbar/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>
