<?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>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/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[Как заблокировать кнопку закрытия?
Блокируем кнопку закрытия (&#187;крестик&#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 = &#038;H400 

Private Sub Form_Load()
  [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/09/kak-zablokirovat-knopku-zakrytiya/feed/</wfw:commentRss>
		<slash:comments>0</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 [...]]]></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, [...]]]></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 [...]]]></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 [...]]]></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 wMsg As Long, ByVal wParam As Long, [...]]]></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" _
        [...]]]></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 [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2008/12/kak-pomestit-formu-poverx-drugix-form/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Узнать графические размеры рабочий области для приложений</title>
		<link>http://www.vbfaq.ru/2008/12/uznat-graficheskie-razmery-rabochij-oblasti-dlya-prilozhenij/</link>
		<comments>http://www.vbfaq.ru/2008/12/uznat-graficheskie-razmery-rabochij-oblasti-dlya-prilozhenij/#comments</comments>
		<pubDate>Mon, 15 Dec 2008 13:00:51 +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=118</guid>
		<description><![CDATA[Узнать графические размеры рабочий области для приложений (учитываються размеры панели задач). 
- Структура RECT содержит данные об обьекте.В данном случае обьектом является рабочий стол Windows. 
- Константа SPI_GETWORKAREA указывает функции SystemParametersInfo возвратить параметр рабочей области рабочего стола Windows. 


'В этом примере форма примет размеры доступной графической области для приложений 

Option Explicit 

Private Declare Function SystemParametersInfo [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2008/12/uznat-graficheskie-razmery-rabochij-oblasti-dlya-prilozhenij/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>
