http://www.vbex.ru/index.php?action=history&feed=atom&title=VBA%2FExcel%2FAccess%2FWord%2FData_Type%2FEnum
VBA/Excel/Access/Word/Data Type/Enum - История изменений
2026-04-07T06:15:46Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Data_Type/Enum&diff=1836&oldid=prev
в 16:33, 26 мая 2010
2010-05-26T16:33:00Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:33, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Data_Type/Enum&diff=1837&oldid=prev
Admin: 1 версия
2010-05-26T12:48:08Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Control the long integer value assigned to each item in the list, simply set the constant equal to a value==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
"Working with Enumerated Types<br />
Public Enum PersonTypeList<br />
Client = 10<br />
PersonalContact = 5<br />
Vendor = 2<br />
Other = 999<br />
End Enum<br />
Sub EnumM()<br />
Dim pt As PersonTypeList<br />
pt = Client<br />
<br />
Debug.Print pt<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Creating an Enum==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
<br />
Public Enum SystemMetrics<br />
SM_MOUSEPRESENT = 19<br />
SM_SWAPBUTTON = 23<br />
SM_MOUSEWHEELPRESENT = 75<br />
End Enum<br />
<br />
Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As SystemMetrics) As Long<br />
Type RECT<br />
Left As Long<br />
Top As Long<br />
Right As Long<br />
Bottom As Long<br />
End Type<br />
Declare Function ClipCursor Lib "user32" (lpRect As RECT) As Long<br />
Sub Foo()<br />
Dim rectClipArea As RECT<br />
Dim lngRetVal As Long<br />
With rectClipArea<br />
.Top = 200<br />
.Left = 100<br />
.Bottom = 420<br />
.Right = 280<br />
End With<br />
lngRetVal = ClipCursor(rectClipArea)<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Working with Enumerated Types==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
"<br />
Public Enum PersonTypeList<br />
Client<br />
PersonalContact<br />
Vendor<br />
Other<br />
End Enum<br />
Sub EnumM()<br />
Dim pt As PersonTypeList<br />
pt = Client<br />
<br />
Debug.Print pt<br />
End Sub<br />
</source></div>
Admin