<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom">
	<channel>
		<title><![CDATA[Серый форум &mdash; VBA, Word: Событие KeyDown]]></title>
		<link>http://forum.script-coding.com/viewtopic.php?id=11614</link>
		<atom:link href="http://forum.script-coding.com/extern.php?action=feed&amp;tid=11614&amp;type=rss" rel="self" type="application/rss+xml" />
		<description><![CDATA[Недавние сообщения в теме «VBA, Word: Событие KeyDown».]]></description>
		<lastBuildDate>Sat, 21 May 2016 15:37:28 +0000</lastBuildDate>
		<generator>PunBB</generator>
		<item>
			<title><![CDATA[Re: VBA, Word: Событие KeyDown]]></title>
			<link>http://forum.script-coding.com/viewtopic.php?pid=104028#p104028</link>
			<description><![CDATA[<p>Скажите, что это за тип, откуда он берётся и как его объявить. Почему он указан в приложеной ссылке, ведь у меня на другом ПК в офисе 2007 через Integer работает как оказалось. Правда не как хотел, но отвечает. Вот это:<br />Sub commandbutton1_keydown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)<br />&nbsp; &nbsp;If KeyCode = vbKeyTab Then MsgBox &quot;test right&quot;<br />&nbsp; &nbsp;If KeyCode = vbKeyTab And Shift = 1 Then MsgBox &quot;ответ&quot;<br />End Sub<br />При шифт-таб оба сообщения выдаёт. Ответьте тогда вот про этот пример не привязанный к другим программным текстам, он на пустом &quot;проекте&quot;.</p>]]></description>
			<author><![CDATA[null@example.com (o5andrey)]]></author>
			<pubDate>Sat, 21 May 2016 15:37:28 +0000</pubDate>
			<guid>http://forum.script-coding.com/viewtopic.php?pid=104028#p104028</guid>
		</item>
		<item>
			<title><![CDATA[VBA, Word: Событие KeyDown]]></title>
			<link>http://forum.script-coding.com/viewtopic.php?pid=104008#p104008</link>
			<description><![CDATA[<p>Private Sub NextN_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As <strong>fmShiftState</strong>)<br />&nbsp; &nbsp;If KeyCode = vbKeyTab Then Call NextN_Click<br />&nbsp; &nbsp;If KeyCode = vbKeyTab And Shift = 1 Then Call PrevN_Click&nbsp; &nbsp;&#039; (NextN&nbsp; - это кнопка)<br />End Sub</p><p>Не запускается - не понимает &quot;...Shift As fmShiftState&quot;:<br />Compile error:<br />User-defined type not defined</p><p>Раньше у меня было написано Shift As Integer, запускалось, но по Shift+Tab не работало, только по Tab.<br />Галочка в References &quot;Microsoft Forms 2.0 Object Library&quot; стоит.</p><p>Тут написано что я вроде правильно делаю...<br />http://www.intuit.ru/studies/courses/112/112/lecture/3291?page=7</p>]]></description>
			<author><![CDATA[null@example.com (o5andrey)]]></author>
			<pubDate>Sat, 21 May 2016 03:26:25 +0000</pubDate>
			<guid>http://forum.script-coding.com/viewtopic.php?pid=104008#p104008</guid>
		</item>
	</channel>
</rss>
