<?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/mouse/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>Прокрутка Grid&#8217;ов и ScrollBar&#8217;ов колесом мыша</title>
		<link>http://www.vbfaq.ru/2009/10/prokrutka-gridov-i-scrollbarov-kolesom-mysha/</link>
		<comments>http://www.vbfaq.ru/2009/10/prokrutka-gridov-i-scrollbarov-kolesom-mysha/#comments</comments>
		<pubDate>Thu, 29 Oct 2009 04:00:42 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Мышь]]></category>
		<category><![CDATA[datagrid]]></category>
		<category><![CDATA[dbgrid]]></category>
		<category><![CDATA[grid]]></category>
		<category><![CDATA[hscrollbar]]></category>
		<category><![CDATA[msflexgrid]]></category>
		<category><![CDATA[mshflexgrid]]></category>
		<category><![CDATA[scrollbar]]></category>
		<category><![CDATA[vscrollbar]]></category>
		<category><![CDATA[колесо]]></category>
		<category><![CDATA[мышь]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=263</guid>
		<description><![CDATA[Прокрутка Grid&#8217;ов и ScrollBar&#8217;ов колесом мыша. Код применим для &#171;DataGrid&#187;, &#171;DBGrid&#187;, &#171;MSHFlexGrid&#187;, &#171;MSFlexGrid&#187;, &#171;VScrollBar&#187;, &#171;HScrollBar&#187; Код формы: Private Sub Form_Load() Call Hook(Me.hWnd) End Sub Private Sub Form_Unload(Cancel As Integer) Call UnHook(Me.hWnd) End Sub Private Sub Form_Load() Call Hook(Me.hWnd) End Sub Private Sub Form_Unload(Cancel As Integer) Call UnHook(Me.hWnd) End Sub Код модуля: Option Explicit Private Declare [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/10/prokrutka-gridov-i-scrollbarov-kolesom-mysha/feed/</wfw:commentRss>
		<slash:comments>1</slash:comments>
		</item>
		<item>
		<title>Как определить, какая кнопка мыши нажата?</title>
		<link>http://www.vbfaq.ru/2009/02/kak-opredelit-kakaya-knopka-myshi-nazhata/</link>
		<comments>http://www.vbfaq.ru/2009/02/kak-opredelit-kakaya-knopka-myshi-nazhata/#comments</comments>
		<pubDate>Sun, 08 Feb 2009 04:00:34 +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=180</guid>
		<description><![CDATA[Как определить, какая кнопка мыши нажата? Option Explicit 'Нажмите одну из кнопок мыши Private Sub Form_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) If Button = 1 Then Text1.Text = _ "Ты нажал левую кнопку мыши" If Button = 4 Then Text1.Text = _ "Ты нажал среднюю кнопку мыши" If [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/02/kak-opredelit-kakaya-knopka-myshi-nazhata/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как ограничить передвижения курсора?</title>
		<link>http://www.vbfaq.ru/2009/01/kak-ogranichit-peredvizheniya-kursora/</link>
		<comments>http://www.vbfaq.ru/2009/01/kak-ogranichit-peredvizheniya-kursora/#comments</comments>
		<pubDate>Tue, 06 Jan 2009 04:00:30 +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=142</guid>
		<description><![CDATA[Как ограничить передвижения курсора? Option Explicit Private Declare Sub ClipCursor Lib "user32" (lpRect As Any) Private Declare Sub GetClientRect Lib "user32" _ (ByVal hWnd As Long, lpRect As RECT) Private Declare Sub ClientToScreen Lib "user32" _ (ByVal hWnd As Long, lpPoint As POINTAPI) Private Declare Sub OffsetRect Lib "user32" _ (lpRect As RECT, ByVal x [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/01/kak-ogranichit-peredvizheniya-kursora/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как имитировать нажатия кнопки на мышке?</title>
		<link>http://www.vbfaq.ru/2009/01/kak-imitirovat-nazhatiya-knopki-na-myshke/</link>
		<comments>http://www.vbfaq.ru/2009/01/kak-imitirovat-nazhatiya-knopki-na-myshke/#comments</comments>
		<pubDate>Mon, 05 Jan 2009 04:00:29 +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=141</guid>
		<description><![CDATA[Как имитировать нажатия кнопки на мышке? 'Код не совсем доработан и работает только на левую клавишу Option Explicit Private Declare Sub mouse_event Lib "user32" _ (ByVal dwFlags As Long, ByVal dx As Long, _ ByVal dy As Long, ByVal cbuttons As Long, _ ByVal dwExtraInfo As Long) Private Const MOUSEEVENTF_LEFTDOWN = &#038;H2 Private Const MOUSEEVENTF_LEFTUP [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/01/kak-imitirovat-nazhatiya-knopki-na-myshke/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как скрыть/показать курсор?</title>
		<link>http://www.vbfaq.ru/2009/01/kak-skrytpokazat-kursor/</link>
		<comments>http://www.vbfaq.ru/2009/01/kak-skrytpokazat-kursor/#comments</comments>
		<pubDate>Sun, 04 Jan 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=140</guid>
		<description><![CDATA[Как скрыть/показать курсор? Option Explicit Private Declare Function ShowCursor Lib _ "user32" (ByVal bShow As Long) As Long Private Sub Command1_Click() ShowCursor 0 End Sub Private Sub Command2_Click() ShowCursor 1 End Sub]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/01/kak-skrytpokazat-kursor/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Устанавливаем курсор в любое место экрана</title>
		<link>http://www.vbfaq.ru/2009/01/ustanavlivaem-kursor-v-lyuboe-mesto-ekrana/</link>
		<comments>http://www.vbfaq.ru/2009/01/ustanavlivaem-kursor-v-lyuboe-mesto-ekrana/#comments</comments>
		<pubDate>Sat, 03 Jan 2009 04:00:30 +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=139</guid>
		<description><![CDATA[Устанавливаем курсор в любое место экрана Option Explicit Private Declare Function SetCursorPos Lib _ "user32" (ByVal r As Long, ByVal r1 As Long) As Long Dim pos As Single Private Sub Command1_Click() Dim x As Single Dim y As Single Randomize x = Int(Rnd(1) * 1000) y = Int(Rnd(1) * 1000) pos = SetCursorPos(x, y) [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/01/ustanavlivaem-kursor-v-lyuboe-mesto-ekrana/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как установить анимированный курсор?</title>
		<link>http://www.vbfaq.ru/2009/01/kak-ustanovit-animirovannyj-kursor/</link>
		<comments>http://www.vbfaq.ru/2009/01/kak-ustanovit-animirovannyj-kursor/#comments</comments>
		<pubDate>Fri, 02 Jan 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=138</guid>
		<description><![CDATA[Как установить анимированный курсор? Option Explicit Private Declare Function LoadCursorFromFile Lib _ "user32" Alias "LoadCursorFromFileA" _ (ByVal lpFileName As String) As Long Private Declare Function SetClassLong Lib "user32" _ Alias "SetClassLongA" _ (ByVal hwnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Const GCL_HCURSOR = (-12) Dim sCursorFile As [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/01/kak-ustanovit-animirovannyj-kursor/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как поменять местами кнопки мыши?</title>
		<link>http://www.vbfaq.ru/2008/12/kak-pomenyat-mestami-knopki-myshi/</link>
		<comments>http://www.vbfaq.ru/2008/12/kak-pomenyat-mestami-knopki-myshi/#comments</comments>
		<pubDate>Sun, 28 Dec 2008 17:27:23 +0000</pubDate>
		<dc:creator>МП41А</dc:creator>
				<category><![CDATA[Мышь]]></category>
		<category><![CDATA[кнопки]]></category>
		<category><![CDATA[поменять]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=202</guid>
		<description><![CDATA[Как поменять местами кнопки мыши? Option Explicit Private Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long) As Long Private i As Byte ' На форме должны находиться: 1) Timer, 2) Label Private Sub Form_Load() Timer1.Interval = 1000 Call SwapMouseButton(1) i = 30 End Sub Private Sub Timer1_Timer() If i &#62; 0 Then i = [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2008/12/kak-pomenyat-mestami-knopki-myshi/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как узнать количество кнопок мыши?</title>
		<link>http://www.vbfaq.ru/2008/11/kak-uznat-kolichestvo-knopok-myshi/</link>
		<comments>http://www.vbfaq.ru/2008/11/kak-uznat-kolichestvo-knopok-myshi/#comments</comments>
		<pubDate>Tue, 18 Nov 2008 11:35:01 +0000</pubDate>
		<dc:creator>МП41А</dc:creator>
				<category><![CDATA[Мышь]]></category>
		<category><![CDATA[кнопки]]></category>
		<category><![CDATA[количество]]></category>
		<category><![CDATA[мышь]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=90</guid>
		<description><![CDATA[Как узнать количество кнопок мыши? Option Explicit Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Private Const SM_CMOUSEBUTTONS = 43 Private Sub Form_Load() Dim RetVal&#38; RetVal&#38; = GetSystemMetrics(SM_CMOUSEBUTTONS) MsgBox "Количество кнопок мыши: " &#38; RetVal&#38; End Sub]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2008/11/kak-uznat-kolichestvo-knopok-myshi/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Отслеживаем координаты мыши</title>
		<link>http://www.vbfaq.ru/2008/09/otslezhivaem-koordinaty-myshi/</link>
		<comments>http://www.vbfaq.ru/2008/09/otslezhivaem-koordinaty-myshi/#comments</comments>
		<pubDate>Tue, 02 Sep 2008 09:13:05 +0000</pubDate>
		<dc:creator>desant</dc:creator>
				<category><![CDATA[Мышь]]></category>
		<category><![CDATA[координаты]]></category>
		<category><![CDATA[указатель]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=24</guid>
		<description><![CDATA[Отслеживаем координаты указателя мыши, находит широкое применение. Option Explicit Private Declare Function GetCursorPos Lib _ "user32" (ast As POINTAPI) As Long Private Type POINTAPI X As Long Y As Long End Type Dim position As POINTAPI Dim p As Integer Private Sub Form_Load() Me.WindowState = 2 End Sub Private Sub Form_MouseMove _ (Button As Integer, [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2008/09/otslezhivaem-koordinaty-myshi/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>

