<?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; Формы</title>
	<atom:link href="http://www.vbfaq.ru/category/form/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/2011/03/kak-pomestit-odnu-formu-v-druguyu/</link>
		<comments>http://www.vbfaq.ru/2011/03/kak-pomestit-odnu-formu-v-druguyu/#comments</comments>
		<pubDate>Wed, 16 Mar 2011 10:35:43 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Формы]]></category>
		<category><![CDATA[перемещать]]></category>
		<category><![CDATA[форма]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=475</guid>
		<description><![CDATA[Как поместить одну форму в другую? Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long Private Sub Form_Load() Form2.Show SetParent Form2.hWnd, Form1.hWnd 'выравниваем форму2 по центру Form2.Move (Form1.ScaleWidth - Form2.Width) / 2, (Form1.ScaleHeight - Form2.Height) / 2 End Sub]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2011/03/kak-pomestit-odnu-formu-v-druguyu/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как заблокировать кнопку закрытия</title>
		<link>http://www.vbfaq.ru/2009/09/kak-zablokirovat-knopku-zakrytiya/</link>
		<comments>http://www.vbfaq.ru/2009/09/kak-zablokirovat-knopku-zakrytiya/#comments</comments>
		<pubDate>Fri, 18 Sep 2009 07:14:20 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Формы]]></category>
		<category><![CDATA[блокируем]]></category>
		<category><![CDATA[заблокировать]]></category>
		<category><![CDATA[закрыть]]></category>
		<category><![CDATA[кнопка]]></category>
		<category><![CDATA[крестик]]></category>
		<category><![CDATA[угол]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=208</guid>
		<description><![CDATA[Как заблокировать кнопку закрытия? Блокируем кнопку закрытия (&#171;крестик&#187; в правом верхнем углу формы). Option Explicit Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long Private Const MF_BYPOSITION = [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/09/kak-zablokirovat-knopku-zakrytiya/feed/</wfw:commentRss>
		<slash:comments>1</slash:comments>
		</item>
		<item>
		<title>Как перемещать форму не за заголовок?</title>
		<link>http://www.vbfaq.ru/2009/02/kak-peremeshhat-formu-ne-za-zagolovok/</link>
		<comments>http://www.vbfaq.ru/2009/02/kak-peremeshhat-formu-ne-za-zagolovok/#comments</comments>
		<pubDate>Mon, 16 Feb 2009 04:00:45 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Формы]]></category>
		<category><![CDATA[заголовок]]></category>
		<category><![CDATA[пееремещать]]></category>
		<category><![CDATA[форма]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=188</guid>
		<description><![CDATA[Как перемещать форму не за заголовок? 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 Declare Function ReleaseCapture Lib "user32" () As Long Const WM_NCLBUTTONDOWN = &#038;HA1 Const HTCAPTION = 2 Private Sub [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/02/kak-peremeshhat-formu-ne-za-zagolovok/feed/</wfw:commentRss>
		<slash:comments>1</slash:comments>
		</item>
		<item>
		<title>Как можно изменить размер формы?</title>
		<link>http://www.vbfaq.ru/2009/02/kak-mozhno-izmenit-razmer-formy/</link>
		<comments>http://www.vbfaq.ru/2009/02/kak-mozhno-izmenit-razmer-formy/#comments</comments>
		<pubDate>Sun, 15 Feb 2009 04:00:40 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Формы]]></category>
		<category><![CDATA[изменить]]></category>
		<category><![CDATA[размер]]></category>
		<category><![CDATA[форма]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=187</guid>
		<description><![CDATA[Как можно изменить размер формы? Option Explicit Private Declare Function CreateEllipticRgn Lib "gdi32" _ (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, _ ByVal Y2 As Long) As Long Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, _ ByVal hRgn As Long, ByVal bRedraw As Long) As Long Private [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/02/kak-mozhno-izmenit-razmer-formy/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как установить заголовок активного окна?</title>
		<link>http://www.vbfaq.ru/2009/02/kak-ustanovit-zagolovok-aktivnogo-okna/</link>
		<comments>http://www.vbfaq.ru/2009/02/kak-ustanovit-zagolovok-aktivnogo-okna/#comments</comments>
		<pubDate>Sat, 14 Feb 2009 04:00:45 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Формы]]></category>
		<category><![CDATA[активное]]></category>
		<category><![CDATA[заголовок]]></category>
		<category><![CDATA[окно]]></category>
		<category><![CDATA[установить]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=186</guid>
		<description><![CDATA[Как установить заголовок активного окна? Option Explicit Private Declare Function SetWindowText Lib _ "user32" Alias "SetWindowTextA" _ (ByVal hwnd As Long, _ ByVal lpString As String) As Long Dim i As Integer Private Sub Form_Load() Me.Visible = False Timer1.Interval = 1000 End Sub Public Sub ChangeCaption(NewText As String) For i = 1 To 3333 Call [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/02/kak-ustanovit-zagolovok-aktivnogo-okna/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как сделать форму с закругленными краями?</title>
		<link>http://www.vbfaq.ru/2009/02/kak-sdelat-formu-s-zakruglennymi-krayami/</link>
		<comments>http://www.vbfaq.ru/2009/02/kak-sdelat-formu-s-zakruglennymi-krayami/#comments</comments>
		<pubDate>Fri, 13 Feb 2009 04:00:42 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Формы]]></category>
		<category><![CDATA[закруглить]]></category>
		<category><![CDATA[края]]></category>
		<category><![CDATA[сделать]]></category>
		<category><![CDATA[форма]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=185</guid>
		<description><![CDATA[Как сделать форму с закругленными краями? Поиграйте с цифрами, можно добиться различных результатов. Option Explicit Private Declare Function CreateRoundRectRgn Lib "gdi32" _ (ByVal X1 As Long, ByVal Y1 As Long, _ ByVal X2 As Long, ByVal Y2 As Long, _ ByVal X3 As Long, ByVal Y3 As Long) As Long Private Declare Function SetWindowRgn _ [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/02/kak-sdelat-formu-s-zakruglennymi-krayami/feed/</wfw:commentRss>
		<slash:comments>1</slash:comments>
		</item>
		<item>
		<title>Как сделать форму во весь экран?</title>
		<link>http://www.vbfaq.ru/2009/02/kak-sdelat-formu-vo-ves-ekran/</link>
		<comments>http://www.vbfaq.ru/2009/02/kak-sdelat-formu-vo-ves-ekran/#comments</comments>
		<pubDate>Thu, 12 Feb 2009 04:00:26 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Формы]]></category>
		<category><![CDATA[сделать]]></category>
		<category><![CDATA[форма]]></category>
		<category><![CDATA[экран]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=184</guid>
		<description><![CDATA[Как сделать форму во весь экран. Private Declare Function SetWindowPos Lib "user32" _ (ByVal hwnd As Long, _ ByVal hWndInsertAfter As Long, _ ByVal x As Long, _ ByVal y As Long, _ ByVal cx As Long, _ ByVal cy As Long, _ ByVal wFlags As Long) As Long Private Declare Function GetSystemMetrics Lib "user32" [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/02/kak-sdelat-formu-vo-ves-ekran/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как измененить заголовок любого окна?</title>
		<link>http://www.vbfaq.ru/2009/02/kak-izmenenit-zagolovok-lyubogo-okna/</link>
		<comments>http://www.vbfaq.ru/2009/02/kak-izmenenit-zagolovok-lyubogo-okna/#comments</comments>
		<pubDate>Wed, 11 Feb 2009 04:00:32 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Формы]]></category>
		<category><![CDATA[заголовок]]></category>
		<category><![CDATA[изменить]]></category>
		<category><![CDATA[окно]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=183</guid>
		<description><![CDATA[Как измененить заголовок любого окна? 'Напишите внутри TextBox1 наименование окна, которое вы хотите изменить. 'Напишите внутри TextBox2 новый заголовок окна Option Explicit Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Long, ByVal [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/02/kak-izmenenit-zagolovok-lyubogo-okna/feed/</wfw:commentRss>
		<slash:comments>1</slash:comments>
		</item>
		<item>
		<title>Вывод на экран текста, форма приобретает вид текста</title>
		<link>http://www.vbfaq.ru/2008/12/vyvod-na-ekran-teksta-forma-priobretaet-vid-teksta/</link>
		<comments>http://www.vbfaq.ru/2008/12/vyvod-na-ekran-teksta-forma-priobretaet-vid-teksta/#comments</comments>
		<pubDate>Wed, 17 Dec 2008 04:01:35 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Формы]]></category>
		<category><![CDATA[вид]]></category>
		<category><![CDATA[текст]]></category>
		<category><![CDATA[экран]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=120</guid>
		<description><![CDATA[Вывод на экран текста, форма приобретает вид текста. Option Explicit Private Declare Function BeginPath Lib "gdi32" (ByVal hdc As Long) As Long Private Declare Function EndPath Lib "gdi32" (ByVal hdc As Long) As Long Private Declare Function PathToRegion Lib "gdi32" (ByVal hdc As Long) As Long Private Declare Function SetWindowRgn Lib "user32" _ (ByVal hWnd [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2008/12/vyvod-na-ekran-teksta-forma-priobretaet-vid-teksta/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как поместить форму поверх других форм?</title>
		<link>http://www.vbfaq.ru/2008/12/kak-pomestit-formu-poverx-drugix-form/</link>
		<comments>http://www.vbfaq.ru/2008/12/kak-pomestit-formu-poverx-drugix-form/#comments</comments>
		<pubDate>Tue, 16 Dec 2008 13:00:52 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Формы]]></category>
		<category><![CDATA[поверх]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=119</guid>
		<description><![CDATA[Как поместить форму поверх других форм? Option Explicit Private Declare Function SetWindowPos Lib "user32" _ (ByVal hwnd As Long, _ ByVal hWndInsertAfter As Long, _ ByVal X As Long, _ ByVal Y As Long, _ ByVal cx As Long, _ ByVal cy As Long, _ ByVal wFlags As Long) As Long Private Const HWND_NOTOPMOST = [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2008/12/kak-pomestit-formu-poverx-drugix-form/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>

