Вы знали об этом? Я - нет!

[GSerg]

Код: Выделить всё

Option Explicit

Public Enum CoolEnum
  [Cool value with spaces] = 1
  [Hey, punctuation allowed!] = 7
  [That's cool, isn't it?] = 10
  [Apostrophe is a part of name, did you see that?] = 15
  [And smiles too   :)    ] = 20
End Enum

Private Sub Form_Load()
  Dim a As CoolEnum
 
  'Ставьте после "a" "=" и наслаждайтесь
  a
 
  MsgBox a
End Sub

[corgi]

Мдаааа....
я не знал

[RayShade]

Респект автору темы!



Года 3 назад, когда я только начинал писать на ВБ, в какой то книге советского афтара я прочел дословно следующее "строковых енумов не бывает", что меня конечно, огорчило, причем жутко.



И вот теперь, как говорится, когда все надежды уже того, спасение пришло Лучше в общем поздно, чем вообще никак

[alibek]

А... Э... О... УУУ!!!
GSerg, я тебя люблю

Правда я вначале вообще губы раскатал, что это стринговый енум но все равно прикольно

[Krasavica]

Хе-Хе.

[FaKk2]

Факт конечно интересный:)
Но все таки в чем отличие енумов от типов?
Лень в поиск лезть

[Vovik]

Я немного не могу понять, что тут нового? Енум - как енум....

[X-BOND]

Я так понял, что можна теперь пробелы ставить и прочие спецсимволы

[skiperski]

Прикольно! Не знал.

Но все таки в чем отличие енумов от типов?

Наум - это набор констант перечеслимого типа, в VB - Long, собранных в одну группу.

А тип - это новый тип переменной, состоящий из набора полей разного типа. Похоже на Паскалевкие record'ы.

[GM]

Знал, что можна пробелы ставить, но чтобы апострофы,комы,и другие спецсимволы,не знал.

[GSerg]

Подольём, пожалуй, масла

Код: Выделить всё

Public Enum Nameless
[] = 5
End Enum

[Amed]

Дааа.... И кто их только выдумал?

[alibek]

Если уж на то пошло
Если db - это БД, а rs - рекордсет, то можно делать и так:

Код: Выделить всё

MsgBox rs![Test Field 'None']

Здесь "Test Field 'None'" - это название поля таблицы

[tyomitch]

Гы, а я знал... Я так в своей чудо-обёртке копирайт прописал:

Код: Выделить всё

Public Enum Copyright
[(c) A. Skrobov, 2004]
End Enum


- и теперь он виден в Object Browser-е

[skord]

Гы...

[gaidar]

Хм... Странно, что ты этого не знал

[d3drm]

А я действительно не знал... Но вообще штука удобная, круто!

[Andrey Fedorov]

Знал. Даже почему-то давно.
Как с Enum-ами, так и с полями Recordset-a...

Но если от подобных Enum-ов я почему-то стараюсь воздерживаться, то вот с полями бывает удобно - сразу из запроса вернуть Caption колонки Grid-a...

[FaKk2]

Вот некрофилы... Теме уже больше года

[Andrey Fedorov]

Вот некрофилы... Теме уже больше года

tyomitch на божий свет ее вытащил
А дальше уже понеслось...

[Vitaly1]

Я чегото не понял:

Код: Выделить всё

Option Explicit

Public Enum CoolEnum
  [Cool value with spaces] = 1
  [Hey, punctuation allowed!] = 7
  [That's cool, isn't it?] = 10
  [Apostrophe is a part of name, did you see that?] = 15
  [And smiles too   :)    ] = 20
End Enum

Private Sub Form_Load()
  Dim a As CoolEnum
 


Где тут указания номера структуры Enum:

Код: Выделить всё

MsgBox a
End Sub

[Andrey Fedorov]

Я чегото не понял:
Где тут указания номера структуры Enum:

Код: Выделить всё

MsgBox a
End Sub

Имеется в виду что можно писать навроде:

a=[Cool value with spaces]

[Vitaly1]

Andrey Fedorov, спасибо, попробовал, получилось.

GSerg, - хороший списочек для числовых констант.

[tyomitch]

Вот некрофилы... Теме уже больше года

tyomitch на божий свет ее вытащил
А дальше уже понеслось...

Дык, GSerg на неё в какой-то новой теме ссычлку дал... (это я, типа, стрелы перевожу)

[Andrey Fedorov]

Дык, GSerg на неё в какой-то новой теме ссычлку дал... (это я, типа, стрелы перевожу)

Счас... Найдем крайнего...

[gaidar]

Бить будем больно... ногами... по почкам

[kirrun]

А вот и та самая тема... http://bbs.vbstreets.ru/viewtopic.php?t=15427

[GSerg]

Да нет, это уже третья.